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

Тема в разделе "Pascal and Delphi", создана пользователем Koc, 17 мар 2011.

  1. Koc

    Koc Гость

    Задание:

    [​IMG]

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

    Код (Delphi):
    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.
     
  2. Koc

    Koc Гость

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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Ну если тему создал с вопросом.. наверное нет..
     
Загрузка...
Похожие Темы - Обработка исключительных ситуации
  1. kolka
    Ответов:
    6
    Просмотров:
    252
  2. anna
    Ответов:
    9
    Просмотров:
    882
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    867
  4. crow1986
    Ответов:
    8
    Просмотров:
    1.872
  5. Dazzel
    Ответов:
    1
    Просмотров:
    948

Поделиться этой страницей