Подсчитать количество элементов массива, больше заданного числа - QBasic
Формулировка задачи:
Подсчитать количество элементов больше заданного числа. Если оно больше половины
всех элементов, определить индекс и значение максимального, иначе минимального.
Размер массива не более 15 элементов.
и блок схему, пожалуйста , срочно экзамен((((
буду очень признательна за помощь)))
Решение задачи: «Подсчитать количество элементов массива, больше заданного числа»
textual
Листинг программы
- DECLARE FUNCTION Kol! (n!)
- CLS
- RANDOMIZE TIMER
- n = 12
- DIM SHARED A(1 TO n) AS INTEGER
- CONST b = 0
- FOR i = 1 TO n
- A(i) = 40 * RND - 20
- PRINT A(i);
- NEXT i
- PRINT : PRINT
- max = A(1)
- imax = 1
- min = max
- imin = 1
- IF Kol(n) > n \ 2 THEN
- FOR i = 1 TO n
- IF max < A(i) THEN max = A(i): imax = i
- NEXT i
- PRINT "MAX ="; max; "INDEX ="; imax
- ELSE
- FOR i = 1 TO n
- IF min > A(i) THEN min = A(i): imin = i
- NEXT i
- PRINT "MIN ="; min; "INDEX ="; imin
- END IF
- END
- FUNCTION Kol (n)
- IF n = 1 THEN
- IF A(n) > b THEN Kol = 1
- ELSE
- K = Kol(n - 1)
- IF A(n) > b THEN K = K + 1
- Kol = K
- END IF
- END FUNCTION
Объяснение кода листинга программы
- Объявление функции Kol с параметром n.
- Инициализация переменной n значением 12.
- Инициализация массива A размером n элементов.
- Установка константы b равной 0.
- Заполнение массива A случайными числами от 40 * RND до 20.
- Вывод на экран каждого элемента массива A.
- Нахождение максимального значения в массиве A и его индекса.
- Нахождение минимального значения в массиве A и его индекса.
- Проверка условия, если количество элементов массива Kol(n) больше половины, то выводится максимальное значение и его индекс.
- Если условие не выполняется, то выводится минимальное значение и его индекс.
- Определение рекурсивной функции Kol для подсчета количества элементов массива A, больше заданного числа b.
- Если параметр n равен 1, то функция Kol возвращает 1, иначе функция вызывает саму себя для n-1 и проверяет условие, если A(n) больше b, то к результату прибавляется 1.
- Код выводит на экран значение функции Kol.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д