Дано действительное число x. Вычислить f(x) - Pascal ABC
Формулировка задачи:
Дано действительное число x. Вычислить f(x):
Вот что вышло у меня, но тут, наверное, всё неправильно
Решение задачи: «Дано действительное число x. Вычислить f(x)»
textual
Листинг программы
var x:real; begin write('x='); read(x); if x<=2 then x:=sqr(x)+4*x+5 else x:=1/(sqr(x)+4*x+5); writeln ('x=',x:0:4); end.
Объяснение кода листинга программы
- Создается переменная
x
типаreal
, которая будет использоваться для хранения входного числа. - Выводится сообщение
x=
, чтобы пользователь мог ввести число. - Число считывается из ввода пользователя и сохраняется в переменной
x
. - Выполняется проверка
if x<=2
, чтобы узнать, является ли введенное число меньше или равно 2. - Если условие истинно, то выполняется вычисление
x := sqr(x) + 4*x + 5
. Это вычисление возводит числоx
в квадрат, добавляет к нему 4 умноженных наx
и 5. - Если условие ложно, то выполняется вычисление
x := 1/(sqr(x) + 4*x + 5)
. Это вычисление делит числоx
на сумму квадратаx
, умноженного на 4 и 5. - Выводится сообщение
x=
, чтобы пользователь мог увидеть результат. - Код завершается.