Вычислить квадратный корень из суммы квадратов элементов массива

13.10.2009, 18:17. **Показов** 974. **Ответов** 5

Студворк — интернет-сервис помощи студентам

Помогить решить задачку по информатике
Вычислить квадратный корень из суммы квадратов элемента массива

31.10.2009, 13:36

QBasic/QuickBASIC
INPUT "колю знач. мас.", a
DIM aa(a)
 FOR i = 1 TO a
 INPUT aa(i)
 NEXT
 FOR s = 1 TO a
 ss = aa(s) * aa(s) + ss
 NEXT s
 PRINT SQR(ss)

примерна так

@кот Бегемот · 02.11.2009, 20:00

В бейсике есть функция степени, можно было написать
70 ss = aa(s)^2 + ss

а еще проще объединить ввод и нахождение суммы:

PureBasic
1
2
3
4
5
6
7
10 INPUT "кол знач. мас.", a
20 DIM aa(a)
30  FOR i = 1 TO a
40  INPUT aa(i)
50  ss = aa(s) * aa(s) + ss
60  NEXT s
70  PRINT SQR(ss)

Но на результате не отражается

@o-user · 03.11.2009, 09:05

Для новичков в программировании лучше все делать как можно проще!
Я бы не объединял процесс ввода и расчет! Пусть все будет по-порядку! Так понятнее и нагляднее (это самое то для начала).
А оптимизировать они потом сами смогут!

06.12.2009, 14:49

помогите пожалусто решить задачку, найти сумму S квадратов элементов масива А, значение которых принадлежит интервалу [-10;12] и их количество,
к этой задаче нужна программа написана в квикбейсике.
заране блогодарен

@кот Бегемот · 06.12.2009, 17:00

Сообщение от casperator

помогите пожалусто решить задачку, найти сумму S квадратов элементов масива А, значение которых принадлежит интервалу [-10;12] и их количество,
к этой задаче нужна программа написана в квикбейсике.
заране блогодарен

PureBasic
1
2
3
4
5
6
7
8
9
INPUT "вв. кол. элементов", N
DIM a(N)
FOR i = 1 TO N
INPUT "введите элемент ",a(i)
NEXT
FOR i = 1 TO N
if a(i)>=-10 and a(i)<=12 then k=k+1:s=s+a(i)^2
NEXT 
PRINT "Сумма=";s;" Количество=";k

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Мика

	Вычислить квадратный корень из суммы квадратов элементов массива 13.10.2009, 18:17. Показов 974. Ответов 5 Метки нет (Все метки) Помогить решить задачку по информатике Вычислить квадратный корень из суммы квадратов элемента массива

kopernikmm61
	31.10.2009, 13:36
	QBasic/QuickBASIC 10 INPUT "колю знач. мас.", a 20 DIM aa(a) 30 FOR i = 1 TO a 40 INPUT aa(i) 50 NEXT 60 FOR s = 1 TO a 70 ss = aa(s) * aa(s) + ss 80 NEXT s 90 PRINT SQR(ss) примерна так

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	03.11.2009, 09:05
	Для новичков в программировании лучше все делать как можно проще! Я бы не объединял процесс ввода и расчет! Пусть все будет по-порядку! Так понятнее и нагляднее (это самое то для начала). А оптимизировать они потом сами смогут! 1

casperator
	06.12.2009, 14:49
	помогите пожалусто решить задачку, найти сумму S квадратов элементов масива А, значение которых принадлежит интервалу [-10;12] и их количество, к этой задаче нужна программа написана в квикбейсике. заране блогодарен