Achtung. Optimierung beim Compiler

[himitsu]

Hab noch nie mitbekommen, daß es dadurch Probleme gibt.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

var
  i: Integer;
  InUse: Array[0..20] of Boolean;
  Sr, S: String;
begin
  for i := 0 to 20 do
    InUse[i] := Boolean(Random(2));
  Sr := '';
  for i := 0 to 20 do begin
    // zählt problemlos rückwärts
    if not InUse[i] then Sr := Sr + 'j' else Sr := Sr + 'n';
  end;
  S := '';
  for i := 0 to 20 do begin
    WriteLn(i);
    if not InUse[i] then S := S + 'j' else S := S + 'n';
  end;
  WriteLn(Sr);
  WriteLn(S);
end.