Alexei18

Const
An=0.3;
Ak=0.7;
Xn=0.1;
Xk=0.2;
m=3;
n=2;

Var
i,j:byte;
W,Ha,Hx,a,x:real;

Function ArcCos(X:real):real;
begin
if X=1 then ArcCos:=0 else
if X=-1 then ArcCos:=Pi else
ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
end;

Function Max(g1,g2:real):real;
begin
if g1>g2 then Max:=g1 else Max:=g2;
end;

Function F1(a1,x1:real):real;
begin
F1:=ArcTan(a1*x1)*3;
end;

Function F2(a2,x2:real):real;
begin
F2:=Sqrt(Sqr(a2)+Sqr(x2));
end;

Function F3(a3,x3:real):real;
begin
F3:=ArcCos(a3+x3/10);
end;

Begin
Ha:=(Ak-An)/m;
Hx:=(Xk-Xn)/n;
Write(' x\a ');
For j:=0 to m do Write((An+Ha*j):7:3);
Writeln;
For i:=0 to n do
begin
Write((Xn+Hx*i):7:3);
For j:=0 to m do
begin
a:=An+Ha*j;
x:=Xn+Hx*i;
W:=Max(Max(F1(a,x),F2(a,x)),F3(a,x));
Write(W:7:3);
end;
Writeln;
end;
Readln
End.

Alexei18

Распечатать таблицу значений W при изменении перменных величин a и x в данных промежутках с данными шагами:
An=0.3 , Ak=0.7 , Xn=0.1 , Xk=0.2 , m=3 , n=2
W=max{3*arctg(ax);√(a^2+b^2 );arcos(a+ x/10)}

An≤A≤Ak , Ha=(Ak-An)/m
Xn≤X≤Xk, Hx=(Xk-Xn)/n

Vladimir_S

Ответ дан здесь: Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм". Эта ТЕМА ЗАКРЫТА.