*** Hilfe ***

Für Fragen bezüglich QBasic (programmieren, Suche nach Programmen etc.) gibt es dieses Forum.

Moderator:Administrator

Locked
Ailton
Newbie
Posts:1
Joined:Mon Jun 02, 2003 7:38 pm
*** Hilfe ***

Post by Ailton » 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 !  

User avatar
crossroads
Administrator
Posts:34
Joined:Wed Feb 13, 2002 10:15 pm
Location:Germany
Contact:

Re: *** Hilfe ***

Post by crossroads » 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
crossroads (QBCafe Forum Admin)

Locked