Цитата:
Сообщение от Alexei18
он сказал что первый столбик x/a второй например х, третий а и т.д.
|
Не, я так не умею таблицы составлять. Впечатление, что "Учитель" просто ни бельмеса не понял в структуре таблицы. Так объясните ему, что х\а - это вовсе не результат какого-то деления (и, кстати, слэш там не зря обратный), а просто в первом столбце - значения параметра х, в первой строке - параметра а, на пересечениях строк/столбцов - значения искомой функции при данных х и а. Какого рожна еще надо? Попробуйте это объяснить "Учителю".
Ну а уж если он будет упорствовать, то покажите ему следующий вариант программы, объяснив, что это для полных идиотов:
Код:
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(' ');
For j:=0 to m do Write(' a=',(An+Ha*j):5:3);
Writeln;
For i:=0 to n do
begin
Write('x=',(Xn+Hx*i):5: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=',W:5:3);
end;
Writeln;
end;
Readln
End.