Обработка исключительных ситуации (try-except) Проверьте формулу

  • Автор темы Koc
  • Дата начала
K
#1
Задание:



Проверьте пожалуйста формулу и сам код:

Код:
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.