fork(74) download 
  1. Program pi_wallis;
  2. Var p, r, diff : real;
  3. i : longint;
  4. Begin
  5. p:=1;
  6. i:=0;
  7. Repeat
  8. i:=i+2;
  9. r:=i/(i-1)*i/(i+1);
  10. diff:= (p*r) - p;
  11. p:=p*r;
  12. Until abs (diff) < 1e-8;
  13. Writeln ('par la formule de wallis pi = ', 2*p:2:7);
  14. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin 
Standard input is empty
stdout 
par la formule de wallis pi = 3.1414673
https://ideone.com/VjY02p
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
secret

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!