Помогите, пожалуйста, составить блок-схему
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. |
Распечатать таблицу значений 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 |
Ответ дан здесь: http://www.tehnari.ru/f41/t79602/. Эта ТЕМА ЗАКРЫТА.
|
Часовой пояс GMT +4, время: 13:43. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.