NUMERIC-re is?
Na, azt a sort kivettem a programból, és ugyanúgy mûködött. Tényleg nem tudom, minek tették bele.
Na jó, akkor még egyszer berakom, a program a
Felhasználói kézikönyvbõl van.
Szóval a 150-es sor felesleges, mégis beletették.
És a 260-as sorban is lehetne a 10 helyett inkább VEG. De kicsit késõbb levon a VEG értékébõl mindig 1-et (350-es sor), ez nem tudom, befolyásolja-e a ciklust, ami éppen "folyamatban van".
És ha csökkenõ sorrendbe akarjuk a számokat rendezni, akkor a 290-es sorban > helyett < jel kell, és a MAX értékének valami nagy számot kell megadni.
Akkor inkább ne törölgessem a hozzászólásaimat akkor se, ha olyat kérdeznék, amire egyértelmû a válasz, csak én nem jöttem rá? Látom, megtévesztõ voltam.
100 PROGRAM "Rendez.bas"
110 ! Ez a program 10 szamot
120 ! rendez nagysag szerint sorba
130 ! ----------------------------
140 NUMERIC TOMB(1 TO 10)
150 NUMERIC VALT,SZAM,MAX
160 CLEAR SCREEN
170 PRINT AT 10,10:"SZAMRENDEZES"
180 FOR N=1 TO 10
190 PRINT AT 14,10:"Az ";N;"-ik szam";
200 INPUT PROMPT ":":TOMB(N)
210 PRINT AT 14,25:" "
220 NEXT N
230 CLEAR SCREEN
240 PRINT AT 20,20:"Rendezek..."
250 LET VEG=10
260 FOR X=1 TO 10
270 LET MAX=0
280 FOR Y=1 TO VEG
290 IF TOMB(Y)>MAX THEN LET MAX=TOMB(Y)
300 IF TOMB(Y)=MAX THEN LET SZAM=Y
310 NEXT Y
320 LET VALT=TOMB(VEG)
330 LET TOMB(VEG)=MAX
340 LET TOMB(SZAM)=VALT
350 LET VEG=VEG-1
360 NEXT X
370 FOR X=1 TO 10
380 PRINT TOMB(X)
390 NEXT X
400 END
Egyébként ezt a sorbarendezést stringekkel is meg lehet csinálni. Az arra jó, hogy játékokhoz toplistát csináljunk. Csak a toplistánál meg pont nem növekvõ, hanem csökkenõ sorrendbe kell rendezni, tehát a nagyobb számok (jobb eredmények) vannak elõl. Én meg belebonyolódtam, mert már egyszer megfordítottam a dolgot és azt hittem, nem fordítottam meg, és mikor újra meg akartam fordítani, pont fordítva mûködött, mint akartam és nem értettem.