Стр. 116 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
116
//добавление текущего системного времени в поле Memo1
Memo1.Lines.Add('***'+FormatDateTime('hh:mm:ss',t)+'***');
Memo1.Lines.Add('***Температура***');
//добавление в поле Memo1 температур жидкости
Memo1.Lines.Add('Первый резервуар: '+Edit1.Text+' градуса(ов)');
Memo1.Lines.Add('Второй резервуар: '+Edit2.Text+' градуса(ов)');
Memo1.Lines.Add('Третий резервуар: '+Edit3.Text+' градуса(ов)');
Memo1.Lines.Add('***Средняя температура***');
//добавление в поле Memo1 средних температур в резервуарах
//сумма всех температур деленная на количество измерений
Memo1.Lines.Add('Первый резервуар: '+FloatToStr(s1/n)+' градуса(ов)');
Memo1.Lines.Add('Второй резервуар: '+FloatToStr(s2/n)+' градуса(ов)');
Memo1.Lines.Add('Третий резервуар: '+FloatToStr(s3/n)+' градуса(ов)');
//добавление в поле Memo1 общей средней температуры
//жидкости в трех резервуарах, рассчитывается
//сумма трех средних температур деленная
//на количество резервуаров
Memo1.Lines.Add('Общая: '+FloatToStr((s1/n+s2/n+s3/n)/3)+
' градуса(ов)');
//сохранение содержимого поля Memo1 в файл
Memo1.Lines.SaveToFile('Средняя температура.txt');
end;
9. Теперь запустим наш проект и посмотрим, что получилось (рис. 7.8).
Рис. 7.8
Листинг 7.1 содержит полную версию приложения. Комментарии, как
обычно, удалены.