→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
помогите написать программый код : задача по массивам пжл!! 
Автор Сообщение
Начинающий

Регистрация: 17.11.2011
Сообщения: 4

Репутация: 0 [ ? ]
Сообщение помогите написать программый код : задача по массивам пжл!!
известна средняя температура каждого дня недели. Определите среднюю температуру за всю неделю. определите, сколько раз в неделю температура была выше нуля. Отсортируйте значения температур по убыванию и определите, была одинаковая температура несколько дней в неделю.

Добавлено спустя 5 минут 21 секунду:
полное


У вас нет необходимых прав для просмотра вложений в этом сообщении.


17.11.2011 17:16
Профиль Отправить email
Начинающий

Регистрация: 17.11.2011
Сообщения: 4

Репутация: 0 [ ? ]
Сообщение Re: помогите написать программый код : задача по массивам пжл!!
procedure TForm1.Button1Click(Sender: TObject);
var a: array [1..7] of real; t:integer; summa:real;
begin
summa:=0;
For t:=1 to 7 do
begin
a[t]:=StrtoFloat(Memo1.Lines[t-1]);
a[t]:=(a[t]/7);
summa:=summa+a[t];
end;
label2.caption:=FloattoStr(a[t]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var a: array [1..7] of real; t:integer; summa:real;
begin
summa:=0;
For t:=1 to 7 do
begin
a[t]:=StrtoFloat(Memo1.Lines[t-1]);
if a[t]>0 then
summa:=summa+1;
end;
label3.caption:=FloattoStr(summa);
end;

Добавлено спустя 55 секунд:
а третее задание как?

Добавлено спустя 30 секунд:
Отсортируйте значения температур по убыванию и определите, была одинаковая температура несколько дней в неделю.


У вас нет необходимых прав для просмотра вложений в этом сообщении.


17.11.2011 22:42
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
© 2013 «Форум программистов Украины»