Задачи QBasic

Формулировка задачи:

Задачи по QBasic :huh: 1)В воображаемом квадрате заданного размера построить совокупность n*n сопрекасающихся с окружностью окрашеной в случайный цвет. 2)Дан массив целых чисел x(50) и число k, вычеслить сумму элементов массива, превосходящих максимальный элемент среди x(1) ..... x(k) ввести массив, найдите элементы результат. 3)В исходной строке a$ определить и вывесте все символы встречающиеся не мение n-раз.

Решение задачи: «Задачи QBasic»

Листинг программы

CLS
RANDOMIZE TIMER
CONST n = 50
DIM x(1 TO n)
 
INPUT "K = "; k
PRINT
 
FOR i = 1 TO n
   x(i) = INT(80 * RND) - 40
   PRINT USING "#####"; x(i);
NEXT
PRINT : PRINT
 
max = x(1)
 
FOR i = 1 TO k
   IF max < x(i) THEN
      max = x(i)
   END IF
NEXT
PRINT "Max ="; max
PRINT
 
FOR i = k + 1 TO n
   IF x(i) > max THEN s = s + x(i)
NEXT
PRINT "SUMMA ="; s
END

Объяснение кода листинга программы

CLS — очистка экрана
RANDOMIZE TIMER — случайная инициализация генератора чисел
CONST n = 50 - определение константы n, равной 50
DIM x(1 TO n) — определение массива x, размером n
INPUT K =; k — запрос на ввод числа k
FOR i = 1 TO n — цикл, который проходит по всем элементам массива x
x(i) = INT(80 * RND) — 40 - присваивание значения переменной x(i) равное случайному числу в диапазоне от 80 до 40
PRINT USING #####; x(i); — печать значения переменной x(i) с форматированием в 5 цифр
NEXT — переход к следующему элементу цикла
max = x(1) — присваивание переменной max значение первого элемента массива x
FOR i = 1 TO k — цикл, который проходит по k первым элементам массива x
IF max < x(i) THEN — проверка, является ли значение переменной x(i) больше значения переменной max
max = x(i) — если это так, то присваивание переменной max значение переменной x(i)
END IF — конец проверки
NEXT — переход к следующему элементу цикла
PRINT Max =; max — печать значения переменной max
PRINT — пустая строка
FOR i = k + 1 TO n — цикл, который проходит по элементам массива x, начиная с элемента с индексом k + 1
IF x(i) > max THEN s = s + x(i) — проверка, является ли значение переменной x(i) больше значения переменной max
NEXT — переход к следующему элементу цикла
PRINT SUMMA =; s — печать значения переменной s
END — конец программы