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

Информатика. Программирование в Delphi
139
' кВ';
end;
// выбрана кнопка Сопротивление в RadioGroup1
2:begin
I:=StrToFloat(Edit1.Text); //сила тока
U:=StrToFloat(Edit2.Text); //напряжение
//если сила тока равна нулю
if I=0 then
begin
//вывод сообщения
ShowMessage('Сила тока не должна быть равна нулю!');
//выход
exit;
end;
//вычисление сопротивления
R:=U/I;
//если выбрана кнопка Ом в RadioGroup2
if RadioGroup2.ItemIndex=0 then
Label3.Caption:='Сопротивление: '+FloatToStrF(R,ffFixed,15,3)+
' Ом'
//если выбрана кнопка кОм в RadioGroup2
else
Label3.Caption:='Сопротивление: '+FloatToStrF
(R/1000,ffFixed,15,3)+' кОм';
end;
end;
end;
9. Запустим проект (рис. 9.6).
1.
Рис. 9.6
10. Окончательный вид приложения приведен в листинге 9.1. Коммента-
рии удалены.