помогите перевести на Freepascal

[itwork]

как такое написать на Freepascal?

Begin
Вводим число;
Вычисляем квадратный корень из этого чиcла;
Проверяем если компьютер выдаёт ошибку, то пишем "Ошибка, введите другое чило!"
иначе пичатать "Ответ: ....";
End.

или покажите пример что-то вроде этого!

[serg_iv]

точно также как и на Паскале:
корень - sqrt(x)
ошибка - проверка на отрицательное число
вводим число - readln(x)
вывод - writeln(x)

Пробуй сам!

[itwork]

ошибка - проверка на отрицательное число

Нет я имел ввиду как проверить если есть ошибка типо так If 'Erorr' Then writeln("oшибка");

'Erorr' - подразумеваю какую-нибудь функцию которая проверяет, произошла ли ошибка

[SAK]

Можно воспользоваться try except, но вообще-то в данном примере можно вообще исключить ошибку, проверив значение на допустимость до вычисления корня.

[Romtek]

А зачем специально ждать прихода ошибки, а не позаботиться о её предотвращении заранее, с помощью проверки на отрицательное число?

[serg_iv]

А зачем специально ждать прихода ошибки, а не позаботиться о её предотвращении заранее, с помощью проверки на отрицательное число?

Может человек изучает обработку ошибок?

[Cheb]

Копай в сторону оператора try

[itwork]

Может человек изучает обработку ошибок?

da ti prav!
Objasnite kak rabotajet TRY except? Jesli ktoto znajet napishite po konkretnej!


izvinite za latinicu, nemog podrugomu nikak

[SAK]

Если коротко то:

Код: Выделить всё

  readln(x);

  try
     x:=sqrt(x)
  except
     writeln('произошла ошибка');
     exit
  end;

  writeln('результат: ', x)


В случае возникновения исключения между try и except, будет выполнен код между except и end. При отсутствии ошибки эта часть кода будет пропущена.

[itwork]

СПАСИБО