Вот задание: Обработка исключительных ситуации (try-except)
Проверьте формулу пожалуйста так или нет??:
Код:
procedure TForm1.Image1Click(Sender: TObject);
var x,y,z:integer; v:real; arcsin:real;
begin
try
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
z:=strtoint(edit3.Text);
v:=(sqrt(10)*(sqr(x+x)*(sqrt(y+2))*(arcsin*(sqrt(z-x-y)))));
label4.caption:=floattostr(v);
except
on EConvertError do showmessage ('Введите целые числа');
on EDivByZero do showmessage('не делить на 0');
end;
end;
end.