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

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


textual

Код к задаче: «Вычислить сумму элементов массива - QBasic»

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

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Найти сумму всех двузначных чисел, имеющих в записи цифру 1.

  1. Вычислить сумму 1000/1000 + 999/1001 + ... + 1/1999 (ответ: 386.7945)

  1. Дан конечный числовой ряд 1/2 + (3 + 4)/(5 + 6) + (7 + 8 + 9)/(10 + 11 + 12) + .... Всего ровно 100 слагаемых. Вот их и надо суммировать. Ответ: 95.65385 Вопросы 1. Существует ли иной способ решения данной задачи? 2. Поможет ли здесь применение массива?

  1. Чтобы понять, что же надо сложить, определим сначала длинное число 149162536496481100 ... 10000. это квадраты натуральных чисел от 1 до 100, записанные по-порядку вплотную друг к другу. ... Условия такие 1. цифра 0 игнорируется вовсе. 2. из этого числа берутся двузначные числа слева направо 3. для каждого числа находится ему обратное и все это суммируется. пример 1491625364964811 1/14 + 1/91 + 1/62 + 1/53 + 1/64 + 1/96 + 1/48 + 1/11 + ... (надеюсь это понятно) автор надеется также на то, что никто не сумеет написать ИНОЙ ВАРИАНТ этой программы. (ну если только вы не будете считать вручную). Ответ: 10.05247

  1. Дан массив из 25 элементов найти сумму 4 наибольших х четырех наименьших элементов Результат распечатать в виде: Массив: Сумма наибольших = Сумма наименьших =

  1. Задан ряд 1 + 2/(3*4) + (5*6)/(7*8*9) + (10*11*12)/(13*14*15*16) + ... Всего 25 слагаемых (625 натуральных чисел) Алгоритм ряда очевиден. Найти сумму этого ряда Для решения задачи была использована формула 1 + 3 + 5 + ... (2n-1) = n2 Вопросы 1. Есть ли иное решение? 2. Я ходил около рекурсивного решения, но не нашел? 3. Изначально я хотел для этого ряда задать число натуральных чисел, из которых он состоит, но эта задача оказалась сложнее. И я решил задавать число слагаемых. Может это не так сложно, как я думаю? примечание Очевидно, что если слагаемых N, то число натуральных чисел N2

  1. Дано выражение, которое надо вычислить Это только три "этажа" дроби. А всего 7. Дробь содержит 127 синусов. От sin1 до sin127 строго по-порядку подсказка маленькие дроби имеют вид: где 1 < n < 64 Программа решает эту задачу. Ответ: 2.778758 Автор просит оценить эту задачу по семибальной шкале (код, нестандартность, сложность) Вопросы Решали ли вы что-либо подобное? Есть ли рекурсивное решение? Есть ли иное решение?

  1. Даны квадраты натуральных чисел от 1 до 100 1; 4; 9; 16; 25; ... ; 9801; 10000 Надо найти общую сумму всех цифр этих чисел. Программа нашла. Общая сумма равна 1480 Вопросы 1. Как написать рекурсивную программу? 2. Была ли проще программа, если бы каждый квадрат числа разлагался на цифры отдельно? 3. Упростило бы программу добавление нулей справа (чтобы каждое число было четырехзначным)? 4. А какое еще может быть решение?