• • • • • • • • • •
10 DIM S (10)
20 FOR I=1 TO 10
30 READ S (I)
40 NEXT
50 PRINT “OS 10 DADOS INSERIDOS SÃO:”
60 GOSUB 200
70 FOR I=1 TO 9
80 P=I
90 FOR J=I TO 10
100 IF S(JI)<S(P) THEN P=J
110 NEXT
120 SWAP S(I), S(P)
130 NEXT
140 PRINT “DADO SORTEADO: “
150 GOSUB 200
160 DATA (10 NÚMEROS)
170 END
200 FOR I=1 TO 10
210 PRINT S (I);
220 NEXT
230 PRINT
240 RETURN
Insira o número, a noite de Português, Matemática e Ciências de 5 alunos para obter a nota total e imprimir o número do aluno, cada nota e a nota total.
10 REM STUDENT MARKS
20 DIM M (5, 5)
30 FOR I=1 TO 5
40 FOR I=1 TO 4
50 READ M (I,J)
60 NEXT
70 NEXT
80 FOR I=1 TO 5
90 S=0
100 FOR J=2 TO 4
110 S=S+M (I,J)
120 NEXT
130 M (I, 5)=S
140 NEXT
150 FOR I=1 TO 5
160 FOR J=1 TO 5
170 PRINT M (I, J)
180 NEXT
190 PRINT
200 NEXT
210 DATA 101, 89, 90, 98, 102, 80, 67, 78
220 DATA 103, 88, 92, 93, 104, 85, 86, 90
230 DATA 105, 67, 78, 80
240 END
5 CLS 6 LOCATE 8, 12: PRINT "MAGIC COMPUTER"
10 PLAY "Ml Y1 V7T3:M1 Y1 V5T3:M1T3"
20 PLAY "O2A6G3F5G:O2R3FCEDCEC:O1 FC"
30 PLAY "A5AA7:RFCFRCO1 AO2CFC"
40 PLAY "G5GG7:RECERCD1GO2C:O2CO1G"
50 PLAY "A5O3CC7:RF5AO3C3AG:FC"
60 PLAY "O2A6G3F5G:O2RFRERDRC:FC"
70 PLAY "AAA7:RFFFRCCC:FC"
80 PLAY "G5#AA6G3:RERGRERC:O2CO1G"
90 PLAY "F9:FCFAO3F7:F5CF7"
RUN