fork(1) download
copy 
  1. Program qroot;
  2. {$ifdef FPC}
  3. {$mode TP}
  4. {$endif}
  5. {$N-}
  6. Const
  7.   ta: Array[0..3] Of Longint = (8, 27, 64, 125);
  8. Var
  9.   v: Longint;
  10.   ir: Longint;
  11. Function NthRoot(b, n: Longint): Longint;
  12. Begin
  13.   NthRoot := Trunc(Exp((1/n)*Ln(b)));
  14. End;
  15. Begin
  16.   For v := 0 To 3 Do
  17.     Begin
  18.       ir := NthRoot(ta[v], 3);
  19.       Writeln('ta[v] = ', ta[v], ', ir = ', ir);
  20.     End;
  21.   Readln;
  22. End.
  23.  
Success #stdin #stdout 0s 4564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ta[v] = 8, ir = 1
ta[v] = 27, ir = 2
ta[v] = 64, ir = 3
ta[v] = 125, ir = 5
https://ideone.com/sOpVAl
language:
Pascal (gpc 20070904)
created:
4 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!