IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Units
Анжелика
сообщение 19.12.2005 17:15
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Женский
Реальное имя: Анжелика

Репутация: -  0  +


Ребят, я вроде сделала программу, но вот только возникает какая-то ошибка в подключении модуля. посмотрите, плз, подпрограмму и главную программу и укажите на ошибки. Спасибо.
Главная программа:
Код

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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Анжелика
сообщение 19.12.2005 17:53
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Женский
Реальное имя: Анжелика

Репутация: -  0  +


Еще один вопрос: что нужно поменять в модуле, чтобы он отсортировывал не по возрастанию, а по убыванию.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 2:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"