// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin var x,z:real; for var i:=0 to 18 do begin x:=-3+0.5*i; if (Abs(x)<>2) and (x<>5) then z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5); Writeln(x:4:1,z:15:8) end;end.
Результат-3.0 0.02603404-2.5 0.05396053-2.0 0.05396053-1.5 0.15941934-1.0 0.15783283-0.5 0.11009307 0.0 0.10000000 0.5 0.16817855 1.0 0.21459633 1.5 0.16205869 2.0 0.16205869 2.5 -0.47852157 3.0 -0.48851066 3.5 -0.38218382 4.0 -0.18498749 4.5 0.00385685 5.0 0.00385685 5.5 0.30151270 6.0 0.23243357
№2begin var x,z:real; x:=-3; while x<=6.01 do begin if (Abs(x)<>2) and (x<>5) then z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5); Writeln(x:4:1,z:15:8); x+=0.5 end;end.
№3begin var x,z:real; x:=-3; repeat if (Abs(x)<>2) and (x<>5) then z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5); Writeln(x:4:1,z:15:8); x+=0.5 until x>6.01end.