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

[Koc]

Задание:



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

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.

 

[Koc]

А вбить данные и посмотреть результат, самому не получается?

Спасибо за "помощь" я не догадался бы без твоей помощи кэп!!!
P/S:Сделал сам уже спасибо!

 

[nayke]

Спасибо за "помощь" я не догадался бы без твоей помощи кэп!!!
P/S:Сделал сам уже спасибо!

Ну если тему создал с вопросом.. наверное нет..