Question

Створіть проєкт обчислення середньої температури за тиждень і виведення результату у напис. Результати вимірювання температури містяться у багаторядковому текстовому полі. (для Lazarus) ​

Answer 1

Ответ:

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;

Объяснение: