fork download
copy 
  1. program Lab1s2;
  2.  
  3. function func(var x: real):real;
  4. var y: real;
  5. begin
  6.     y := x*x;
  7.     func := y*y - 13*y + 36/x;
  8. end;
  9.  
  10.  
  11. var   Fa,Fc,a,b,c: real;
  12.       f: text;
  13.       eps: real; 
  14. begin;
  15.    eps := 1e-4;
  16.    a:=1;
  17.    b:=2;
  18.    Fa:=func(a);
  19.    while b-a>=2*eps do
  20.    begin
  21.        c:=(a+b)/2;
  22.        Fc:=func(c);
  23.        if (Fa*Fc >= 0) then a:=c else b:=c;
  24.    end;
  25.    { Assign(f,'C:\TEXT.txt'); }
  26.    { Write(f, c); }
  27.    Writeln(c);
  28. end. 
  29.  
Success #stdin #stdout 0s 4188KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 1.495483398437500e+00
https://ideone.com/NonYyx
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!