pascal

Разработать алгоритм и записать программу табулирования функции используя значение аргумента функции

Пожалуйста.

const x0=1; xk=4; dx=0.3; y0=0.5; yk=1.5; dy=0.2;var x,y,z: real; i,j:integer;beginwriteln(' x   y        z');x:=x0-dx;for i:=0 to round((xk-x0)/dx) do begin x:=x+dx; y:=y0-dy; for j:=0 to round((yk-y0)/dy) do  begin  y:=y+dy;  z:=cos(x*y-1)+2;  writeln(x:4:1,' ',y:4:1,' ',z:6:4);  end; end;end.Результат:  x    y     z1.0 0.5 2.87761.0 0.7 2.95531.0 0.9 2.99501.0 1.1 2.99501.0 1.3 2.95531.0 1.5 2.87761.3 0.5 2.9394... 3.7 1.5 1.83834.0 0.5 2.54034.0 0.7 1.77284.0 0.9 1.14314.0 1.1 1.03324.0 1.3 1.50974.0 1.5 2.2837

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018// Внимание! Если программа не работает, обновите версию!begin  foreach var x in SeqWhile(1.0,i->i+0.3,i->i<=4.0) do begin    foreach var y in SeqWhile(0.5,i->i+0.25,i->i<=1.5) do      Writeln('x=',x:3:1,', y=',y:4:2,', z=',Cos(x*y-1)+2:12:9)    endend.Результатx=1.0, y=0.50, z= 2.877582562x=1.0, y=0.75, z= 2.968912422x=1.0, y=1.00, z= 3.000000000x=1.0, y=1.25, z= 2.968912422x=1.0, y=1.50, z= 2.877582562x=1.3, y=0.50, z= 2.939372713x=1.3, y=0.75, z= 2.999687516x=1.3, y=1.00, z= 2.955336489x=1.3, y=1.25, z= 2.810963120x=1.3, y=1.50, z= 2.581683089x=1.6, y=0.50, z= 2.980066578x=1.6, y=0.75, z= 2.980066578x=1.6, y=1.00, z= 2.825335615x=1.6, y=1.25, z= 2.540302306x=1.6, y=1.50, z= 2.169967143x=1.9, y=0.50, z= 2.998750260x=1.9, y=0.75, z= 2.911038733x=1.9, y=1.00, z= 2.621609968x=1.9, y=1.25, z= 2.194547708x=1.9, y=1.50, z= 1.724409753x=2.2, y=0.50, z= 2.995004165x=2.2, y=0.75, z= 2.796083799x=2.2, y=1.00, z= 2.362357754x=2.2, y=1.25, z= 1.821753944x=2.2, y=1.50, z= 1.333723979x=2.5, y=0.50, z= 2.968912422x=2.5, y=0.75, z= 2.640996858x=2.5, y=1.00, z= 2.070737202x=2.5, y=1.25, z= 1.473733665x=2.5, y=1.50, z= 1.075697621x=2.8, y=0.50, z= 2.921060994x=2.8, y=0.75, z= 2.453596121x=2.8, y=1.00, z= 1.772797905x=2.8, y=1.25, z= 1.198856384x=2.8, y=1.50, z= 1.001705224x=3.1, y=0.50, z= 2.852524522x=3.1, y=0.75, z= 2.243328794x=3.1, y=1.00, z= 1.495153895x=3.1, y=1.25, z= 1.035325854x=3.1, y=1.50, z= 1.126479102x=3.4, y=0.50, z= 2.764842187x=3.4, y=0.75, z= 2.020794828x=3.4, y=1.00, z= 1.262606284x=3.4, y=1.25, z= 1.005870324x=3.4, y=1.50, z= 1.425176053x=3.7, y=0.50, z= 2.659983146x=3.7, y=0.75, z= 1.797212557x=3.7, y=1.00, z= 1.095927858x=3.7, y=1.25, z= 1.114583665x=3.7, y=1.50, z= 1.838323784x=4.0, y=0.50, z= 2.540302306x=4.0, y=0.75, z= 1.583853163x=4.0, y=1.00, z= 1.010007503x=4.0, y=1.25, z= 1.346356379x=4.0, y=1.50, z= 2.283662185