Массивы в 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
 
  CLS 
  N = 15 
  DIM M(N) 
  SUMM = 0
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT I; "-"; M(I) 
  SUMM = SUMM + M(I) 
  NEXT I 
  PRINT "_________" 
  PRINT "SUMM = "; SUMM
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

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

Код на QBasic/QuickBASIC
 
  CLS 
  N = 10
  DIM M(N) 
  P = 1
  FOR I = 1 TO N 
  M(I) = INT(RND * 100)+1 
  PRINT I; "-"; M(I) 
  P = P * M(I) 
  NEXT I 
  PRINT "_________" 
  PRINT "Proizvedenie = "; P
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

Код на QBasic/QuickBASIC
 
CLS
INPUT "A="; A
 
F0 = 1
PRINT F0
F1 = 1
PRINT F1
SUM = 0
DO
F2 = F1 + F0
F0 = F1
F1 = F2
SUM = SUM + F2
PRINT F2
LOOP UNTIL SUM > A
 
PRINT "SUM="; SUM
 
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

Код на QBasic/QuickBASIC
 
  CLS 
  N = 15 
  PRINT "Massiv: ";
  DIM M(N) 
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT M(I) ;
  NEXT I 
  MAX=M(1)
  FOR I = 2 TO N 
  IF MAX < M(I) THEN MAX=M(I)
  NEXT I 
  PRINT
  PRINT "_________" 
  PRINT "Maximum = "; MAX
 
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

Код на QBasic/QuickBASIC
 
  CLS 
  N = 15 
  PRINT "Massiv: ";
  DIM M(N) 
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT M(I) ;
  NEXT I 
  MIN=M(1)
  FOR I = 2 TO N 
  IF MIN > M(I) THEN MIN=M(I)
  NEXT I 
  PRINT
  PRINT "_________" 
  PRINT "Minimum = "; MIN
 
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

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

Код на QBasic/QuickBASIC
 
 CLS
 N = 10
DIM M(N)
 
PRINT "Massiv:"
FOR I = 1 TO N
 M(I) = INT(RND * 100)
 PRINT M(I);
NEXT I
 
FOR I = 1 TO N - 1
  FOR J = I + 1 TO N
      IF (M(I) > M(J)) THEN SWAP M(I), M(J)
  NEXT J
NEXT I
 
 PRINT
 PRINT "Sort massiv:"
FOR I = 1 TO N
 PRINT M(I);
NEXT I 
 
При использовании обязательна ссылка на http://DMTSoft.ru

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

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

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

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