AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Zufallszahl von 1-6 100mal anzeigen lassen
Thema durchsuchen
Ansicht
Themen-Optionen

Zufallszahl von 1-6 100mal anzeigen lassen

Ein Thema von DelFreak · begonnen am 22. Apr 2007 · letzter Beitrag vom 22. Apr 2007
 
DelFreak

Registriert seit: 10. Apr 2007
Ort: NRW
23 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Zufallszahl von 1-6 100mal anzeigen lassen

  Alt 22. Apr 2007, 16:55
@sakura
meine bisherige Lösung ist keine Lösung:
Zahlen: Array [1..100] of String;

procedure TForm4.Button1Click(Sender: TObject);
begin
Zahlen := random(6) + 1;
Memo1.Text := Zahlen;
Ich glaube aber auch nicht wenn es klappen würde Array u. Integer passt nicht zusammen
glaube ich nicht das das Prog mir auch nur eine Zahl anzeigen würde !
while
Zahlen = not 100 do random (6) + 1
do
keine Ahnung
(Ich weiß nicht wie ich dem Programm sagen soll das er 100mal die Zahl ausrechen soll und
sie mir dann alle anzeigt)

@Rakshasa
Du hast tatsächlich recht meine Mathe HA hat mich darauf gebracht da ich 100 mal nen Würfel werfen
musste und mir dann die ganzen Werte notieren müssen (das gleich auch mit eine Münze
hab ich aber schon gemacht)
und da wollte ich doch mal sehen ob man das nicht auch vom Pc ausrechnen lassen könnte.
Is ja auch Zufall

(Aber ich werde meine HA wohl auf die normale Art machen müssen *g*)
Gruß,
DelFreak
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz