hallo Manfred,
sorry das ich mich umständlich/falsch ausgedrückt habe.
Du hast es aber perfekt gelöst, so wie das Dummerchen es meinte
Ausgabe Array "freq" habe ich so gemacht - ok so ... ?
'Häufigkeit der Zahlen
freq(i) = freq(i) + 1
freq(j) = freq(j) + 1
freq(k) = freq(k) + 1
freq(l) = freq(l) + 1
freq(m) = freq(m) + 1
freq(n) = freq(n) + 1
'Ausgegebene Reihen
sum = sum + 1
End If
Next n, m, l, k, j, i
Print #ak, ""
Print #ak, "Anzahl 6er-Kombis = "; sum
Print #ak, ""
Print #ak, "Zahl 01 = "; freq(1)
Print #ak, "Zahl 02 = "; freq(2)
Print #ak, "Zahl 03 = "; freq(3)
Print #ak, "Zahl 04 = "; freq(4)
Print #ak, "Zahl 05 = "; freq(5)
Print #ak, "Zahl 06 = "; freq(6)
Print #ak, "Zahl 07 = "; freq(7)
Print #ak, "Zahl 08 = "; freq(8)
Print #ak, "Zahl 09 = "; freq(9)
Print #ak, "Zahl 10 = "; freq(10)
Print #ak, "Zahl 11 = "; freq(11)
Print #ak, "Zahl 12 = "; freq(12)
Print #ak, "Zahl 13 = "; freq(13)
Print #ak, "Zahl 14 = "; freq(14)
Print #ak, "Zahl 15 = "; freq(15)
Print #ak, "Zahl 16 = "; freq(16)
Print #ak, "Zahl 17 = "; freq(17)
Print #ak, "Zahl 18 = "; freq(18)
Print #ak, "Zahl 19 = "; freq(19)
Print #ak, "Zahl 20 = "; freq(20)
Print #ak, "Zahl 21 = "; freq(21)
Print #ak, "Zahl 22 = "; freq(22)
Print #ak, "Zahl 23 = "; freq(23)
Print #ak, "Zahl 24 = "; freq(24)
Print #ak, "Zahl 25 = "; freq(25)
Print #ak, "Zahl 26 = "; freq(26)
Print #ak, "Zahl 27 = "; freq(27)
Print #ak, "Zahl 28 = "; freq(28)
Print #ak, "Zahl 29 = "; freq(29)
Print #ak, "Zahl 30 = "; freq(30)
Print #ak, "Zahl 31 = "; freq(31)
Print #ak, "Zahl 32 = "; freq(32)
Print #ak, "Zahl 33 = "; freq(33)
Print #ak, "Zahl 34 = "; freq(34)
Print #ak, "Zahl 35 = "; freq(35)
Print #ak, "Zahl 36 = "; freq(36)
Print #ak, "Zahl 37 = "; freq(37)
Print #ak, "Zahl 38 = "; freq(38)
Print #ak, "Zahl 39 = "; freq(39)
Print #ak, "Zahl 40 = "; freq(40)
Print #ak, "Zahl 41 = "; freq(41)
Print #ak, "Zahl 42 = "; freq(42)
Print #ak, "Zahl 43 = "; freq(43)
Print #ak, "Zahl 44 = "; freq(44)
Print #ak, "Zahl 45 = "; freq(45)
Print #ak, "Zahl 46 = "; freq(46)
Print #ak, "Zahl 47 = "; freq(47)
Print #ak, "Zahl 48 = "; freq(48)
Print #ak, "Zahl 49 = "; freq(49)
Close #ak Leider habe ich etwas vergessen zu schreiben.
Ich versuche es mal auszudrücken:
In der gewichte.txt habe ich ja die 49 Werte/Gewichte eingetragen.
Es kommt jedoch vor, das manche Werte mehrfach darin vorkommen.
Die 6er-Kombis die erstellt werden, sollen jedoch aus 6 unterschiedlichen
Werten bestehen.
Also Beispiel:
2,3,4,5,6,7
hat die Werte aus der (gewichte.txt)von
1+5+4+0+5+1 = 16
Da hier der Wert 5 mehrfach vorhanden ist - wird diese nicht (n i c h t) gespeichert.
LG
Angelina
|