program na seřazení zadaných čísel

[martina146]

Ahoj, potřebovala bych poradit s programem, který mám vytvořit ve SMALL BASICU.
Má řadit čísla, která si uživatel zadá (k tomu jsem použila pole) od nejmenšího po největší... Pro řazení mám použít Bubble sort, ale nevím jak ho do programu zapsat...
Za každou radu budu vděčná

[Reklama]

[domitea]

Teď se to řeší zde (kód je založen na stejném principu)

P.S. Se nějak s tím small basicem roztrhl pytel, kde ten Visual Basic, C, C++ a můj oblíbený C# Jestli to takhle půjde dál, bude to chtít vlastní sekci

[X]

Já chci vlastní sekci pro nejlepší, nejvýkonnější a uživatelsky přítulný Sam Basic a Master Basic

PŘÍKAZY SAM BASICU + SAM DOSU (MASTER BASIC + MASTER DOS ZNAČNĚ ROZŠIŘUJE PALETU PŘÍKAZŮ)

► Zobrazit spoiler

ABS
ACS
AND
ASN
AT
ATN
AUTO
BEEP
BIN
BIN$
BLOCKS
BLITZ
BOOT
BORDER
BRIGHT
BUTTON
CALL
CHR$
CIRCLE
CLEAR
CLOSE
CLOSE SCREEN
CLS
CODE
CONTINUE
COS
CSIZE
DATA
DEFAULT
DEF FN
DEF KEYCODE
DEF PROC
DELETE TO
DEVICE
DIM
DIR
DISPLAY
DIV
DO
DPEEK
DPOKE
DRAW
DUMP
DUMP CHR$
ELSE
ELSE IF
END IF
END PROC
ERASE
EXIT IF
EXP
FATPIX
FILL
FLASH
FOR
FORMAT
FREE
GET
GOSUB
GOTO
GRAB
HEX$
IF
IN
INK
INKEY$
INPUT
INSTR
INT
INVERSE
ITEM
KEY
KEYIN
LABEL
LEN
LENGTH
LET
LIST
LLIST
LIST TO
LIST FORMAT
LLIST FORMAT
LN
LOAD
LOCAL
LOOP
LOOP IF
LPRINT
MEM$
MERGE
MOD
MODE
MOVE
NEW
NEXT
NOT
ON
ON ERROR
OPEN
OPEN SCREEN
OR
OUT
OVER
PALETTE
PAPER
PAUSE
PEEK
PEN
PI
PLOT
POINT
POKE
POP
PRINT
PUT
RAMTOP
RANDOMIZE
READ
RECORD STOP
RECORD TO
REM
RENUM
RENUM TO
RENUM STEP
RESTORE
RETURN
ROLL
RND
RUN
SAVE
SAVE LINE
SAVE CODE
SAVE SCREENS
SAVE DATA
SAVE LINE
SCREEN
SCREEN$
SCROLL
SCROLL CLEAR
SCROLL RESTORE
SGN
SIN
SOUND
SQR
STEP
STOP
STRING$
STR$
SVAR
TAB
TAN
TO
TRUNC$
UDG
UNTIL
USR
VAL
VAL$
VERIFY
VERIFY CODE
VERIFY DATA
WHILE
WINDOW
XMOUSE
YMOUSE
XOS
XRG
YOS
YRG
XPEN
YPEN

[faraon]

Ahoj, umíš použít cyklus For? Bubblesort neboli bublinkové řazení se jmenuje podle toho, že největší nebo nejmenší hodnoty postupně "vybublávají" na svou požadovanou pozici. Je to jednoduchý, ale zoufale neefektivní algoritmus

Takže například máš pole čtyř čísel p[ ] v tomhle pořadí: 8, 5, 1, 3, které se dá od nejmenšího po největší seřadit třeba tímhle způsobem:

Kód: Vybrat vše

For i = 1 To 3
    For j = 3 To i Step -1
        If p(j+1) < p(j) Then
            w = p[j]
            p[j] = p[j+1]
            p[j+1] = w
        EndIf
    EndFor
EndFor

Je to jeden z řady způsobů jak se dá Bubblesort provést, obsahuje dva vnořené cykly i a j, které běží "proti sobě".
Vnější cyklus i ukazuje kam se má hledaná hodnota umístit, pod ní je pole už setříděné.
Vnitřní cyklus j v opačném směru prohledává nesetříděný zbytek pole zhora dolů a posunuje menší čísla níž až do jejich definitivní pozice.
Pokud je hodnota o jednu buňku nad ukazatelem j menší než ta na kterou ukazuje, tak se mezi sebou prohodí, k tomu slouží pomocná proměnná w.
Když otočíš znaménko v podmínce z < na >, bude se řadit obráceně - od největšího po nejmenší číslo, zkus si to.
Tady vidíš stav během jednotlivých průchodů:

Kód: Vybrat vše

i       j  |  p[1]    p[2]    p[3]    p[4]
-----------+-------------------------------
1       3  |    8       5       1       3
1       2  |    8       1       5       3
1       1  |    1       8       5       3
2       3  |    1       8       3       5
2       2  |    1       3       8       5
3       3  |    1       3       5       8

Pro srovnání se hodí zobrazit nesetříděné pole před řazením, a potom do druhého řádku setříděný výsledek Další způsoby jak Bubblesort vyrobit včetně animací najdeš třeba na Wikipedii.

---

domitea: To víš, vysvědčení se blíží, je potřeba ukázat co se na gymplu naučili/y za celý rok A proč zrovna Small Basic? Protože naše školství bylo před pár lety prodáno do otroctví za třicet stříbrných

Langer-Ballmer.jpg (15.74 KiB) Zobrazeno 5345 x

X: Hlásím se o můj oblíbený Sinclair BASIC, však ten SAM z něj vycházel

[X]

To jo, ale Sinclair Basic je dost zoufalý

[faraon]

Ale kdeže, zoufalý byl microsoftí BASIC v.2 na Commodore 64. Sinclair BASIC na Spectru/Didaktiku dokázal úžasná kouzla, pochopitelně že jeho předchůdce na ZX-81 se s ním nemohl srovnávat, ale ten se vešel do 8 KiB!

[X]

Tak souhlasím, že MS Basic je ještě zoufalejší

[domitea]

On i ten Visual Basic není žádná výhra

[X]

Jako mě fakt chybí nějaký primární Basic na PC přímo zadrátovaný v ROM, ale ne ten MS

[PetrJan]

Dobrý den,
mohl bych poprosit o opravu? Stále mi to vypíše akorát "5,8,5,8,8".
A mám dotaz na Faraona... Proč v jeho kodě je na konci "3,3,3,5,5,8". Proč tam není "1" a proč se tam ty čísla opakují? Potřebuji vypsat pouze ty, která jsem zadal... Díky

Kód: Vybrat vše

TextWindow.WriteLine("Kolik čísel chceš seřadit?")
pocet = TextWindow.ReadNumber()

For i = 1 To pocet
  TextWindow.WriteLine("Zadej " + i + ". číslo")
  cislo[i] = TextWindow.ReadNumber()
EndFor
   
For i = 1 To pocet-1
    For j = pocet-1 To i Step -1
        If cislo[j+1] < cislo[j] Then
            w = cislo[j]
            cislo[j] = cislo[j+1]
            cislo[j+1] = w
          EndIf
          TextWindow.WriteLine(w)
      EndFor
EndFor


[faraon]

Ta čísla co vidíš v posledním sloupci jsou obsah buňky p[4] řazeného pole, takže ten tvůj program úplně správně vypisuje to, co po provedeném swapnutí proměnných zůstalo v pomocné proměnné w. Jestli chceš vidět obsah seřazeného pole, musíš na konec programu dopsat ještě jednu smyčku a nechat si ho zobrazit celé:

Kód: Vybrat vše

For i = 1 To pocet
  TextWindow.WriteLine(cislo[i])
EndFor


Pak zjistíš že ten tvůj program řadí dobře, jen ti o tom neměl jak říct...

Ten řádek TextWindow.WriteLine(w) klidně vyhoď (nebo odkomentuj), je tam zbytečný. Pokud ho nepoužíváš při ladění programu, abys věděl co se ve kterém okamžiku přesně děje, tak tě už jenom mate

A příště si založ vlastní téma.

[PetrJan]

Moc jsem to nepochopil, ale funguje to. Takže díky moc.
Proč bych měl zakládat nové téma, když tohle se věnuje přesně tomuto problému?