Pascal. Найти значение выражения

Простая задача. Дано выражение и нужно посчитать, чему оно равно. Выражение такое:

X задается вводом, a, b,d — константы.

Код не тестировался вообще — считать ну крайне лениво) Главное, что есть код:


program name1;
uses
crt;
const
a = -9/2;
b = 5.61;
d = 24;
var
y,x: real;
begin
clrscr;
writeln('Введите X: ');
readln(x);

if (x >= -19) and (x <-16) then
y := cos(sqr(a*sqr(x)+b))
else if (x >= -16) then
y := 5*(b*x+abs(a+d))
else if (x < - 19) then
y := 2*x*d+ sqr(a);

writeln('y(', x:4:4, ') = ', y:4:4);
readln();
end.

3 блока. Блок ввода, блок рассчетов и блок вывода. Всё просто.

Исходный код + Исполняемый файл

Добавить комментарий