Лабораторная работа №9

Лабораторная работа №9
Ввод вывод”
Вариант – 18
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)

program Lab9;
const eps=0.5;
var dy, x, x0, xn, hx, ymin, y, ymax : real;
k,p,l,i : integer;
begin
x0:=1;
hx:=0.5;
xn:=4;
i:=round(1/eps); {—Ёб«® в®зҐЄ ­ ®бЁ Є®®а¤Ё­ в}
x:=x0; {ЋЇаҐ¤Ґ«Ґ­Ёп ¬Ё­/¬ е §­ зҐ­Ёп дг­ЄжЁЁ}
ymin:=ln(x);
ymax:=ln(x);
while x begin
y:=ln(x);
if ymax if ymin>y then ymin:=y;
writeln(y);
x:=x+hx;
end; {ЋЇаҐ¤Ґ«Ґ­ЁҐ ЇҐаЁ®¤ Єў ­в®ў ­Ёп}
dy:=(ymax-ymin)/i;
writeln(‘ ‘:30,’Ћ‘њ Ћђ„€ЌЂ’’);
writeln(‘ 0———————————————————-> y’);
x:=x0; {‚лў®¤ Ја дЁЄ Ё Ј®аЁ§®­в «м­®© ®бЁ}
k:=round(-ymin/dy);
for i:=1 to round((xn-x0)/hx+1) do
begin
x:=x0+(i-1)*hx;
y:=x*x;
p:=round((y-ymin)/dy);
writeln(‘ |’:k,’.’:p);
end;
writeln(‘ v x’,ymax,’ ‘,ymin);
readln
end.