program z1;
var a,b,x,y:real;
begin
a:=2.6;
b:=-0.39;
x:=0.8;
while x<=2 do
begin
if x<2.8 then y:=(a+b)/(exp(x) + cos(x))
else if x>=6 then y:=exp(x) + sin(x)
else y:=(a+b)/(x+1);
writeln('x = ',x,' y = ',y:0:3);
x:=x+0.5
end
end.
Объяснение:
Заданы значения a, b и x
Цикл с предусловием (пока x<=2), выполняем действия:
1) проверяем условие по какой формуле следует считать y и считаем его
2) выводим на экран текущие значения x и y
3) увеличиваем x на шаг
