array [Boolean] of Integer/String

Smart pascal source code


const
  s: array [Boolean] of string = ['F', 'T'];
var
  b: array [Boolean] of Integer;
  v: boolean;

BEGIN
  b[false] := 10;
  b[true] := 20;

  v := false;

  Writeln(b[1 = 1]);  // 20
  Writeln(b[v]);      // 10

  Writeln(s[v]);      // F
  Writeln(s[not v]);  // T

      var b = [0,0],
         v = false;
      var s = ["F","T"];
      b[false?1:0] = 10;
      b[true?1:0] = 20;
      v = false;
      WriteLn(b[(1==1)?1:0]);
      WriteLn(b[v?1:0]);
      WriteLn(s[v?1:0]);
      WriteLn(s[(!v)?1:0]);