fork download 
  1.  
  2. program lab3;
  3.  
  4. VAR i, z, K, DEGREE:INTEGER; M:Extended;  x, FRACTION, result: Extended;
  5. BEGIN
  6. M:=1; K:=2; x:=0.2; result:=0;
  7. i:=1;
  8. z:=1;
  9. for z:=1 to 15 do
  10. for i:=1 to 4 do begin
  11. M:=M*K;  
  12. DEGREE:=K-1;
  13. FRACTION:=(exp((DEGREE)*ln(x))/M);
  14. if i=3 then FRACTION:= (-1)*FRACTION;
  15. if i=4 then FRACTION:= (-1)*FRACTION;
  16. result:=result+FRACTION;
  17. K:=K+1;
  18. END;
  19. WRITELN (' Результат вычисления ', result);
  20. END.
Success #stdin #stdout 0s 5300KB
comments (?)
stdin 
Standard input is empty
stdout 
 Результат вычисления  1.06320456818485767078E-0001
https://ideone.com/oU4IVu
language:
Pascal (fpc 3.0.4)
created:
4 days 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!