Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 128 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

126
write(‘Введите A:’);
readln(a);
a0:=a;
write(‘Введите B:’);
readln(b);
b0:=b;
write(‘Введите E:’);
readln(e);
y:=0.618*a+0.382*b;
z:=0.382*a+0.618*b;
a1:=sqr(y);
b1:=sqr(z);
2:if (a1<b1) then begin
b:=z;
if(b-a)<e then goto 1
else begin
z:=y;
b1:=a1;
y:=0.618*a+0.382*b;
a1:=sqr(y);
goto 2
end
end
else begin
a:=y;
if(b-a)<e then goto 1
else begin
y:=z;
a1:=b1;
z:=0.382*a+0.618*b;
b1:=sqr(x);
goto 2
end
end;
1:x:=(a+b)/2;
write(‘Pri X=’,x:2:2,’ Ymin=’,sqr(x):2:2);
writeln(‘ на отрезке [‘,a0:2:0,’;’,b0:2:0,’]’);
readkey
end.

Страницы