Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Форумчанин Паскаля
 Аватар для code-n'-help
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2

Сумма всех элементов линейного массива

23.01.2014, 00:02. Показов 1302. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите написать программу которая методом рекурсии с процедурой подсчитывает сумму всех элементов линейного массива (целые числа)! Очень надо!

Добавлено через 32 минуты
на C++ тоже нормально
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.01.2014, 00:02
Ответы с готовыми решениями:

Сумма всех отрицательных элементов массива
собственно нужна помощь в написание программы, которая б считала сумму всех отрицательных элементов массива, элементы массива вводит сам...

Вычислить выражение s^2-p^2, где s -сумма, p - произведение всех элементов массива
Дано линейную таблицу, которая имеет N чисел. сложить алгоритм вычисления выражения s^2-p^2 , где s -сума , p - умножение всех елементов...

Найти максимум среди элементов массива, вычесть из всех нечётных элементов массива единицу и поделить на два
Создайте массив А длины 10. Заполните его с клавиатуры целыми числами. Выведите его на экран. Найдите максим среди всех элементов массива....

5
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.01.2014, 12:18
Pascal
1
2
3
4
5
6
7
8
9
10
11
Const Max = 10;
Var m : array[1..Max] of Integer;
Function SumM(n : Word) : Integer;
Begin
  If n>0 then Summ:=m[n]+Sum(n-1)
    else SumM:=0;
End;
 
Begin
  Writeln(SumM(Max));
End.
0
Форумчанин Паскаля
 Аватар для code-n'-help
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
23.01.2014, 21:22  [ТС]
Ну и где тут рекурсия?
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.01.2014, 21:40
Цитата Сообщение от LeonidProtasov Посмотреть сообщение
Ну и где тут рекурсия?
-"Видишь суслика?"
-"Нет"
-"А он есть!"

Добавлено через 2 минуты
Единственно - я нашел опечатку у себя:
Цитата Сообщение от LeonidProtasov Посмотреть сообщение
If n>0 then Summ:=m[n]+Sum(n-1)
Должно быть:
If n>0 then Summ:=m[n]+Summ(n-1)
1
Форумчанин Паскаля
 Аватар для code-n'-help
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
27.01.2014, 22:42  [ТС]
Цитата Сообщение от APALoff Посмотреть сообщение
-"Видишь суслика?"
-"Нет"
-"А он есть!"

Добавлено через 2 минуты
Единственно - я нашел опечатку у себя:

Должно быть:
If n>0 then Summ:=m[n]+Summ(n-1)
А закончить функцию не учили?
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
28.01.2014, 12:39
Цитата Сообщение от LeonidProtasov Посмотреть сообщение
А закончить функцию не учили?
В смысле? Все уже "закончено".
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.01.2014, 12:39
Помогаю со студенческими работами здесь

Найти сумму положительных элементов линейного массива целых чисел
Найти сумму положительных элементов линейного массива целых чисел. Размерность массива – 10. Заполнение массива осуществить с клавиатуры. ...

двумерный массив.сумма всех его элементов
Составить программу, которая создает двумерный массив случайных чисел, выводит его на экран и вычисляет сумму всех его элементов. Строк 5,...

Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень
Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых...

Если сумма элементов массива окажется больше 10, то найти количество четных элементов
program lab3; uses crt; const n=10; type mas=array of real; var a:mas; i,kol:integer; sum,p:real; begin clrscr; ...

Поиск элементов массива, для которых сумма предшествующих элементов больше суммы последующих
Помогите пожалуйста написать программу. Составить программу, которая в каждой строке матрицы D(m,n), m10, n12, находит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru