Tak zrovna v tom výpisu je potřeba ta proměnná
i:
Kód: Vybrat vše
Výpis: 'zobrazí databázi zaměstnanců
If pocet>Then
For i = 1 To počet
TextWindow.WriteLine(i + ". " + zaměstnanec[i])
EndFor
Else
TextWindow.WriteLine("V evidenci nejsou žádní zaměstnanci")
Endif
Jen taková historická zajímavost, ve FORTRANu (prvním programovacím jazyku z roku 1956) byly proměnné jejichž názvy začínaly písmeny I,J,K,L,M,N celočíselné, zatímco všechny ostatní byly reálné. Sloužilo to kromě jiného i jako mnemotechnická pomůcka, index pole nebo smyčky byl prostě I, druhá vnořená smyčka měla jako index následující písmeno J, třetí K... To se od té doby používá tradičně dodnes, protože není důvod dělat to jinak. I je prostě Index, ukazatel na určitou položku v pořadí.
Takže vystačíš se dvěma proměnnými, hlavní proměnou
počet ve které máš aktuální stav, a pomocnou proměnnou
i, která slouží pro výpis.
To mazání by mělo jít takhle nějak:
Kód: Vybrat vše
počet=počet-1
For i=pozice To počet
zaměstnanec[i]=zaměstnanec[i+1]
Endfor
Tady jsou potřeba proměnné tři, hlavní
počet, a pomocné
pozice a
i.
To dimenzování pole jsem v návodech co mám také nenašel, třeba to už není potřeba, můžeš to odzkoušet, jestli (a kdy) ti to spadne:
Kód: Vybrat vše
For i=1 To 1000000
pole[i]=i
TextWindow.WriteLine(i)
Endfor
Zbytek už nemám dneska sílu luštit, tak jen pro inspiraci něco podobného co jsem kdysi dělal:
Kód: Vybrat vše
10 PRINT "*** Vysledkova listina ***"
20 INPUT "pocet hracu: ", h
30 DIM jmeno$(h), skore(h)
40 FOR a = 1 TO h
50 PRINT a; : INPUT "- jmeno, skore: ", jmeno$(a), skore(a)
60 NEXT a
70 INPUT "1 - podle jmena 2 - podle skore 3 - tisk 4 - konec "; a
80 ON a GOTO 100, 200, 300, 400
90 GOTO 70
100 FOR a = 2 TO h: b = a
110 IF jmeno$(b - 1) <= jmeno$(b) THEN GOTO 150
120 w$ = jmeno$(b):jmeno$(b) = jmeno$(b - 1):jmeno$(b - 1) = w$
130 w = skore(b): skore(b) = skore(b - 1): skore(b - 1) = w
140 IF b > 2 THEN b = b - 1: GOTO 110
150 NEXT a: GOTO 500
200 FOR a = 2 TO h: b = a
210 IF skore(b - 1) >= skore(b) THEN GOTO 250
220 w$ = jmeno$(b):jmeno$(b) = jmeno$(b - 1):jmeno$(b - 1) = w$
230 w = skore(b): skore(b) = skore(b - 1): skore(b - 1) = w
240 IF b > 2 THEN b = b - 1: GOTO 210
250 NEXT a: GOTO 500
300 LPRINT TAB(20); "Vysledkova listina:": LPRINT
310 FOR a = 1 TO h
320 LPRINT jmeno$(a); TAB(60); skore(a)
330 NEXT a: LPRINT : GOTO 70
400 END
500 FOR a = 1 TO h
510 PRINT jmeno$(a); TAB(60); skore(a)
520 NEXT a: GOTO 70
