![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
-=BR@BUS=- |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Maxim Репутация: ![]() ![]() ![]() |
Дан масив t содержащий 365 вещественных чисел. По массиву t, где указана температура каждого дня, определить название самого холодного месяца (с наименьшей среднемесячной температурой) и самого жаркого (с наибольшей среднемесячной температурой). Вычисление среднемесячной температуры организовать в подпрограмме.
Uses Crt;
Const n=365;
var A:array[1..n] of integer;
min,m,i,s:integer;
w1:real;
Function sr_tem(j,m:Integer;X:array of integer):real;
Var k,sum,i:Integer;
sr:real;
Begin
sum:=0;
k:=0;
For i:=j to m do begin
sum:=sum+X[i];
k:=k+1;
end;
sr:=(sum/2);
sr_tem:=sr;
Writeln('TEMP: ',sr);
Writeln('------------------------');
end;
Begin
ClrScr;
Randomize;
For i:=1 to n do A[i]:=Random(80)-40;
Writeln('Ianvar');
W1:=sr_tem(A[1],A[31],A);
Writeln(w1);
readln;
end.
вот часть её, помогите доделать... а то я встал ![]() |
![]() ![]() |
Malice |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: ![]() ![]() ![]() |
средняя температура считается неправильно вот в этой строке:
sr:=(sum/2);
Вызывается функция тоже неправильно: W1:=sr_tem(A[1],A[31],A);
Нужно передавать не значения температур, а просто 1 и 31. Заведи константный массив, где будут храниться номер дня в году соответствующий 1-му числу каждого месяца и колво дней в месяце - удобней бедет. Дальше только поиск мин и макс в цикле от 1 до 12 и все. Сообщение отредактировано: Malice - 19.12.2006 17:07 |
-=BR@BUS=- |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Maxim Репутация: ![]() ![]() ![]() |
А как организовать поиск min и max сразу для 12 значений?
|
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 8:38 |