|
Вопрос # 1 969/ вопрос открыт / |
|
Здравствуйте,Уважаемые эксперты!Помогите,пожалуйста,с решением двух задач:
1.Упорядочить n-е количество слов по алфавиту.Язык русский.Данную задачу я решил,использовав пузырьковую сортировку.Не знаю,как при её решении использовать метод замены или прямого выбора.
2.Ввести строку с клавиатуры.Заменить искомую подстроку строкой с клавиатуры.
Приложение: Переключить в обычный режим-
-
- Var Words : Array[1..10] of String;
- Tmp : String;
- i, j, NWords : Integer;
- BEGIN
- ClrScr;
-
- ReadLn(NWords);
- For i := 1 to NWords do
-
- ReadLn(Words[i])
- end;
- For i := 1 to NWords-1 do
- For j := i+1 to NWords do
- If Words[i]>Words[j] then
- begin
- Tmp := Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
- end;
-
-
- For i := 1 to NWords do Write(Words[i], ' ');
- WriteLn; ReadLn
- END.
-
 |
Вопрос задал: Maverick (статус: Посетитель)
Вопрос отправлен: 5 октября 2008, 00:21
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Feniks
Здравствуйте, Maverick!
1. В комплекте с Делфи всегда шли примеры. Среди них был пример Threads. Он демонстрирует для сравнения три разных алгоритма сортировки. Среди них и "пузырек". Поищите его у себя. Если не найдете, можем выслать. А так же есть кучу других алгоритмов...
2. Для поиска и замены подстроки в строке существует готовая функция:
function ReplaceStr(const AText: string; const AFromText: string; const AToText: string): string;
Находится она в модуле StrUtils.
P.S. Желаю удачи.
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 6 октября 2008, 11:29
Оценка за ответ: 5
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
