Roma_0297

Untitled

Jan 28th, 2012
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.75 KB | None | 0 0
  1. program Project15a;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.   var
  8.     n,k,i,a,b,c,d:integer;
  9.     left,right,per:extended;
  10.   function cubroot(x:extended):extended;
  11.       begin
  12.         result:=(a*x*x*x)+(x*x*b)+(c*x)+d;
  13.       end;
  14. begin
  15.   //reset(input,'cubroot.in');
  16.   //rewrite(output,'cubroot.out');
  17.   read(a,b,c,d);
  18.   left:=-1000;
  19.   right:=1000;
  20.   for i:=1 to 60 do
  21.     begin
  22.       per:=(right+left)/2;
  23.       if cubroot(per)>0 then right:=per;
  24.       if cubroot(per)<0 then left:=per;
  25.       if cubroot(left)=0 then
  26.         begin
  27.           write(left);
  28.           exit;
  29.         end;
  30.       if cubroot(right)=0 then
  31.         begin
  32.           write(right);
  33.           exit;
  34.         end;
  35.     end;
  36.   write(per);
  37.   readln;
  38.   readln;
  39. end.
Advertisement
Add Comment
Please, Sign In to add comment