Berechnung der Hauptdiagonalen eines Quadrates

[nailor]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  n = 2;
  max = n * n - 1;
var
  f: array[0..max] of integer;
  i: integer;
begin
  for i := 0 to max do
    f[i] := 0;

  i := 0;
  while (i <= max) do
    begin
      f[i] := 1;
      inc(i, n + 1);
    end;

  Memo1.Clear();
  i := 0;
  while (i <= max) do
    begin
      if i mod n = 0 then
        Memo1.Text := Memo1.Text + #13#10;

      Memo1.Text := Memo1.Text + inttostr(f[i]);
      inc(i);
    end;
end;

ps: mit nem 2d feld wäre es noch leichter, da könnte man einfach alle wo erster_index = zweiter_index auf 1 setzen...