Лабораторная работа №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<=xn do
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.
|
Главная
Каталог файлов
