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

[tema001]

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

Распечатать таблицу значений Z при изменении переменных величин а и х в данных промежутках с данными
шагами, если известно, что ан=1,3; ак=2,4; хн=0,1; хк=0,3; m=3; n=2

 

[Vladimir_S]

Пожалуйста. Только значение ан я заменил с 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.

 

[tema001]

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