Вычислить значение функции - PascalABC.NET (25053)

Формулировка задачи:

Составить схему алгоритма и программу на языке Паскаль для вычисления функции y=f(x) при заданном значении x, которое вводится с клавиатуры. a=7,2 b=14,3 c=13,4 x=5,6

Решение задачи: «Вычислить значение функции»

Листинг программы

var a,b,c,x,y:real;
 
Begin
Write('Введите число A: '); Readln(A);
Write('Введите число B: '); Readln(B);
Write('Введите число C: '); Readln(C);
Write('Введите число X: '); Readln(X);
 
Y:=Sqrt(C*X+62.7*Exp(X))/(A*Sqr(X)+7*X+B*Ln(X));
 
Writeln('Ответ: ',Y:8:5);
end.

Объяснение кода листинга программы

Объявлены переменные a, b, c, x, y типа real.
Выводится сообщение для ввода числа A.
Введено число A.
Выводится сообщение для ввода числа B.
Введено число B.
Выводится сообщение для ввода числа C.
Введено число C.
Выводится сообщение для ввода числа X.
Введено число X.
Вычисляется значение функции Y.
Выводится сообщение с результатом вычисления функции Y.
Завершается выполнение программы.