Предмет: Информатика,
автор: sekret666az
Створіть проєкт обчислення середньої температури за тиждень і виведення результату у напис. Результати вимірювання температури містяться у багаторядковому текстовому полі. (для Lazarus)
Ответы
Автор ответа:
0
Ответ:
procedure TForm1.Button1Click(Sender: TObject);
var
temperatures: TStringList;
total, count: Integer;
begin
temperatures := TStringList.Create;
temperatures.Text := Memo1.Text;
total := 0;
count := 0;
for i := 0 to temperatures.Count - 1 do
begin
if StrToInt(temperatures[i]) > 0 then
begin
count := count + 1;
end;
end;
Label1.Caption := 'Середня температура за тиждень: ' + FloatToStr(total / temperatures.Count);
Label2.Caption := 'Кількість днів з температурою вище нуля: ' + IntToStr(count);
end;
Объяснение:
Похожие вопросы
Предмет: История,
автор: brawlbrawl2040
Предмет: Українська мова,
автор: aleksandramorar030
Предмет: Оʻzbek tili,
автор: saodatik18
Предмет: Алгебра,
автор: Vladkorse
Предмет: Математика,
автор: vlad40838