Курсовая работа: Разработка программного продукта на языке высокого уровня

f: real; // в цельсиях

k: real; // ответ в фаренгейтах

begin

form1.Label2.Caption:='';

try // возможна ошибка, если в поле

// Edit1 будет не число

f:=StrToFloat(Edit1.Text);

k:=18*f/10+32;

label2.caption:=Edit1.text+' C - это ' +

FloatToStrF(k,ffGeneral,4,2)+' F';

except

on EConvertError do // ошибка преобразования

begin

ShowMessage('Ошибка! Градусы следует ввести числом.');

form1.Edit1.SetFocus; // курсор в поле ввода

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

m: real; // в цельсиях

n: real; // ответ в фаренгейтах

begin

form1.Label5.Caption:='';

try // возможна ошибка, если в поле

// Edit1 будет не число

m:=StrToFloat(Edit2.Text);

n:=((m-32)*10)/18;

label5.caption:=Edit2.text+' F - это ' +