Господа, очень-очень прошу помочь разобраться с программой:
Создать на статической памяти список строк (словарь). Реализовать функцию, сортирующую словарь по первой букве.
Есть несколько заготовок по инициализации, добавлению и выводу элементов, но, по ходу дела,это все едва ли правильно написано. Как сделать здесь сортировку и составить это счастье в единую программу у меня мозга уже не хватает(
Помогите, пожалуйста.
PHP код:
program alpha;
uses
crt;
const N=10; null=(-1);
type
PElem = integer;
TElem = record;
data: String;
next: PElem;
end;
Tlist = record;
buffer:array[1..N] of TElem;
head: PElem;
free:PElem;
end;
var
i : string;
Procedure inst (var list: Tlist); {инициализация списка}
var i:integer;
begin
list.head:= null;
list.free:=1;
for i:=1 to N-1 do
list.buffer[i].next:=i+1;
list.buffer[N].next :=Null;
end;
Procedure insert (var List : TList; const data: String);
var obj: TElem;
pointer: PElem;
i:string;
begin
pointer:=list.free;
writeln('Vvedite dannye');
readln(i);
i:=data;
list.buffer[pointer].data:=data;
list.free:=list.buffer[list.free].next;
list.head:=pointer;
end;
Procedure Print(var pointer:PElem; list: Tlist);
var
i:integer;
begin
pointer:=list.head;
i:=1;
repeat
Writeln(i, list.buffer[pointer].data,' ');
pointer:=list.buffer[pointer].next;
i:=i+1;
until pointer=null;
end;
Буду очень признательна)