Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Würfelsimulator

Kiwibanana - Fr 05.11.10 10:10
Titel: Würfelsimulator

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 - Fr 05.11.10 10:30

Könnte ungefähr so aussehen:

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 - Fr 05.11.10 13:17

Hey,

is das nich das gleiche was du letztens schon gefragt hast: Würfelsimulator [http://www.delphi-forum.de/viewtopic.php?t=102304&highlight=w%FCrfelsimulator]
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.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!