fork(1) download
copy 
  1. program ideone;
  2.  
  3. type
  4.   TDoubleDynArray = array of Double;
  5.  
  6. var
  7.   ddaSource, ddaDest: TDoubleDynArray;
  8. begin
  9.   SetLength(ddaSource, 3);
  10.   ddaSource[0] := 3.14;
  11.   ddaSource[1] := 2.51;
  12.   ddaSource[2] := 4.25;
  13.  
  14.   SetLength(ddaDest, Length(ddaSource));
  15.   Move(ddaSource[0], ddaDest[0], Length(ddaSource) * SizeOf(Double));
  16.  
  17.   WriteLn(ddaDest[0]:2:2);
  18.   WriteLn(ddaDest[1]:2:2);
  19.   WriteLn(ddaDest[2]:2:2);
  20. end.
  21.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3.14
2.51
4.25
https://ideone.com/y7FqBx
language:
Pascal (fpc 3.0.4)
created:
9 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!