Würfelsimulator

Kiwibanana · Hält's aus hier Beiträge: 6

Ein Programm soll ein Experiment simulieren. Dabei soll bestimmt werden, nach wie viel Würfen mit einem Würfel man die Augenzahlen 1 bis 6 in der richtigen Reihenfolge gewürfelt hat.
Wie kann man das ermöglichen ?
Wie sieht die repeat until Schleife aus ?
Danke für die Hilfe!!
LG Kiwibanana

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Könnte ungefähr so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k: integer;
begin
  i:= 0;
  j:=1;
  k:= 0;
  repeat
    i := random(6)+1;
    if i = j then
      inc (j)
    else j:=1;
    inc(k);
  until j=7;
  label1.Caption := inttostr(k);
end;

Und randomize nicht vergessen!

Bergmann89 · Verfasst: Fr 05.11.10 13:17

Hey,

is das nich das gleiche was du letztens schon gefragt hast: Würfelsimulator
Und da es bestimmt wieder eine Aufgabe eures Lehres ist find ich es gar nicht gut, das du gleich alles von uns vorgegeben haben willst. Das ist nich Sinn und Zweck des Forums. Wir helfen gern, wenn es irgendwo klemmt. Aber Hausaufgaben machen wir nicht!

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme