В текстовом файле G cлова расположить в обратном алфавитном порядке

[farejoker]

В текстовом файле G cлова расположить в обратном алфавитном порядке

В текстовом файле G cлова расположить в обратном алфавитном порядке. Использовать односвязные списки. В конце файла вывести общее количество разных слов (количество элементов списка). На паскале помогите сделать)

 

[Gruvi]

Программа переписывает предложения в обратном порядке.

var
s:string;
c:char;
f,f1:text;
k,i:integer;
a:array [1..100] of string;
begin
assign(f,'C:\tmp.txt');
assign(f1,'C:\rez.txt');
reset(f);
rewrite(f1);
s:=''; k:=0;
while not EOF(f) do
begin
s:=''; k:=0;
while not EOln(f) do
begin
read(f,c);
if ( c >' ') and ( c <> ',') and ( c <> '.') and ( c <> ':') then
s:=s+c
else
begin
k:=k+1;
a[k]:=s;
s:='';
end;
end;
for i:=k downto 1 do
write(f1,a,' ');
writeln(f1);
readln(f);
end;
close(f);
close(f1);
s:='';
reset(f1);
writeln;
while not EOF(f1) do
begin
readln(f1,s);
writeln(s);
end;
close(f1);
end.

 

[Vladimir_S]

Программа переписывает предложения в обратном порядке.

Не, Женя, так, вероятно, не пойдёт. Ему, вишь, через динамические структуры (списки, указатели) надо. Я тут, к сожалению, плаваю, ибо сам этим почти не пользуюсь.