Array Initialization

Smart pascal source code


var
   ai : array [0..1] of Integer = [789, 123];
  ai2 : array [1..3] of Integer = [12, 34, 56];
  arr := [];
  astr: array [0..1] of string = ['a', 'b'];
  af1: array [1..3] of Float = [12, 3.4, 56];
  af2: array [2..3] of Float = [123, 456];

  arr2 := [1, 2, '3', 3.14, 'end'];
  ndx : Integer;
begin
  { test I }
  Writeln(Low(ai));   // 0
  Writeln(High(ai));  // 1
  Writeln(ai[0]); // 789
  Writeln(ai[1]); // 123

  Writeln(Format('%d - %d - %d', [Low(ai2), High(ai2), Length(ai2)]));  // 1 - 3 - 3
  Writeln(ai2[1]); // 12
  Writeln(ai2[2]); // 34
  Writeln(ai2[3]); // 56

  { test II }
  Writeln(Length(arr));  // 0
  Writeln(Low(arr));    // 0
  Writeln(High(arr));   // -1

  { test III }
WriteLn('----------');
  Writeln(Format('%d - %d - %d', [Low(astr), High(astr), Length(astr)]));  // 0 - 1 - 2
  Writeln(astr[0]);  // a
  Writeln(astr[1]);  // b

  Writeln(Format('%d - %d - %d', [Low(af1), High(af1), Length(af1)]));  // 1 - 3 - 3
  Writeln(af1[1]);  // 12
  Writeln(af1[2]);  // 3.4
  Writeln(af1[3]);  // 56

  Writeln(Format('%d - %d - %d', [Low(af2), High(af2), Length(af2)]));  // 2 - 3 - 2
  Writeln(af2[2]);  // 123
  Writeln(af2[3]);  // 456

  af2 := [7.8, 90];

  Writeln(Format('%d - %d - %d', [Low(af2), High(af2), Length(af2)])); // 2 - 3 - 2
  Writeln(af2[2]);  // 7.8
  Writeln(af2[3]);  // 90

{ test IV }
for ndx := Low(arr2) To High(arr2) do
   WriteLn(arr2[ndx]);
{ OUTPUT
 1
 2
 3
 3.14
 end
}

  var ai = [0,0], ai = [789, 123];
  var ai2 = [0,0,0], ai2 = [12, 34, 56];
  var arr = [],  arr = [];
  var astr = ["",""], astr = ["a", "b"];
  var af1 = [0,0,0], af1 = [12, 3.4, 56];
  var af2 = [0,0], af2 = [123, 456];
  var arr2 = [undefined,undefined,undefined,undefined,undefined],
	  arr2 = [1, 2, "3", 3.14, "end"];
  var ndx = 0;
  WriteLn(0);
  WriteLn(1);
  WriteLn(ai[0]);
  WriteLn(ai[1]);
  WriteLn("1 - 3 - 3");
  WriteLn(ai2[(1)-1]);
  WriteLn(ai2[(2)-1]);
  WriteLn(ai2[(3)-1]);
  WriteLn(0);
  WriteLn(0);
  WriteLn((-1));
  WriteLn("----------");
  WriteLn("0 - 1 - 2");
  WriteLn(astr[0]);
  WriteLn(astr[1]);
  WriteLn("1 - 3 - 3");
  WriteLn(af1[(1)-1]);
  WriteLn(af1[(2)-1]);
  WriteLn(af1[(3)-1]);
  WriteLn("2 - 3 - 2");
  WriteLn(af2[(2)-2]);
  WriteLn(af2[(3)-2]);
  af2 = [7.8, 90];
  WriteLn("2 - 3 - 2");
  WriteLn(af2[(2)-2]);
  WriteLn(af2[(3)-2]);
  for(ndx=0;ndx<=4;ndx++) {
	 WriteLn(arr2[ndx]);
  }