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

UptoLike

ВУЗ: 

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

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

Рубрика: 

121
clrscr;
write(‘
Введите
A0:’);
readln(a0);
write(‘
Введите
B0:’);
readln(b0);
write(‘
Введите
N0:’);
readln(n0);
h0:=(b0-a0)/n0;
write(‘
Введите
E:’);
readln(e);
y0min:=100000;
x:=a0;
while (x<=b0) do
begin
y:=sqr(x);
writeln(‘Pri X=’, x:4:2,’ Y=’, y:4:2);
if (y<y0min) then begin
y0min:=y;
xmin:=x;
end;
x:=x+h0
end;
writeln;
writeln (‘Pri X0=’,xmin:4:2,’ Y0min=’,y0min:4:2);
writeln;
ymin:=y0min;
hm[1]:=h0;
i:=2;
repeat
a:=xmin-hm[i-1];
b:=xmin+hm[i-1];
write (‘
Введите
N:’);
readln(n);
hm[i]:=(b-a)/n;
x:=a;
while (x<=b) do
begin
y:=sqr(x);
writeln(‘Pri X=’, x:4:2,’ Y=’, y:4:6);
if (y<ymin) then begin
ymin:=y;
xmin:=x;
end;

Страницы