Проверьте код

[Ko$]

Вот задание: Обработка исключительных ситуации (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.

[Vanta11a]

Нет. Формула написана для функции
(10^0,5)*(х^2)*((y+2)^0,5)*(arcsin( мухаха, аргумент пустой))*((z-x-y)^0,5)
На заданную функцию ни капли не похоже.

"^0,5" - извлечение квадратного корня, "^2" - возведение в квадрат.

[Ko$]

извените можете написать формулу как она есть правильно

[Hacker19_90]

Как то так! Ток модуль Math добавь

b := sqrt(10*(power(x,1/3)+power(x, y+2)))*(sqr(arcsin(z))-abs(x-y));

[Ko$]

Сообщение от Vanta11a

(мухаха, аргумент пустой)

как понять?