Mirsaid Aripov, Nurillo Otaxanov

14.1-listing. Yo`qotishlarni qayta ishlash

procedure TForm1.Button1Click(Sender: TObject);

var

s: real;  doiraning yuzi

r: real;  radius

l: real;  aylananing uzunligi

begin

Label5.Caption : '';

 hatolik yuzaga kelishi mumkin bo`lgan vaziyatlar

try

s : StrToFloat(Edit1.Text);

r : sqrt(s  (2*pi));

except

on EMathError do  kvadrat ildiz ostida manfiy son

begin

ShowMessage(' YUza manfiy bo`la olmaydi!');

exit;

end;

on EConvertError do  satrni songa aylantirib bo`lmadi

begin

ShowMessage('YUzani son bilan yozing.' #13 

'Haqiqiy sonni yozishda verguldan foydalaning.');

exit;

end;

end;

L : 2*pi*r;

Label5.caption :'L '  FloatToStr(l);

end;

Bu dastur Windows muhitidan ishga tushirilib, foydalanuvchi manfiy son kiritsa, dastur 13.4-rasmdagi javobni beradi.

13.4-rasm. Manfiy son uchun dasturning javobi

Har ikki holdagi hatolik yuzaga kelsa, bu dastur yo`l qo`yilgan hatolik haqida axborotni beradi va o`z ishini to`xtatadi.