Wieder mal Kombinationen

[sx2008]

Es sind 5*5*5*5*5*5*5*5 = 5 ^ 8 = 390625 mögliche Kombinationen.

[BlackViper73]

Ich danke euch beiden

Zitat von sx2008:

Es sind 5*5*5*5*5*5*5*5 = 5 ^ 8 = 390625 mögliche Kombinationen.

Stimmt, das genau war mein Denkfehler, also kann ich das ganze mit 8 Schleifen und einem kleinen Array für die Werte lösen.

VG Jarno

[mentaltec]

ungefähr so

Code:

var
  ziffer : Array[0..8] of char o.ä. = ('0','0','0','0','0','0','0','0','0');  // bei char #30..#34 kannste gleich writln(leftstr(Ziffer[0])) glaub ich

proc incThis(stelle : Int);
begin
  inc(ziffer[stelle]);
  if (Ziffer[stelle] = '5') then
  begin  //uebertrag
    incThis(succ(stelle));
    Ziffer[stelle]:='0';
  end;
end;

begin
while ziffer[8] = '0' do  // Ziffer[8] stellt hier das Carry-bit dar
  incThis(0);   // inc lowest digit
end;