Вычислить сумму элементов массива - QBasic (27095)

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

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

Вычислить сумму элементов массива А(а1, а2, ..., an), значения которых по модулю лежат в заданном диапазоне от b до с ( b<=ai<=c). Помогите, пожалуйста. Весь форум облазил, ничего нету подобного.

Решение задачи: «Вычислить сумму элементов массива»

textual
Листинг программы
CLS
RANDOMIZE TIMER
rezult = 0
 
INPUT "Vvedite chislo elementov: ", n
INPUT "Vvedite nachalo (b): ", b
INPUT "Vvedite konec (c): ", c
 
'Zapolnyaem massiv, schitaem i vivodim rezultat
DIM a(n) AS INTEGER
FOR x = 0 TO n - 1
        a(n) = RND * 100 - 50
        PRINT a(n);
        IF ABS(a(n)) >= b AND ABS(a(n)) <= c THEN
                rezult = rezult + ABS(a(n))
        END IF
NEXT x
PRINT ""
PRINT "Rezultat: "; rezult

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

  1. В первой строке используется команда CLS для очистки экрана.
  2. Далее, с помощью RANDOMIZE TIMER, производится инициализация генератора случайных чисел.
  3. Переменной rezult присваивается значение 0, которое будет использоваться как сумма элементов массива.
  4. В следующих трех строках пользователю предлагается ввести количество элементов массива (n), начало (b) и конец (c) диапазона случайных чисел.
  5. Далее, с помощью DIM a(n) AS INTEGER, создается массив a размером n.
  6. В цикле FOR x = 0 TO n - 1 происходит заполнение массива a случайными числами в диапазоне от -50 до 50 с шагом 100.
  7. Внутри цикла, с помощью IF ABS(a(n)) >= b AND ABS(a(n)) <= c, производится проверка каждого элемента массива на соответствие заданному диапазону. Если элемент удовлетворяет условию, его абсолютное значение прибавляется к переменной rezult.
  8. После выполнения цикла, с помощью PRINT `` очищается предыдущий вывод.
  9. Затем, с помощью PRINT Rezultat:; rezult, выводится итоговый результат - сумма элементов массива, удовлетворяющих условию.

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

9   голосов , оценка 4.333 из 5
Похожие ответы