[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.

[Konrad]

Сообщение от Ko$

Вот задание: Обработка исключительных ситуации (try-except)

А моежт таки задание звучит:
напишите за меня формулу, потому что я не умею и не хочу ничего знать, а люблю готовое?

[iliasmalorum02]

В реализации формулы есть ошибки. Дам три совета:

1. Не путайте возведение в квадрат и квадратный корень
2. Для упрощения строчки v:=... воспользуйтесь дополнительными переменными для упрощения алгоритма.
3. try-except нужен не для вывода месседжей, а для освобождения ресурсов.
4. Стилистическое: в данном случае лучше вместо ShowMessage использовать создание объекта класса Exception

[Ko$]

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

А моежт таки задание звучит:
напишите за меня формулу, потому что я не умею и не хочу ничего знать, а люблю готовое?

ну ну )) напишиш: помогите сделать задачу. пишите: выложи код ты даже не пытался. выложиш код пишите: всёравно ты халявщик

[Asinkrit]

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

3. try-except нужен не для вывода месседжей, а для освобождения ресурсов.

try-except нужен, для обработки исключительных ситуаций. А как вы отработаете исключительную ситуацию это уже ваше дело, можете освободить ресурсы (в этом случае лучше использовать try-finally), можете выводить сообщения.

[Konrad]

Сообщение от Ko$

ну ну )) напишиш: помогите сделать задачу. пишите: выложи код ты даже не пытался. выложиш код пишите: всёравно ты халявщик

iliasmalorum02 подробно (п. 1 п. 2) описал то что я имел ввиду