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

UptoLike

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

Рубрика:

131

readln(xk);

write(‘Ввод Y0:’);

readln(y0);

write(‘Ввод Yk:’);

readln(yk);

write(‘Ввод H:’);

readln(h);

zmin:=100000;

x:=x0; y:=y0;

while (x<=xk) do

begin

z:=sqr(x)+sqr(y);

if(z<zmin) then begin

x1:=x;

zmin:=z;

end;

x:=x+h

end;

while (y<=yk) do

begin

z:=sqr(x1)+sqr(y);

if(z<zmin) then begin

y1:=y;

zmin:=z;

end;

y:=y+h

end;

writeln;

writeln(‘Pri X=’,x1:4:2,’ Y=’,y1:4:2,’Zmin=’,zmin:4:2);

readkey

end.