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

Информатика. Программирование в Delphi
143
end;
R:=U/I;
if RadioGroup2.ItemIndex=0 then
Label3.Caption:='Сопротивление: '+FloatToStrF(R,ffFixed,15,3)+' Ом'
else
Label3.Caption:='Сопротивление: '+FloatToStrF
(R/1000,ffFixed,15,3)+' кОм';
end;
end;
end;
end.
11. Сохранить проект в папке Электричество.
Пример 9.2 (Выполнить самостоятельно)
Разработать приложение, которое вычисляет расстояние, время или ско-
рость движения пешехода. Во время работы программы, в результате выбора
переключателя Расстояние, Время или Скорость в левой группе переключате-
лей, текст, поясняющий назначение полей ввода и переключателей в правой
группе переключателей должен меняться (Расстояние: м и км; Время: сек или
час; Скорость : м/сек или км/ч). Рекомендуемый вид формы приведен на рис.
9.7. Сохранить проект в папке Пешеход.
Пример 9.3 (Выполнить самостоятельно)
Разработать приложение, которое вычисляет синус, косинус, тангенс или
котангенс по известному углу, заданному в градусах или радианах. 1 градус =
pi/180 радиан. Рекомендуемый вид формы приведен на рис. 9.8. Сохранить про-
ект в папке Геометрия.
Рис. 9.7 Рис. 9.8