Технический форум - Цикл в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Цикл в Паскале (http://www.tehnari.ru/f41/t32045/)

Цикл в Паскале

Распечатать таблицу значений Z при изменении переменных величин а и х в данных промежутках с данными
шагами, если известно, что ан=1,3; ак=2,4; хн=0,1; хк=0,3; m=3; n=2
http://www.tehnari.ru/imagehosting/2...f6bfc356a3.jpg

Пожалуйста. Только значение ан я заменил с 1.3 на 1.2 - иначе некрасиво.

Код:

CONST

 An=1.2;

 Ak=2.4;

 Xn=0.1;

 Xk=0.3;

 m=3;

 n=2;



VAR

 x,a,Hx,Ha:REAL;

 i,j:INTEGER;



Function Z(Xz,Az:REAL):REAL;

 begin

  If Sin(Az-Xz)>0.5 then

   Z:=(SQR(Sin(Xz)/Cos(Xz))+Ln(Az))/(Xz+Az)

  else

   Z:=Xz*2+SQRT(SQRT(Az))*3-Exp(Xz*5);

 end;



BEGIN

 Ha:=(Ak-An)/m;

 Hx:=(Xk-Xn)/n;

 Write('     ');

 For j:=0 to m do

  Write('      a=',An+Ha*j:3:1);

 WriteLn;

 For i:=0 to n do

  begin

   Write('x=',Xn+Hx*i:3:1);

   For j:=0 to m do

    Write(Z(Xn+Hx*i,An+Ha*j):11:4);

   WriteLn;

  end;

 ReadLn;

END.

громадное спасибо