H.-J. GATSCHE90F(SX1,SY);(154):W(509):W1380d(W10(SX1,SY);" ":602SX3ZE30:SXSX3:30<W11(SX1,SY);" ":30FSX2ZA30:SXSX3:30PZ4000:E$(200),S$(200),A(200),S(18,1) d60000:N0ZZ24:ZZ302n:" Sortierverfahren"::^x" Eingabe Verfahren Ausgabe"u15,29,2,10:7,1::" Strings":::" Zahlen"::" Zufall":ZZ30:::" keine"ZZ30::" Ende"SX15:SY2:ZA15:ZEZZ:30:SX24T1:ESX34:T0E5350415,29,16,24:7,1:S:" Bubble":::" Quick"d::" ohne"SX15:SY16:ZE24:30:VSX3415,29,29,37:7,1::" Format":::" ohne"SX15:SY29:ZE21:30:A1SX34:::" steigend"::" fallend"-SX22:ZA22:ZE28:30:A2(SX19)3U0,31,0,39:6,0::1,30,1,38:7,1:":11);"S O R T I E R E N":4,29,2,37:8,6:,T0E420,420,3706I1N:S$(I)E$(I):A(I)I:@N1V480,590JA21090,1180T100 ^0,31,0,39:7,1:::256:!h ZUFALLSZAHLENYr:" Wieviele Elemente sollen sortiert werden?";N}|:" Zahlenbereich von 0 bis";BX1N:E$(X)((1)B):: EINGABEZYKLUS(31,9);"Mit @ Eingabe beenden"; X1200:"(";X;") ";:"";E$(X):E$(X)""E$(X)"0"0 E$(X)"@"NX1:X200d :6,0:(31,9);" ";:8,6:j   BUBBLE FUER STRINGS (13,8);"SORTIEREN MIT BUBBLE-SORT":E1540 X0N:FL0:Y0N1 S$(A(Y))S$(A(Y1))AA(Y):A(Y)A(Y1):A(Y1)A:FL1 :FL0XN! ::  BUBBLE FUER ZAHLENR X0N:F0:Y0N1 &(S$(A(Y)))(S$(A(Y1)))AA(Y):A(Y)A(Y1):A(Y1)A:FL1 0:FL0XN :: D QUICK FUER STRINGS N(13,8);"SORTIEREN MIT QUICK-SORT":E1800 XX0:S(0,0)0:S(0,1)N* bLS(X,0):RS(X,1):XX1F lYL:JR:HA(((RL)2))_ vS$(A(Y))S$(H)660m YR660| YY1:630 S$(A(J))S$(H)690 JL690 JJ1:660 YJMA(Y):A(Y)A(J):A(J)M:YY1:JJ1 YJ630 (RY)(JL)740% LJXX1:S(X,0)L:S(X,1)J2 LY:760S YRXX1:S(X,0)Y:S(X,1)R[ RJh RL620v X0610|   QUICK FUER ZAHLEN X0:S(0,0)0:S(0,1)N *LS(X,0):RS(X,1):XX1 4YL:JR:HA(((RL)2)) >(S$(A(Y)))(S$(H))860 HYR860" RYY1:830A \(S$(A(J)))(S$(H))890O fJL890^ pJJ1:860 zYJMA(Y):A(Y)A(J):A(J)M:YY1:JJ1 YJ830 (RY)(JL)940 LJXX1:S(X,0)L:S(X,1)J LY:960 YRXX1:S(X,0)Y:S(X,1)RRJRL820"X0810(; FORMATIERUNGIE11060j PRINT USING ERSATZ - 0.XXXS$(0)S$(A(I)):H0(".",S$(0)):S$(S$(0),(S$(0))H0)((S$(0)))0(S$(0))0S$(A(I))"0."S$((S$(0)))0(S$(0))1(S$(0))0S$(A(I))"-0."S$9H2(".",S$(0)):H20H2(S$(0))1M$H15(((Y)))S.r8 AUSGABE STEIGEND (VORW.)B:Y0:Z0:H11:H210L:I1NVYY1:A111000`H1);Y;22H2);S$(A(I))jZZ1:Z20IN(28,36);24;(138)::::Z0t * AUSGABE FALLEND (RUECKW.)C:Y0:Z0:H11:H210QIN11[1110k` TITELBILDj0,31,0,39:7,0::(14849)6360030t(15,14);"M O M E N T !":I0279:X:14848I,X:~2,7,3,5:14248,248:14249,184:"uvwxyz"; '14248,200:14249,185:"abc":3,7,35,36Z286,232,15,7:287,231,12:287,230,9:"defghi"2,6,10,30:14248,248:14249,184:"ad""bsfghdhdfghdfklfklrq""c c ieijc ijcmncmnop""______te____________":14248,0:14249,2549,30,1,38:7,2::(7,1);">>>> f}r die Informatikausbildung <<<<":u63,63,63,56,56,56,56,56, 56,56,63,63,63,56,56,56: ab56,56,56,56,56,56,56,56,224,248,252,28,14,14,14,14: cd14,14,14,14,28,252,248,224,59,63,63,62,56,56,56,56: ef%248,252,254,14,14,,,,3,15,31,28,56,56,56,56: gha56,56,56,56,28,31,15,3,14,14,14,14,30,254,254,238: ij 227,247,255,62,28,28,28,28,248,252,254,30,14,14,14,14: kl28,28,28,28,28,28,28,28,14,14,14,14,14,14,14,14: mn63,63,56,56,28,31,15,3,254,254,,,28,252,248,224: opR(224,248,252,28,14,14,14,254,3,15,31,28,56,56,56,63: qr214,28,252,248,224,0,0,0, 0,0,56,56,28,31,15,3: st<1,7,31,62,56,120,127,255,187,187,187,,56,56,255,255: uv F0,192,240,248,56,60,252,254,224,224,225,227,231,239,254,252:wxNP120,248,248,255,191,56,56,56,30,14,30,254,254,30,14,30: yzZ255,127,120,56,62,31,7,1,255,255,56,56,56,255,255,255: 2.ab d254,252,60,56,248,240,192,0,31,63,127,115,115,115,115,115: cdn240,248,253,157,157,156,156,156,115,115,115,115,115,115,115,115]x157,156,156,157,156,156,156,156,,15,127,127,127,54,54,54: gh,224,252,252,252,216,216,216: i115,115,115,115,115]x157,156,156,157,156,156,156,156,,15,127,127,127,54,54,54: gh,224,252,252,252,216,216,216: