Lotto programm

[Klaus01]

Hallo,

mach Dir doch drei Arrays

Delphi-Quellcode:

gezogeneZahlen : Array[1..6] of Byte;
gewaehlteZahlen: Array[1..6] of Byte;
ZahlenRichtig  : Array[1..6] of Byte;

Delphi-Quellcode:

k:=0;
for i:=1 to 6 do
  for j:=1 to 6 do
    if gewaehlteZahlen[i] = gezogeneZahlen[j] then
      begin  
        inc(k);
        ZahlenRichtig[k]:=gewaehlteZahlen[j];
      end;

Wenn dann am Ende k = 6 ist, dann stimmen 6 Zahlen überein.
Wenn es weniger sind entspricht k der Anzahl der richtigen Zahlen.
Die richtigen Zahlen stehen dann im Array ZahlenRichtig.

Grüße
Klaus