Программа (Вариант 10 задача 1)
program var_10_zadaca_1; (Название программы)
uses Crt; (Подключение модуля очистки экрана)
var y,B,x,A1,A2:real; (Описание переменных)
begin
ClrScr; (Очистка экрана)
write('x=');
readln(x); (Поочередный ввод переменных В, А1,А2,х)
write ('B=');
readln(B);
write('A1=');
readln(A1);
write('A2=');
readln(A2);
if x>=A1 then (Выполнение первого условия)
begin
y:=cos(B*B*B/pi)+B/x ;
writeln('y=',y); (Вывод значения y на экран)
end;
if (A2<x) and (x<A1) then (Выполнение второго условия)
begin
y:=sin(pi*x)+sqrt(abs(B-pi));
writeln('y=',y);
end;
if x<=A2 then (Выполнение третьего условия)
begin
y:=x*x*x*x+B*B-pi*pi;
writeln('y=',y);
end;
ReadKey; (Ожидание нажатия клавиши, после чего окно сворачивается)
end.
Некоторое пояснение к схеме алгоритма.
Сначала проверяется первое условие, если оно выполняется, то выполняется соответствующее действие и выводится результат, если оно не выполняется то переходим ко второму условию, если оно выполняется выводится результат. Если и второе условие не выполняется тогда переходим к третьему условию, оно выполняется и выводится результат.
