Лабы / 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.