| [ следующий ] [ начало главы ] [ предыдущий ] | [ содержание ] |
| Данные | Результат |
| Words=(''стул'', ''гора'', ''яма'', ''стол'') | Words=("гора", "стол", "стул", "яма") |
Школьный АЯ (АЯ расширен добавлением типа данных лит таб и операций отношения для литерных переменных)
алг Расположить по алфавиту(арг цел NWords, арг рез лит таб Words[1:NWords]) надо | Таблица Words упорядочена лексикографически
нач цел i, j, лит Tmp
нц для i от 1 до NWords-1
нц для j от i+1 до NWords
если Words[i]>Words[j] | условие перестановки слов
то Tmp:=Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp
все
кц
кц
кон
| i | j | Words[i]>Words[j] | Массив Words |
| ''стул'', ''гора'', ''яма'', ''стол'' | |||
| 1 | 2 3 4 | + - - | ''гора'', ''стул'', ''яма'', ''стол'' |
| 2 | 3 4 | - + | ''гора'', ''стол'', ''яма'', ''стул'' |
| 3 | 4 | + | ''гора'', ''стол'' , ''стул'', ''яма'' |
Turbo Pascal
Program LexOrder;
Uses Crt;
Var Words : Array[1..10] of String; {массив слов}
Tmp : String; {Tmp — вспомогательная переменная}
i, j, NWords : Integer; {NWords — количество слов}
BEGIN
ClrScr;
Write('Количество слов в тексте — ');
ReadLn(NWords);
For i := 1 to NWords do
begin Write(i, '-ое слово : ');
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;
WriteLn; WriteLn('О т в е т');
WriteLn('Лексикографически упорядоченный массив слов:');
For i := 1 to NWords do Write(Words[i], ' ');
WriteLn; ReadLn
END.
