Найти сумму абсолютных значений негативных элементов массива - QBasic
Формулировка задачи:
Вот у меня есть начальный код
мне нужно найти Сумму абсолютных значений негативных элементов, то есть после строки NEXT K нужно дописать решение или что то в этом роде. Помогите чем сможете
Листинг программы
- REM Praktica
- REM Formirovanie isxod dann
- OPEN "H:\pr.doc" FOR OUTPUT AS #1
- RANDOMIZE TIMER
- DIM d(12)
- FOR K = 1 TO 12
- d(K) = 4 * RND - 1
- PRINT "d("; K; ")="; d(K)
- PRINT #1, "d("; K; ")="; d(K)
- NEXT K
- END
Решение задачи: «Найти сумму абсолютных значений негативных элементов массива»
textual
Листинг программы
- REM Praktica
- REM Formirovanie isxod dann
- OPEN "H:\pr.doc" FOR OUTPUT AS #1
- RANDOMIZE TIMER
- DIM d(12), S AS SINGLE
- FOR K = 1 TO 12
- d(K) = 4 * RND - 1
- PRINT "d("; K; ")="; d(K)
- PRINT #1, "d("; K; ")="; d(K)
- IF d(k)<0 THEN s=s+ABS(d(k))
- NEXT K
- CLOSE #1 'правда, непонятно - зачем Вам файл, но если уж открыли, то лучше закрыть!
- PRINT "s=";s
- END
Объяснение кода листинга программы
- Создается файл с именем
H:\pr.doc
для записи данных. - Используется функция RANDOMIZE TIMER для инициализации генератора случайных чисел.
- Создается массив d(12) для хранения 12 чисел.
- Каждое число в массиве d(12) инициализируется как 4 * RND - 1, где RND - это генератор случайных чисел.
- Каждое число в массиве d(12) выводится на экран и записывается в файл
H:\pr.doc
. - Переменная s инициализируется как 0.
- Для каждого числа в массиве d(12) проверяется, является ли оно отрицательным.
- Если число в массиве d(12) отрицательное, то его абсолютное значение добавляется к переменной s.
- После завершения цикла, переменная s выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д