uses crt;
var a,x1,x2,dx,x,y:real;
begin
clrscr;
a:=2.3;
x1:=0.2;
x2:=8;
dx:=0.2;
x:=x1;
Writeln('x | y');
Writeln('---------');
while x<x2 do
begin
If x=2 then writeln('Gbplf') ;
If x=1 then
begin
y:=1.5*sqr(cos(x));
writeln(x,' | ',y);
end
else
If (x>1)and(x<2) then
begin
y:=1.8*a*x;
writeln(x,' | ',y);
end
else
If x>2 then
begin
y:=(sqr(x-2))+6;
writeln(x,' | ',y);
end
else writeln('Не удовлетворяет условию');
x:=x+dx;
end;
end.
x=2 игонорирует. Если шаг dx поставить 0,3 все верно решает.