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

Информатика. Программирование в Delphi
119
s3:=s3+t3;
n:=n+1;
t:=Now;
Memo1.Lines.Add('***'+FormatDateTime('hh:mm:ss',t)+'***');
Memo1.Lines.Add('***Температура***');
Memo1.Lines.Add('Первый резервуар: '+Edit1.Text+' градуса(ов)');
Memo1.Lines.Add('Второй резервуар: '+Edit2.Text+' градуса(ов)');
Memo1.Lines.Add('Третий резервуар: '+Edit3.Text+' градуса(ов)');
Memo1.Lines.Add('***Средняя температура***');
Memo1.Lines.Add('Первый резервуар: '+FloatToStr(s1/n)+' градуса(ов)');
Memo1.Lines.Add('Второй резервуар: '+FloatToStr(s2/n)+' градуса(ов)');
Memo1.Lines.Add('Третий резервуар: '+FloatToStr(s3/n)+' градуса(ов)');
Memo1.Lines.Add('Общая: '+FloatToStr((s1/n+s2/n+s3/n)/3)+
' градуса(ов)');
Memo1.Lines.SaveToFile('Средняя температура.txt');
end;
end.
Пример 7.2 (Выполнить самостоятельно)
Разработать программу, которая вычисляет стоимость покупки в магази-
не. Программа должна быть спроектирована таким образом, чтобы в поле Цена
можно было ввести только вещественное число, а в поле – Количество только
целое. Вычисление стоимости должно происходить при нажатии клавиши En-
ter в поле Количество. Пример добавляемой строки: Наименование: Пельме-
ни Русские Цена: 30 р. Количество: 2 Стоимость: 60 р. Также должна вычис-
ляться общая стоимость всех товаров. При нажатии на кнопку Очистить долж-
ны очищаться все поля и компонент Memo. Рекомендуемый вид формы показан
на рис. 7.9.
Рис. 7.9