Простая задача. Дано выражение и нужно посчитать, чему оно равно. Выражение такое:
X задается вводом, a, b,d — константы.
Код не тестировался вообще — считать ну крайне лениво) Главное, что есть код:
[pascal]
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.
[/pascal]
3 блока. Блок ввода, блок рассчетов и блок вывода. Всё просто.