Hallo,
"nebenan" läuft ja ein Sortierwettbwerb in der Assembler-Ecke mit 256 Bytes. Bei der letzten Assembler-Compo ging es ums Buchstaben-Umdrehen und es gab einen funktionierenden Basic-Code dazu (an dem ich mir dann auch das Hirn zerbrochen habe).
Diesmal ist kein Basic-Beispiel aufgeführt also dachte ich, ich schreibe eins. Sortieren braucht man doch, vor allem für Highscore-Tabellen.
Mein Code geht, aber es ist eine Pein, weil er so langsam ist. Kann das jemand schneller?
Code
10 print chr$(147)
20 input "wieviele zahlen";t
30 dim a(t):dim b(t):m=0:k=1
40 for i=1 to t
50 print "zahl "i;
55 input a(i)
60 next i
70 print "sortiere.."
250 for k=1 to t
260 for i=1 to t
270 for j=1 to t
280 if a(i)>=a(j) then m=m+1
290 next j
300 if m=t then b(k)=a(i):x=i
301 m=0
320 next i
325 a(x)=0:x=0
330 next k
400 for i=1 to t
410 print b(i)
420 next i
430 end
Alles anzeigen