fork(1) download
copy 
  1.     program ideone;
  2.     type tfunkcia = function(x:real):real;
  3.     function f(x:real):real;
  4.     begin f:=sin(x); end;
  5.  
  6.     procedure integral(f:tfunkcia; a,b:real; n:integer);
  7.     var sum:real;
  8.     var i:integer;
  9.     begin
  10.     sum:=0;
  11.     for i:=0 to n-1 do sum:=sum + f(a+(b-a)*i/n);
  12.     writeln(sum*(b-a)/(n));
  13.     end;
  14.  
  15.     begin
  16.     integral(@f,0,pi,10000);
  17.     end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 1.9999999835506610E+000
https://ideone.com/WqfcEA
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!