![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Анжелика |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 35 Пол: Женский Реальное имя: Анжелика Репутация: ![]() ![]() ![]() |
Ребят, я вроде сделала программу, но вот только возникает какая-то ошибка в подключении модуля. посмотрите, плз, подпрограмму и главную программу и укажите на ошибки. Спасибо.
Главная программа: Код Uses ModInsert; Var a:Matrix; i,j,n,m:Integer; Begin Writeln('Please, enter N, M:'); Readln(n,m); Writeln('Enter array:'); For i:=1 To n Do For j:=1 To m Do Read(a[i,j]); For i := 1 to m do ModInsert(a[i], n); Writeln('Result:'); For i:=1 To n Do Begin For j:=1 To m Do Write(a[i,j],' '); Writeln; End; Readln; End. Модуль: Код Unit ModInsert; Interface const n=100; m=100; Type arrType = Array[1 .. n] Of Integer; matrix = Array[1 .. m] Of ArrType; Procedure Sort(Var ar: arrType; n: Integer); Implementation Procedure Sort; Var i, j, T: Integer; Begin For i := 1 To n do Begin T := ar[i]; j := Pred(i); While (T < ar[j]) and (j > 0) Do Begin ar[Succ(j)] := ar[j]; Dec(j); End; ar[Succ(j)] := T; End; End; End. Сообщение отредактировано: Анжелика - 19.12.2005 17:17 |
![]() ![]() |
Анжелика |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 35 Пол: Женский Реальное имя: Анжелика Репутация: ![]() ![]() ![]() |
Еще один вопрос: что нужно поменять в модуле, чтобы он отсортировывал не по возрастанию, а по убыванию.
|
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 2:33 |