23.10.2012, 16:36 | #1 (permalink) |
Member
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, составить блок-схему
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. |
23.10.2012, 16:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение вашего вопроса можно попытаться найти в аналогичных темах Составить блок-схему Помогите составить блок-схему и программу Составить блок-схему и программу Составить блок-схему и операторную схему Помогите составить программу в Pascal и блок-схему |
23.10.2012, 16:37 | #2 (permalink) |
Member
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Распечатать таблицу значений 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 |
23.10.2012, 20:34 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ответ дан здесь: Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм". Эта ТЕМА ЗАКРЫТА.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|