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

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - В текстовом файле G cлова расположить в обратном алфавитном порядке (http://www.tehnari.ru/f43/t91865/)

farejoker

27.10.2013 13:31

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

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

Gruvi

27.10.2013 21:55

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

Цитата:

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[i],' ');
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

27.10.2013 21:58

Цитата:

Сообщение от Gruvi (Сообщение 962601)

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

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

Часовой пояс GMT +4, время: 05:36.