Вычисление произведения элементов массива в QBasic:

1.  
2. CLS
3. N = 10
4. DIM M(N)
5. P = 1
6. FOR I = 1 TO N
7. M(I) = INT(RND * 100)+1
8. PRINT I; "-"; M(I)
9. P = P * M(I)
10. NEXT I
11. PRINT "_________"
12. PRINT "Proizvedenie = "; P

Вычислить сумму последовательности чисел Фибоначчи на QBasic:

1.  
2. CLS
3. INPUT "A="; A
4.  
5. F0 = 1
6. PRINT F0
7. F1 = 1
8. PRINT F1
9. SUM = 0
10. DO
11. F2 = F1 + F0
12. F0 = F1
13. F1 = F2
14. SUM = SUM + F2
15. PRINT F2
16. LOOP UNTIL SUM > A
17.  
18. PRINT "SUM="; SUM
19.  

Найти максимальный элемент массива в QBasic:

1.  
2. CLS
3. N = 15
4. PRINT "Massiv: ";
5. DIM M(N)
6. FOR I = 1 TO N
7. M(I) = INT(RND * 100)
8. PRINT M(I) ;
9. NEXT I
10. MAX=M(1)
11. FOR I = 2 TO N
12. IF MAX < M(I) THEN MAX=M(I)
13. NEXT I
14. PRINT
15. PRINT "_________"
16. PRINT "Maximum = "; MAX
17.