fork download
copy 
  1. const
  2.   xn = -3;
  3.   h = 0.3;
  4.   xk = 3;
  5. var
  6.   x, xm, fi, fim: real;
  7. begin
  8.   x := xn;
  9.   while x <= xk do
  10.     begin
  11.       fi := 3 * x * x + 2 * cos(x);
  12.       writeln('x = ', x:4:1, ' fi(x) = ', fi:8:5);
  13.       if (x = xn) or (fi < fim) then
  14.         begin
  15.           xm := x;
  16.           fim := fi
  17.         end;
  18.       x := x + h
  19.     end;
  20.   writeln('Min fi(x) = ', fim:0:5, ' with x = ', xm:0:1)
  21. end.
Success #stdin #stdout 0s 5408KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
x = -3.0 fi(x) = 25.02002
x = -2.7 fi(x) = 20.06186
x = -2.4 fi(x) = 15.80521
x = -2.1 fi(x) = 12.22031
x = -1.8 fi(x) =  9.26560
x = -1.5 fi(x) =  6.89147
x = -1.2 fi(x) =  5.04472
x = -0.9 fi(x) =  3.67322
x = -0.6 fi(x) =  2.73067
x = -0.3 fi(x) =  2.18067
x = -0.0 fi(x) =  2.00000
x =  0.3 fi(x) =  2.18067
x =  0.6 fi(x) =  2.73067
x =  0.9 fi(x) =  3.67322
x =  1.2 fi(x) =  5.04472
x =  1.5 fi(x) =  6.89147
x =  1.8 fi(x) =  9.26560
x =  2.1 fi(x) = 12.22031
x =  2.4 fi(x) = 15.80521
x =  2.7 fi(x) = 20.06186
x =  3.0 fi(x) = 25.02002
Min fi(x) = 2.00000 with x = -0.0
https://ideone.com/hoNTh2
language:
Pascal (fpc 3.0.4)
created:
1 year 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!