![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
2407 |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Женский Репутация: ![]() ![]() ![]() |
Дана очередь из букв, отсортировать по алфавиту.
|
![]() ![]() |
Jahnerus |
![]()
Сообщение
#2
|
![]() Уникальный ![]() ![]() Группа: Пользователи Сообщений: 64 Пол: Мужской Репутация: ![]() ![]() ![]() |
Как наверно видно прога упорядочевает только маленькие русские буквы ...
Если есть необходимость упорядочивать также и заглавные буквы или английские, то пиши ... Код uses crt; const alf='абвгдежзийклмнопрстуфхцчшщъыьэюя'; var i,j:byte; s:string; ch:char; begin clrscr; write('Введите строку '); readln(s); for i:=1 to length(s) do begin for j:=1 to length(s)-1 do begin if pos(s[j],alf)>pos(s[j+1],alf) then begin ch:=s[j]; s[j]:=s[j+1]; s[j+1]:=ch; end; end; end; writeln('Строка после преобразования'); writeln(s); readln; end. -------------------- Век живи, век учи С © by Jahnerus
|
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 5:32 |