Berechnung der Hauptdiagonalen eines Quadrates

**Scharfrichter**

Hi,
ich hätte hier mal eine interessante Fragestellung bei der ich einfach nicht weiter komme, vielleicht könnt ihr mir helfen. Die Fragestellung lautet wie folgt:
Gegeben sei folgendes statisches array:
Const N=....;
var F: array[1..N] of integer;

Es wird nun angenommen, dass N eine Quadratzahl ist, und, dass F als Quadrat interpretiert wird. Die Aufgabe ist es eine Prozedur zu schreiben, welche die Hauptdiagonale des Quadrates aus F mit ihren Komponenten Nummern belegt.

**nailor**

a) warum kein 2d-array?
b) der (0n+0), (1n+1), (2n+2)... te wert liegt jeweils auf der diagonalen, wenn man mit 0 beginnt und n die seitenlänge ist.

**Scharfrichter**

Wie soll das den syntaktisch verarbeitet werden in einer Prozedur, per for Schleife und dann über die Laufveriable i die einzelnen Diagonalenfelder bestimmen und setzen?

**nailor**

zusammenfalten · markieren

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...

Berechnung der Hauptdiagonalen eines Quadrates

Berechnung der Hauptdiagonalen eines Quadrates

Re: Berechnung der Hauptdiagonalen eines Quadrates

Re: Berechnung der Hauptdiagonalen eines Quadrates

Re: Berechnung der Hauptdiagonalen eines Quadrates

Forumregeln

Scharfrichter Registriert seit: 24. Nov 2004 21 Beiträge Delphi 7 Personal	#3 Re: Berechnung der Hauptdiagonalen eines Quadrates 12. Dez 2004, 19:51 Wie soll das den syntaktisch verarbeitet werden in einer Prozedur, per for Schleife und dann über die Laufveriable i die einzelnen Diagonalenfelder bestimmen und setzen?
	Zitat