Задачи QBasic

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

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

  1. CLS — очистка экрана
  2. RANDOMIZE TIMER — случайная инициализация генератора чисел
  3. CONST n = 50 - определение константы n, равной 50
  4. DIM x(1 TO n) — определение массива x, размером n
  5. INPUT K =; k — запрос на ввод числа k
  6. FOR i = 1 TO n — цикл, который проходит по всем элементам массива x
  7. x(i) = INT(80 * RND) — 40 - присваивание значения переменной x(i) равное случайному числу в диапазоне от 80 до 40
  8. PRINT USING #####; x(i); — печать значения переменной x(i) с форматированием в 5 цифр
  9. NEXT — переход к следующему элементу цикла
  10. max = x(1) — присваивание переменной max значение первого элемента массива x
  11. FOR i = 1 TO k — цикл, который проходит по k первым элементам массива x
  12. IF max < x(i) THEN — проверка, является ли значение переменной x(i) больше значения переменной max
  13. max = x(i) — если это так, то присваивание переменной max значение переменной x(i)
  14. END IF — конец проверки
  15. NEXT — переход к следующему элементу цикла
  16. PRINT Max =; max — печать значения переменной max
  17. PRINT — пустая строка
  18. FOR i = k + 1 TO n — цикл, который проходит по элементам массива x, начиная с элемента с индексом k + 1
  19. IF x(i) > max THEN s = s + x(i) — проверка, является ли значение переменной x(i) больше значения переменной max
  20. NEXT — переход к следующему элементу цикла
  21. PRINT SUMMA =; s — печать значения переменной s
  22. END — конец программы

Оцени полезность:

11   голосов , оценка 4.273 из 5