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

Информатика. Программирование в Delphi
138
//вывод сообщения
ShowMessage('Необходимо ввести данные во все поля!');
//выход из процедуры
exit;
end;
//проверка кнопок в RadioGroup1
case RadioGroup1.ItemIndex of
// выбрана кнопка Сила тока в RadioGroup1
0:begin
//напряжение
U:=StrToFloat(Edit1.Text);
//сопротивление
R:=StrToFloat(Edit2.Text);
if R=0 then
begin
// если сопротивление равно нулю, то вывод сообщения
ShowMessage('Сопротивление не должно быть равно нулю!');
//выход из процедуры
exit;
end;
//вычисление силы тока
I:=U/R;
//если выбрана кнопка А в RadioGroup2
if RadioGroup2.ItemIndex=0 then
Label3.Caption:='Сила тока: '+FloatToStrF(I,ffFixed,15,3)+' А'
//выбрана кнопка мА в RadioGroup2
else
Label3.Caption:='Сила тока: '+FloatToStrF(I*1000,ffFixed,15,3)+
' мА';
end;
// выбрана кнопка Напряжение в RadioGroup1
1:begin
//сила тока
I:=StrToFloat(Edit1.Text);
//сопротивление
R:=StrToFloat(Edit2.Text);
//вычисление напряжения
U:=I*R;
//если выбрана кнопка В в RadioGroup2
if RadioGroup2.ItemIndex=0 then
Label3.Caption:='Напряжение: '+FloatToStrF(U,ffFixed,15,3)+' В'
//если выбрана кнопка кВ в RadioGroup2
else
Label3.Caption:='Напряжение: '+FloatToStrF(U/1000,ffFixed,15,3)+