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

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