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