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

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

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

> Cортировка по алфавиту?
Lespot
сообщение 18.06.2005 18:30
Сообщение #1


Гость






Народ, помогите, пожалуйста - срочно нужно! Нужно упорядочить массив строк M по алфавиту. Я знаю, что это очень просто - ну что-то никак не получается sad.gif
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 18.06.2005 19:00
Сообщение #2


Гость






Так в том то и дело, что строки и будут отсортированы ПО АЛФАВИТУ !!!

Type
arrType = Array[1 .. n] Of String; { исправление №1 }
Var
M: arrType;
T: String;
...
For i := 1 To n Do
For j := n DownTo i+1 Do
If M[Pred(j)] > M[j] Then Begin
T := M[Pred(j)]; M[Pred(j)] := M[j]; M[j] := T
End;

FAQ для чего? Чтобы каждый раз то же самое заново переписывать? Я например так не думаю...
 К началу страницы 
+ Ответить 
Lespot
сообщение 18.06.2005 19:47
Сообщение #3


Гость






Цитата(volvo @ 18.06.05 19:00)
Так в том то и дело, что строки и будут отсортированы ПО АЛФАВИТУ !!!

Type
  arrType = Array[1 .. n] Of String; { исправление №1 }
Var
  M: arrType;
  T: String;
...
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If M[Pred(j)] > M[j] Then Begin
        T := M[Pred(j)]; M[Pred(j)] := M[j]; M[j] := T
      End;

FAQ для чего? Чтобы каждый раз то же самое заново переписывать? Я например так не думаю...


Не работает!
Я уже ничего не понимаю. sad.gif sad.gif sad.gif

В общем, у меня такая ситуация: Есть массив 'm', состоящий из записей 'order', в которой есть поле 'pol', так вот мне нужно, чтобы чтобы массив был отсортирован в алфавитном порядке этих полей.
 К началу страницы 
+ Ответить 

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


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

 



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