Подсчитать количество элементов массива, больше заданного числа - QBasic

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

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

Подсчитать количество элементов больше заданного числа. Если оно больше половины всех элементов, определить индекс и значение максимального, иначе минимального. Размер массива не более 15 элементов. и блок схему, пожалуйста , срочно экзамен(((( буду очень признательна за помощь)))

Решение задачи: «Подсчитать количество элементов массива, больше заданного числа»

textual
Листинг программы
  1. DECLARE FUNCTION Kol! (n!)
  2. CLS
  3. RANDOMIZE TIMER
  4. n = 12
  5. DIM SHARED A(1 TO n) AS INTEGER
  6. CONST b = 0
  7.  
  8. FOR i = 1 TO n
  9.    A(i) = 40 * RND - 20
  10.    PRINT A(i);
  11. NEXT i
  12. PRINT : PRINT
  13.  
  14. max = A(1)
  15. imax = 1
  16. min = max
  17. imin = 1
  18.  
  19. IF Kol(n) > n \ 2 THEN
  20.    FOR i = 1 TO n
  21.       IF max < A(i) THEN max = A(i): imax = i
  22.    NEXT i
  23.    PRINT "MAX ="; max; "INDEX ="; imax
  24. ELSE
  25.    FOR i = 1 TO n
  26.       IF min > A(i) THEN min = A(i): imin = i
  27.    NEXT i
  28.    PRINT "MIN ="; min; "INDEX ="; imin
  29. END IF
  30. END
  31.  
  32. FUNCTION Kol (n)
  33.    IF n = 1 THEN
  34.       IF A(n) > b THEN Kol = 1
  35.    ELSE
  36.       K = Kol(n - 1)
  37.       IF A(n) > b THEN K = K + 1
  38.       Kol = K
  39.    END IF
  40. END FUNCTION

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

  1. Объявление функции Kol с параметром n.
  2. Инициализация переменной n значением 12.
  3. Инициализация массива A размером n элементов.
  4. Установка константы b равной 0.
  5. Заполнение массива A случайными числами от 40 * RND до 20.
  6. Вывод на экран каждого элемента массива A.
  7. Нахождение максимального значения в массиве A и его индекса.
  8. Нахождение минимального значения в массиве A и его индекса.
  9. Проверка условия, если количество элементов массива Kol(n) больше половины, то выводится максимальное значение и его индекс.
  10. Если условие не выполняется, то выводится минимальное значение и его индекс.
  11. Определение рекурсивной функции Kol для подсчета количества элементов массива A, больше заданного числа b.
  12. Если параметр n равен 1, то функция Kol возвращает 1, иначе функция вызывает саму себя для n-1 и проверяет условие, если A(n) больше b, то к результату прибавляется 1.
  13. Код выводит на экран значение функции Kol.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

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

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

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