QBasic. Примеры, задачи, исходники. Работа с массивами на QBasic.


Добавил:DMT
Дата создания:30 июня 2008, 0:32
Дата обновления:30 июня 2008, 22:54
Просмотров:101638 последний ---
Комментариев: 0

Массивы в QBasic

Под массивом понимают объединение переменных одного типа в единую структуру. Обращение к отдельным элементам в массиве осуществляется по индексу. Допустим, в программе необходимо 20 переменных для запоминания стоимостей каких-то товаров artprl,..artpr20. Переменные можно объявить следующим образом:
Dim elem1!, elem2!,......elem10!
В отличие от объявления простых переменных появляется новая спецификация — размерность. В ней указывается максимальное значение индекса массива.

DIM MassivStrok$(1 T0 10) '10 строковых элементов 1...10
DIM MassivChisel%(5 TO 11) '7 целых чисел -элементов 5...11

Обращение к элементам массива выгледит следующим образом:
MassivStrok$(2) ' Обращение ко второй строке массива MassivStrok

Вычисление суммы элементов массива в QBasic

Код на QBasic/QuickBASIC
  1.  
  2. CLS
  3. N = 15
  4. DIM M(N)
  5. SUMM = 0
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT I; "-"; M(I)
  9. SUMM = SUMM + M(I)
  10. NEXT I
  11. PRINT "_________"
  12. PRINT "SUMM = "; SUMM
При использовании обязательна ссылка на http://DMTSoft.ru

INT(RND * 100) - Вычисление случайного целого числа

Теги:

алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы QBasic.

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

Код на QBasic/QuickBASIC
  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
При использовании обязательна ссылка на http://DMTSoft.ru

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

Если сумма чисел превысила значение переменной A, то выйти из программы

Код на QBasic/QuickBASIC
  1.  
  2. INPUT "A="; A
  3.  
  4. F0 = 1
  5. F1 = 1
  6. SUM = 0
  7. DO
  8. F2 = F1 + F0
  9. F0 = F1
  10. F1 = F2
  11. SUM = SUM + F2
  12. LOOP UNTIL SUM > A
  13.  
  14. PRINT "SUM="; SUM
  15.  
При использовании обязательна ссылка на http://DMTSoft.ru

Теги:

алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы QBasic.

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

Код на QBasic/QuickBASIC
  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 "Maximum = "; MAX
  16.  
При использовании обязательна ссылка на http://DMTSoft.ru

Теги:

алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы qbasic.

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

Код на QBasic/QuickBASIC
  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. MIN=M(1)
  11. FOR I = 2 TO N
  12. IF MIN > M(I) THEN MIN=M(I)
  13. NEXT I
  14. PRINT "_________"
  15. PRINT "Minimum = "; MIN
  16.  
При использовании обязательна ссылка на http://DMTSoft.ru

Найти среднее арифметическое всех элементов массива на QBasic

Код на QBasic/QuickBASIC
  1.  
  2. CLS
  3. N = 15
  4. DIM M(N)
  5. SUMM = 0
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT I; "-"; M(I)
  9. SUMM = SUMM + M(I)
  10. NEXT I
  11. PRINT "_________"
  12. PRINT "SrArefm = "; SUMM/N
  13.  
При использовании обязательна ссылка на http://DMTSoft.ru

Заполнить массив случайными числами и отсортировать на QBasic

Код на QBasic/QuickBASIC
  1.  
  2. N = 10
  3. DIM M(N)
  4.  
  5. PRINT "Massiv:"
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT M(I);
  9. NEXT I
  10.  
  11. FOR I = 1 TO N - 1
  12. FOR J = I + 1 TO N
  13. IF (M(I) > M(J)) THEN SWAP M(I), M(J)
  14. NEXT J
  15. NEXT I
  16.  
  17. PRINT "Sort massiv:"
  18. FOR I = 1 TO N
  19. PRINT M(I);
  20. NEXT I
  21.  
При использовании обязательна ссылка на http://DMTSoft.ru

Теги:

алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы qbasic.

Нарисовать несколько окружностей, центр которых находится на окружности заданного радиуса на QBasic

Код на QBasic/QuickBASIC
  1.  
  2. R = 10 'Радиус окружностей
  3. R1 = 120 'Радиус окружности на которой будут рисоваться остальные
  4. N = 20 'Количество окружностей радиуса R
  5. SCREEN 12 'Установка видео режима
  6. CIRCLE (320, 240), R1
  7. P = 2 * 3.14 / N
  8. FOR I = 1 TO N
  9. X = COS(P * I) * R1
  10. Y = SIN(P * I) * R1
  11. CIRCLE (320 + X, 240 + Y), R ' Прорисовка оружностей от центра экрана
  12. NEXT I
  13.  
При использовании обязательна ссылка на http://DMTSoft.ru

Теги:

алгоритмы qbasic. язык qbasic программы. qbasic графика. работы qbasic. программирование qbasic. qbasic задачи. массивы qbasic.

up