Test QBASIC 1r Trimestre

Hi ha un tipus de variable en la que pots guardar múltiples nombres en una sola. Ordena el programa.

❌
❌ "Quants alumnes hi ha"; kiwi
❌ pepe(kiwi)
FOR u = 1 TO ❌
PRINT u, : INPUT "Alçada de l'alumne"; pepe(u)
❌ u
suma = 0
FOR n = 1 TO kiwi
suma = ❌ + pepe(❌)
NEXT n
r = suma / kiwi
CLS
PRINT "La mitja d'altura ‚s"; r

Programa simple per escribir un nom "x" vegades a llocs random:

5 ❌
10 ❌ t = 1 TO 1000
15 ❌
20 x = ❌(RND * 77) + 1
25 RANDOMIZE TIMER
❌ y = INT(❌ * 23) + 1
35 RANDOMIZE TIMER
❌ o = INT(RND * 16) + 1
45 COLOR o
50 ❌ y, x: ❌ "Pau": FOR n = 1 TO 100: ❌
55 ❌

[MOLT DIFÍCIL]

10 CLS
20 ❌ "Joc d'endevinar nombres entre l'1 i el 100": ❌ n = 1 TO 8000: ❌ n: GOTO 30
30 CLS
40 ❌ TIMER
50 num = INT(RND * 100) + 1
60 ❌
70 COLOR 7: INPUT "Quin nombre ‚s"; numply
80 IF ❌ = num THEN COLOR 20: PRINT "❌": FOR n = 1 TO 6000: NEXT n: GOTO 110
90 IF numply < ❌ THEN ❌ 1: PRINT "El nombre secret és més gran": GOTO 60
100 IF numply ❌ num THEN COLOR 1: PRINT "El nombre secret és més petit": ❌ 60
110 ❌