Лабы / Pascal.1.курс / part 1 / вариант 22 / lab5ex1

program lab5;
uses crt;
var
x1,x2,x,e: real;
k: integer;

begin
textcolor(1);
textbackground(2);
clrscr;
gotoxy(3,2);
writeln('ђҐиҐ­ЁҐ га ў­Ґ­Ёп ¬Ґв®¤®¬ ЁвҐа жЁ©');
gotoxy(3,4);
writeln('x*x*x+6x*x+20=0');
gotoxy(3,6);
write('‚ўҐ¤ЁвҐ ЈагЎ®Ґ §­ зҐ­ЁҐ Є®а­п x1=');
readln(x1);

gotoxy(3,8);
write('‚ўҐ¤ЁвҐ в®з­®бвм ўлзЁб«Ґ­Ё© e=');
readln(e);
writeln;
k:=0; x:=5*e;

while abs(x) >=e do
begin
x2:=x1-0.03*(x1*x1*x1+6*x*x+20);
x:=x2-x1;
k:=k+1;
x1:=x2;
end;
gotoxy(3,10);
writeln('Љ-ў® ЁвҐа жЁ©: ',k);
gotoxy(3,12);
writeln('‡­ зҐ­ЁҐ Є®а­п: ',x2);
READLN;

end.