кто это с наших такой умный)))))) А я создателя темы знаю))) КСС-1ХХ рулит
Алексей Бриж. Не знаю тебя!!! Первый курс сейчас такие проги тоже пишет.
uses crt;
var x, y, X1, Xn, dx: real; r: string; p, n:integer;
begin
repeat
clrscr;
P:=1;
repeat
if p=1 then writeln('ўўҐ¤ЁвҐ ¤***лҐ X**з, XЄ®*, Ё и*Ј dx')
else writeln ('ўл ¤®ЇгбвЁ«Ё ®иЁЎЄг ЇаЁ ўў®¤Ґ ¤***ле. ‚ўҐ¤ЁвҐ ¤***л X**з, XЄ®*, Ё и*Ј dx б**з*«*');
readln(x1, Xn, dx);
P:=P+1;
until ((Xn>x1)and(dx>0))or((xn<x1)and(dx<0));
x:=x1;
if dx>0 then
repeat
if x<=0 then writeln('ў в®зЄҐ Y','(', X:0:1, ')', ' *Ґ ¬®Јг Ї®бзЁв*вм') else
begin
y:=0.9*((3/x)+ln(x));
writeln ('Y', '(', x:0:1, ')', '=', y:1:2);
end;
x:=X+dx ;
until (X>Xn);
;
if dx<0 then
repeat
if x<=0 then writeln('ў в®зЄҐ Y','(', X:0:1, ')', ' *Ґ ¬®Јг Ї®бзЁв*вм') else
begin
y:=0.9*((3/x)+ln(x));
writeln ('Y', '(', x:0:0, ')', '=', y:1:2);
end;
x:=X+dx;
until X<Xn;
writeln('…б«Ё ўл е®вЁвҐ ўл©вЁ **¦¬ЁвҐ Y, …б«Ё е®вЁвҐ а*ббзЁв*вм §**зҐ*Ёп дг*ЄжЁЁ б**з*«*, **¦¬ЁвҐ «оЎго Є«*ўЁиг');
r:=readkey;
if r='y' then break;
n:=0;
until n=2;
end.
вот пример. Сори за дос кодировку.
ах да не забываем нажать +++++)))
|