Задачи QBasic

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

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

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

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

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3. CONST n = 50
  4. DIM x(1 TO n)
  5.  
  6. INPUT "K = "; k
  7. PRINT
  8.  
  9. FOR i = 1 TO n
  10.    x(i) = INT(80 * RND) - 40
  11.    PRINT USING "#####"; x(i);
  12. NEXT
  13. PRINT : PRINT
  14.  
  15. max = x(1)
  16.  
  17. FOR i = 1 TO k
  18.    IF max < x(i) THEN
  19.       max = x(i)
  20.    END IF
  21. NEXT
  22. PRINT "Max ="; max
  23. PRINT
  24.  
  25. FOR i = k + 1 TO n
  26.    IF x(i) > max THEN s = s + x(i)
  27. NEXT
  28. PRINT "SUMMA ="; s
  29. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут