Задача об одномерном массиве |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача об одномерном массиве |
RIDDICK |
Сообщение
#1
|
Гость |
Вводится произвольная последовательность чисел a1,a2,...,am. Найти частоту повторения каждого числа. Результаты расчетов поместить в одномерный массив b, где каждая пара элементов (Bi,Bi+1) соответственно равна: Bi - различные элементы последовательности , а Bi+1 - число их повторений. Количество пар (Bi, Bi+1) соответствует числу различных чисел, входящих в последовательность a1,a2,...,am.
Нужно на Pascal написать ... |
volvo |
Сообщение
#2
|
Гость |
RIDDICK
Задача решается так: Код const m = 7; var b: array[1 .. 2 * m] Of Integer; a, i, j, bCount: integer; found: boolean; begin for i := 1 to m do begin write('a #', i, ' = '); readln(a); j := 1; found := false; while (j <= bCount) and (not found) do begin if b[j] = a then begin inc(b[succ(j)]); found := true end else inc(j, 2) end; if not found then begin b[succ(bCount)] := a; inc(bCount, 2); b[bCount] := 1; end; end; writeln('result:'); for i := 1 to bCount do begin write(b[i]:4); if not odd(i) then writeln end; end. |
Guest |
Сообщение
#3
|
Гость |
большое спасибо
|
Текстовая версия | 14.01.2025 14:41 |