|
Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge
Turbo Delphi für Win32
|
Re: Wiederholungsanweisungen
11. Feb 2008, 17:54
Delphi-Quellcode:
var
Hok: boolean;
begin
Counter := 0;
repeat
W1 := 1+Random(6);
W2 := 1+Random(6);
Inc(Counter);
HOk := W1=W2;
if not HOk then W1 := W2;
unitl Hok;
ungetestet und
[EDIT]
verbessert
Da sprach der Stumme zum Blinden: "Du wirst sehen ..."
oder
Wer lesen kann, ist klar im Vorteil!
|