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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

140
Процедура реализации метода полного перебора для рассмат-
риваемого примера:
Uses crt;
const
xo=3.72; yo=6.28;
dx=0.01; dy=0.02;
var
zm,xz,yz,x,y,z: real;
i,j: integer;
begin
clrscr;
zm:=100;i:=0;
x:=0.9*xo;
y:=0.5*yo;
while x<1.1*xo do
begin
while y<2.5*yo do
begin
i:=i+1;
z:=5*x*x+x*y-7*y*y;
if z<zm then
begin
zm:=z; xz:=x; yz:=y;
end;
y:=y+dy;
end;
x:=x+dx;
end;
WriteLn('Zmin= ',zm:5:2);
WriteLn('Xzmin= ',xz:5:2);
WriteLn('Yzmin= ',yz:5:2);
WriteLn('Рассчитано вариантов: ', i);
end.
Результаты решения:
Zmin= -1612.49;
Xzmin= 3.35;
Yzmin= 15.68.
Рассчитано вариантов: 628. 
     Процедура реализации метода полного перебора для рассмат-
риваемого примера:
     Uses crt;
     const
     xo=3.72; yo=6.28;
     dx=0.01; dy=0.02;
     var
     zm,xz,yz,x,y,z: real;
     i,j: integer;

    begin
    clrscr;
     zm:=100;i:=0;
     x:=0.9*xo;
     y:=0.5*yo;
     while x<1.1*xo do
     begin
     while y<2.5*yo do
     begin
     i:=i+1;
     z:=5*x*x+x*y-7*y*y;
     if z

Страницы