Найти сумму абсолютных значений негативных элементов массива - QBasic

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

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

Вот у меня есть начальный код
Листинг программы
  1. REM Praktica
  2. REM Formirovanie isxod dann
  3. OPEN "H:\pr.doc" FOR OUTPUT AS #1
  4. RANDOMIZE TIMER
  5. DIM d(12)
  6. FOR K = 1 TO 12
  7. d(K) = 4 * RND - 1
  8. PRINT "d("; K; ")="; d(K)
  9. PRINT #1, "d("; K; ")="; d(K)
  10. NEXT K
  11. END
мне нужно найти Сумму абсолютных значений негативных элементов, то есть после строки NEXT K нужно дописать решение или что то в этом роде. Помогите чем сможете

Решение задачи: «Найти сумму абсолютных значений негативных элементов массива»

textual
Листинг программы
  1. REM Praktica
  2. REM Formirovanie isxod dann
  3. OPEN "H:\pr.doc" FOR OUTPUT AS #1
  4. RANDOMIZE TIMER
  5. DIM d(12), S AS SINGLE
  6. FOR K = 1 TO 12
  7.     d(K) = 4 * RND - 1
  8.     PRINT "d("; K; ")="; d(K)
  9.     PRINT #1, "d("; K; ")="; d(K)
  10.     IF d(k)<0 THEN s=s+ABS(d(k))
  11. NEXT K
  12. CLOSE #1 'правда, непонятно - зачем Вам файл, но если уж открыли, то лучше закрыть!
  13. PRINT "s=";s
  14. END

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

  1. Создается файл с именем H:\pr.doc для записи данных.
  2. Используется функция RANDOMIZE TIMER для инициализации генератора случайных чисел.
  3. Создается массив d(12) для хранения 12 чисел.
  4. Каждое число в массиве d(12) инициализируется как 4 * RND - 1, где RND - это генератор случайных чисел.
  5. Каждое число в массиве d(12) выводится на экран и записывается в файл H:\pr.doc.
  6. Переменная s инициализируется как 0.
  7. Для каждого числа в массиве d(12) проверяется, является ли оно отрицательным.
  8. Если число в массиве d(12) отрицательное, то его абсолютное значение добавляется к переменной s.
  9. После завершения цикла, переменная s выводится на экран.

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


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

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

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

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

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

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