entweder du nimmst ein Array[100] füllst es zu 70% mit der einen Zahl und den Rwest mit der Anderen, mischst das und verteilst den Inhalt auf die 10x10 Felder, dann hast du genau 70% Verteilung,
oder fals es nur "ungefähr" 70% sein sollen, dann halt Random direkt versenden und je nach Wertebereich deine Werte einsetzen.
If Random < 0.7 Then x := 1 Else x := 0;
@arbu man:
random(9)+1 = 1..9, da random(9) = 0..8 ist
also wie wäre es dann damit?
Delphi-Quellcode:
zahl:=random(10); // 0..9
if zahl in 0..6 then result:=1 else result:=0;
zahl:=random(10); // 0..9
if zahl < 7 then result:=1 else result:=0;
if random(10) < 7 then result:=1 else result:=0;
[edit]schreibfehler...schreibfehler...nmachtrag...schrei bfehler