Вопрос по информатике:
Вычислить сумму квадратов элементов массива
(2;1;0;-1;-2;-3;10)
Задача: Дан массив элементов . Выполнить задачу и вывести на печать результата
Нужно код для Qbasic по этой задаче
- 11.08.2017 22:43
- Информатика
- remove_red_eye 2594
- thumb_up 44
Ответы и объяснения 1
CLS
DATA 2,1,0,-1,-2,-3,10
DIM a(1 TO 7) AS INTEGER
s = 0
FOR i = 1 TO 7
READ a(i)
s = s + a(i) ^ 2
NEXT i
PRINT "s="; s
END
Результат выполнения:
s= 119
Замечание
Можно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,
поскольку QBasic позволяет не описывать массивы размером до 10 элементов.
- 12.08.2017 04:43
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.