Написать программку в Паскале 1/x*x+4*x+5

Написать программку в Паскале 1/x*x+4*x+5

Задать свой вопрос
1 ответ

Ответ:

var X, Y: Real;

begin

  WriteLn("Введите значение аргумента: ");

   ReadLn(X);

// так как дробленье на ноль вызовет ошибку, исключаем это

   if (X lt;gt; 0) then

      begin

         Y:=1/X*X+4*X+5;

        WriteLn("Y= ", Y);

     end;

   else

        WriteLn("Введен недопустимый аргумент");

end.

Alisa Videva
Спасибо!
Лилия
Вероятно еще нужно проверка на то что введены конкретно цифры, но какой у вас класс непонятно, пусть будет немного поординарнее.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт