Turbo Pascal

stanley · 27.02.2000

ich habe folgendes Problem: ich muss mehrere Proceduren in zufälliger Reihenfolge ausgeben, jede darf nur einmal vorkommen, wie mache ich denn sowas , über ein array? bitte helft mir...

FerFemNemBem · 28.02.2000

...kannst Du bitte etwas genauer, meine Phantasie reicht nicht...

CU

------------------
Ich wollte mich selbst vergessen, um anderen Freude zu machen. Von da an war ich glücklich.

Homer Simpson 79 · 28.02.2000

Hi
ist nicht so schwer:
randomize() heißt die Zufallsfunktion. (Geht über den Timer.)
if zufallszahl=1 then procedure 1
if zufallszahl=2 then procedure 2
...
lasse in den Proceduren immer eine globale Variable (oder setzen).
in jeder Procedure Abfrage ob Vaiablen gesetzt. Wenn nicht führe Procedure aus, sonst überspringen.
HOMER

TT · 29.02.2000

Ich würde es über ein zusätzliches Array of Boolean machen.

Auch über randomize, allerdings die Abfrage dann ungefähr so:

erledigt : Array[1..10] OF boolean;
zahl : Byte;

zahl := randomize(10);
while erledigt[zahl] zahl := randomize;
switch zahl
case 1:
Proz1;
case 2:
Proz2;

....
End;

Kann sein, daß einige Fehler im Code sind, aber auf diese Weise würde ich es machen. Die Fehler kommen von den 39° Fieber!

TT

stanley · 29.02.2000

Danke euch, habe es nun auf die Reihe bekommen, aber mal ne andere Frage, kann es sein, das wenn man sich hier registrieren läßt, und die mailaddy ist die selbe, das die Daten gleich wieder gelöscht werden?

iss nämlich der acci von meinem bruder *winke*, der name war noch im Explorer gespeichert, meiner funzt nicht mehr

chrome · 04.03.2000

<BLOCKQUOTE><font size="1" face="Verdana, Arial">Zitat:</font><HR>Original erstellt von Homer Simpson 79:
Hi
ist nicht so schwer:
randomize() heißt die Zufallsfunktion. (Geht über den Timer.)
if zufallszahl=1 then procedure 1
if zufallszahl=2 then procedure 2
...
lasse in den Proceduren immer eine globale Variable (oder setzen).
in jeder Procedure Abfrage ob Vaiablen gesetzt. Wenn nicht führe Procedure aus, sonst überspringen.
HOMER[/quote]

das wird aber nicht funzen wenn die prozeduren immer nur einmal aufgerufen werden sollen

------------------
---Greetz---
http://chrome.notricks.de
http://www.digital-chaoz.de

Homer Simpson 79 · 12.03.2000

@chrome:
Weshalb habe ich im letzten Satz wohl geschrieben, dass man eine globale Variable setzen soll? DENK DENK DENK.....
Und es funzt doch.....
HOMER

chrome · 12.03.2000

:supergrin:

Turbo Pascal

stanley

FerFemNemBem

Homer Simpson 79

TT

stanley

chrome

Homer Simpson 79

chrome

Turbo Pascal

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums