QuickBasic Cafe Forum

Posted: **Mon Jun 02, 2003 7:42 pm**

Hi !!  
Ich habe ne 5 in Info und muss eine art Arbeit schreiben um auf ne 4 zu kommen .. . Jetzt habe ich eine Aufgabe bekommen und habe bis nächste Woche Freitag Zeit !

a) SChreibe ein Programm, dass n Zufallszahlen der Größe nach sortiert und sortiert ausgibt .
Benutze dabei eine Prozedur die zwei übergebene Zahlen vertauscht und zurückgibt .

Prozedur : Unterprogramm ...
Zufallzahlen : Beispiel :

Randomize timer
x% = int ( rnd * 6 ) + 1
y% = int ( rnd * 6 ) + 1

b) Untersuche, wie sich die Laufzeit des Programms ändert, wenn sich die Anzahl der zu
sortierenden Zahlen ändert.Stelle den zusammenhang in einer Tabelle dar ![ b könnte ich noch selber dann]

WEr die a kann soll mir doch bitte Helfen !
DAs ist meine einzige rettung !
E-Mail : Ailt0n@web.de
DANKE !  

Posted: **Wed Jun 04, 2003 12:39 pm**

Hier mal ein Code (unkommentiert), der den Bubblesort-Algorithmus verwendet:

Code: Select all

DECLARE SUB Vergleich (a%, b%)
DEFINT A-Z
CLS
RANDOMIZE TIMER
INPUT "Wie viele Zufallszahlen "; size
INPUT "Zufallszahlen im Bereich von 1 bis "; max
DIM Liste(1 TO size), Sort(1 TO size)
FOR i = 1 TO size
Liste(i) = INT(RND * max) + 1
Sort(i) = Liste(i)
NEXT i
FOR i = 1 TO size - 1
FOR j = i + 1 TO size
Vergleich Sort(i), Sort(j)
NEXT j
NEXT i
CLS
PRINT "Unsortiert", "Sortiert"
FOR i = 1 TO size
PRINT Liste(i), Sort(i)
NEXT i


SUB Vergleich (a, b)
IF a > b THEN
SWAP a, b
END IF
END SUB

QuickBasic Cafe Forum

* Hilfe *

* Hilfe *

Re: * Hilfe *

QuickBasic Cafe Forum

*** Hilfe ***

*** Hilfe ***

Re: *** Hilfe ***

* Hilfe *

* Hilfe *

Re: * Hilfe *