Моделирование технических систем. Дьячков Ю.А - 145 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

145
prir;
end;
end;
Procedure opt1;
begin
for j1:=1 to n1 do
begin
j9:=0;il:=0;
nach_toch;
dx:=dxx;
x11:=x1[i1];
prirasc;
dx:=-dxx;
x11:=x1[i1];
prirasc;
if j9<>0 then
begin
dx:=xdx;
i1:=j9;
prir;
end;
end;
end;
begin
clrscr;
dxx:=0.01;n:=2;n1:=100;i:=0;zm:=0;
gpr:=37.87;
dsn[1]:=1.11;dsn[2]:=1.795;
dux[1]:=2.34; dux[2]:=4.575;
opt1;
WriteLn('Zmax= ',zm:5:2);
WriteLn('Xzmax= ',xz:5:2);
WriteLn('Yzmax= ',yz:5:2);
WriteLn('gm= ',gm:5:2);
WriteLn('Рассчитано вариантов: ', i);
end.
На основе рассмотренной процедуры получены данные:
Zmax = 159.63; 
prir;
end;
end;

Procedure opt1;
begin
for j1:=1 to n1 do
begin
j9:=0;il:=0;
nach_toch;
dx:=dxx;
x11:=x1[i1];
prirasc;
dx:=-dxx;
x11:=x1[i1];
prirasc;
if j9<>0 then
begin
dx:=xdx;
i1:=j9;
prir;
end;
end;
end;

begin
clrscr;
dxx:=0.01;n:=2;n1:=100;i:=0;zm:=0;
gpr:=37.87;
dsn[1]:=1.11;dsn[2]:=1.795;
dux[1]:=2.34; dux[2]:=4.575;
opt1;
WriteLn('Zmax= ',zm:5:2);
WriteLn('Xzmax= ',xz:5:2);
WriteLn('Yzmax= ',yz:5:2);
WriteLn('gm= ',gm:5:2);
WriteLn('Рассчитано вариантов: ', i);
end.

На основе рассмотренной процедуры получены данные:
Zmax = 159.63;
                         145

Страницы