![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Сюзик |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
Срочно надо решить задачки, а в двумерных массивах я ничего не понимаю
![]() 1.Задан двумеpный массив А из N стpок и М столбцов. Задан одномеpный массив В из тpех злементов. Указать номеpа стpок массива А, в котоpых есть фpагмент элементов, повтоpяющий массив В. 2.Задан двумеpный массив А из N стpок и М столбцов. Отдельно составить матрицу Х из тех строк матрицы А, для которых всякий элемент имеет равного ему соседа слева или справа. |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
1.
Код const n = 3; m = 5; (* данные для тестирования a = 1, 2, 3, 4, 5 2, 3, 4, 5, 6 3, 4, 5, 6, 7 b = 2, 3, 4 *) var a: array[1 .. n, 1 .. m] of integer; b: array[1 .. 3] of integer; var i, j, k, found: integer; nextLine: boolean; begin for i := 1 to n do for j := 1 to m do begin write('a[', i, ',', j, '] = '); readln(a[i, j]) end; for i := 1 to 3 do begin write('b[', i, '] = '); readln(b[i]) end; for i := 1 to n do begin j := 1; nextLine := false; while (j <= m - 3) and not nextLine do begin found := 0; for k := 1 to 3 do inc(found, byte(a[i, j+k-1] = b[k]) ); if found = 3 then begin writeln( 'line: ', i ); nextLine := true end else inc(j) end; end; end. Сообщение отредактировано: volvo - 10.12.2004 18:35 |
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 22:38 |