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

farejoker · 27.10.2013, 13:31

В текстовом файле 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

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

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

27.10.2013, 13:31	#1 (permalink)
farejoker Member Регистрация: 26.04.2013 Сообщений: 20 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	В текстовом файле G cлова расположить в обратном алфавитном порядке В текстовом файле G cлова расположить в обратном алфавитном порядке. Использовать односвязные списки. В конце файла вывести общее количество разных слов (количество элементов списка). На паскале помогите сделать)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070