Задача на списки., Хелп. Опции

[QDe5n1K]

Люди помогите!!! Плз... Задача звучит так:
"ВВодится некоторая последовательность букв русского алфавита и записывается в памяти в виде линейного списка. Определить упорядочена ли последовательность по алфавиту( если нет, то упорядочить), заменить выбранную K-ую букву на Q-ю, поменять местами первую и последнюю буквы...
Люди, пожалуйста, подскажите как это делать и приведите примеры кусочков кода (полный мне не нужен, хочу сам разобраться, но для этого нужно небольшое ускорение) Пожалуйста, подскажите что и как...

[volvo]

QDe5n1K
Код должен выглядеть вот так:

Код

procedure open(var p:plist;var a:char);
var pp: plist;
...
while not eof(filex) do
    begin
    new(pp); {берем новый элемент из "кучи"}
    pp^.next:=p; {его "следующему" значению }
    readln(filex, pp^.a); {записываем в новый элемент данные}
    p:=pp; {а теперь при следующем выделении данных будем считать "новый" элемент последним, т.е. старым... :)}
    end;
...

Сообщение отредактировано: volvo - 24.11.2004 17:45