Суммирование одномерных массивов. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Суммирование одномерных массивов. |
Len |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Суммирование одномерных массивов.
Запрос количества массивов, т.е. сколько элементов мы будем суммировать. Вопрос количества элементов каждого массива. # Введите 1 элемент 2 массива, и.т.д. А потом, в ответе: сумма (скольких или # 2 и 5) одномерных массивов=... Помогите, плиз. :molitva: |
volvo |
Сообщение
#2
|
Гость |
Цитата(Правила раздела) 5. Пожалуйста, точно пишите условие задачи Если Вам задали это в таком виде, то уточните у преподавателя, что имеется в виду. Пока это - набор слов. |
Len |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Выглядеть это должно примерно так:
Код Program massiv; uses crt; var a:array[1..maxCount,1..maxCount]of real; i,j,n,m:integer; sum:real; begin clrscr; write('Введите количество строк: '); readln(n); write('Введите количество столбцов: '); readln(m); for i:=1 to n do for j:=1 to m do begin write('Введите ',j,' элемент ',i,' строки'); readln(a[i,j]) end; sum:=0; for i:=1 to n do for j:=1 to m do sum:=sum+a[i,j]; writeln('сумма элементов массива= ',sum:1:2); readln; end. Если я правильно ее поняла... Только в этой проге двумерный массив, а ей нужно также с одномерным. Еще, тут запрос количества строк и столбцов. А в нужной программе нужно заправшивать количество массивов. Потом запрос элементов. А в итоге, в ответе должна быть сумма всех этих одномерных массивов. |
volvo |
Сообщение
#4
|
Гость |
Цитата(Len @ 11.04.05 13:38) Если я правильно ее поняла... Так вот убедитесь, что Вы правильно ее поняли, чтобы не переделывать программу несколько раз. И еще: Цитата А в нужной программе нужно заправшивать количество массивов. Это как Вы себе представляете? работать с одним и тем же массивом для ввода значений, или действительно вводить несколько разных? Предупреждаю следующий вопрос: тогда количество массивов должно быть известно еще на этапе компиляции, а не "после запуска". Уточняйте условие... |
Len |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
сегодня я узнала точные условия проги:
суммирование одномерных массивов. То есть на экране должно быть 1) Введите кол-во массивов (она наверно это за размерность принимает) 2) Введите количество элементов: 3) Введите 1 элемент 2 массива, и.т.д. А потом: сумма всех элементов=... |
Len |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Привет, админы!
Если не сложно, подскажите, пожалуйста, как сделать из этой программы одномерный массив. Мне нужна эта же программа, но с одномерным массивом, а не с двумерным. Код Program massiv; uses crt; var a:array[1..50,1..50]of real; i,j,n,m:integer; sum:real; begin clrscr; write('Введите количество массивов: '); readln(n); write('Введите количество элементов каждого массива : '); readln(m); for i:=1 to n do for j:=1 to m do begin write('Введите ',j,' элемент',i,' массива '); readln(a[i,j]) end; sum:=0; for i:=1 to n do for j:=1 to m do sum:=sum+a[i,j]; writeln('Сумма элементов одномерного массива = ',sum:1:2); readln; end. что за личности? почему адресованно админам? смахивает на нарушение правил! Сообщение отредактировано: Oleg_Z - |
volvo |
Сообщение
#7
|
Гость |
write('Введите количество массивов: '); readln(n); Это куда в таком случае девать? Хотя... Извиняюсь, я же не админ. Меня в принципе не спрашивали |
Len |
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Да уж! Ну вы и вежливые...
Я с вами поздоровалась по-человечески, а получаю одни упреки. Даже как-то обидно... А что, люди, которые отвечают на сообщения разве не админы??? Если не хотите помочь - не надо, но при этом зачем грубить? Вас никто не обижал, а вот я обиделась. |
Текстовая версия | 15.05.2024 2:09 |