Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Закрытая тема
 
Опции темы Опции просмотра
Старый 23.10.2012, 16:36   #1 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, составить блок-схему

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 вне форума  

Старый 23.10.2012, 16:36
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение вашего вопроса можно попытаться найти в аналогичных темах

Составить блок-схему
Помогите составить блок-схему и программу
Составить блок-схему и программу
Составить блок-схему и операторную схему
Помогите составить программу в Pascal и блок-схему

Старый 23.10.2012, 16:37   #2 (permalink)
Alexei18
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
Alexei18 вне форума  
Старый 23.10.2012, 20:34   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,343
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Ответ дан здесь: Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм". Эта ТЕМА ЗАКРЫТА.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:34.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.