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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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