Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


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

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

Старый 27.10.2013, 13:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Дабы не тратить время на поиски, скину вам аналогичные темы

Как расположить 4 планки DDR3 по 4GB на восьми-слотовой материнке?
Фамилии в алфавитном порядке
Скрытие данных в текстовом файле при помощи NTFS
Артефакты в текстовом режиме
Гиперссылки в текстовом документе
Напечатать в алфавитном порядке все глухие согласные буквы

Старый 27.10.2013, 21:55   #2 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Программа переписывает предложения в обратном порядке.
Цитата:
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.
Gruvi вне форума   Ответить с цитированием
Старый 27.10.2013, 21:58   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,257
Сказал(а) спасибо: 236
Поблагодарили 461 раз(а) в 145 сообщениях
Репутация: 79688
По умолчанию

Цитата:
Сообщение от Gruvi Посмотреть сообщение
Программа переписывает предложения в обратном порядке.
Не, Женя, так, вероятно, не пойдёт. Ему, вишь, через динамические структуры (списки, указатели) надо. Я тут, к сожалению, плаваю, ибо сам этим почти не пользуюсь.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.