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