IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Прога про текстовый файл, Пожалуйста, помогите кто-нибудь!!!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Вот задали такую задачку:
В текстовом файле записаны слова. Определить, сколько раз встречается каждое слово и вывести в обратном порядке.
Прошу выслать код mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


успеть-то успел...
но прогу забраковал препод (типа - "не универсальная")
Мне теперь нужно сделать прогу с помощью бинарных деревьев. Прога уже почти готова. Надо только дописать процедуры, чтобы слова выводились по частоте появления. Принцип таков: надо из одного дерева скопировать данные в другое, а потом в другом дереве изменить критерий вывода (cnt) и потом вывести на экран.
Кто-нибудь в курсе – как это делать?
Мне надо к утру завтрашнего дня.
Код только надо чуть-чуть дописать, препод код, который я высылаю, посмотрел - всё нормально, только дописать надо процедурки.
(прога должна быть в консоли)

program  durilka;

{$APPTYPE CONSOLE}


type Droot=^doot;
doot = record
cnt:integer;
inf:string;
next:droot;
end;
PRoot=^Root;
Root = record
cnt:integer;
inf:string;
Left:PRoot;
Right:PRoot;
end;

Procedure Add(var Root:Proot;i:string);

begin
if Root<>nil then
with Root^ do
begin
if inf<i then Add(Right,i)
else
if inf>i then Add(Left,i)
else
if inf=i then
Inc(cnt);

end
else
begin
{добавляем новый узел}
New(Root);
with Root^ do
begin
Inf:=i;
cnt:=1;
Left:=Nil;
Right:=Nil;
end
end
end; {end procedure add}

{ процедура печати элементов дерева в порядке убывания значения }
Procedure Print(P:Proot);

begin
if P<>Nil then with P^ do
begin
{ обход справа налево}
Print(left);
writeln(inf, '(', cnt, ')');
print(right);
end;
end;


Procedure Delete(R:PRoot);
begin
if R<>Nil then begin
Delete(R^.right);
Delete(R^.left);
DisPose®
end;
end;


{программа}
var F:text;
Filename:string;
inf:string;
c:Proot;
tree2:Droot;
{Count:integer;}

begin



//write('input filename - ');readln(Filename);
Assign(f,'f.txt');
{$I-} reset(f); {$I+}
if IOResult<>0 then
begin
writeln('error!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
exit
end;
c:=Nil;
{заполняем дерево дв.поиска}
{write('Enter are word - ');
read(inf);
Count:=0;}
while not eof(f) do
begin
readln(f,inf);
Add(c,inf);


end;
{Writeln('Count');}
Close(f);
if c=Nil then
writeln('file is empty')
else
begin
writeln('####->4321->####');
Print©;
//******
//tree:=nil;

writeln;
Delete©;
end;
readln;
end.


Текстовый файл отдельно создавал. Его содержание:
Цитата
moloko
student
ogurec
moloko
salo
salo


Ну чё - кто-нибудь поможет мне?

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(avaness @ 8.06.2006 13:31)
прогу забраковал препод (типа - "не универсальная")
Мне теперь нужно сделать прогу с помощью бинарных деревьев.
<...>
Ну чё - кто-нибудь поможет мне?

Ага... А завтра тебе твой препод скажет, что и это решение неуниверсально... Окажется, что надо через стеки реализовывать, например. Сейчас прям, будем десятки раз править... nea.gif Ты сразу ТОЧНОЕ задание давай, а уж потом, извини... "Коней на переправе не меняют" (С)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 8.06.2006 18:31) *

Ага... А завтра тебе твой препод скажет, что и это решение неуниверсально... Окажется, что надо через стеки реализовывать, например. Сейчас прям, будем десятки раз править... nea.gif Ты сразу ТОЧНОЕ задание давай, а уж потом, извини... "Коней на переправе не меняют" (С)

когда препод давал мне эту задачу - в условии НЕ БЫЛО указано - с помощью чего делать. И уж тем более не говорилось об УНИВЕРСАЛЬНОСТИ проги. Я сам в шоке.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
avaness   Прога про текстовый файл   5.06.2006 23:33
Гость   Вобщем я бы делал так uses crt; const n=10;{koli4…   6.06.2006 3:38
volvo   Гость, а Определить, сколько раз встречается кажд…   6.06.2006 3:52
Egor   Ага прошу прощенья.Значит по поводу того как распо…   6.06.2006 3:57
avaness   Ага прошу прощенья.Значит по поводу того как расп…   6.06.2006 10:24
avaness   спасибо, что не оставили мою проблему без внимани…   6.06.2006 18:25
Bokul   Ну если надо определить сколько раз встречается к…   7.06.2006 7:00
avaness   Ну если надо определить сколько раз встречается ка…   7.06.2006 9:10
avaness   комментарии бы не помешали мне...   7.06.2006 9:33
avaness   а как добавить процедуру, чтобы она выводила слова…   7.06.2006 21:58
volvo   avaness, ты знаешь, я тут вспомнил об одной програ…   7.06.2006 22:35
avaness   volvo, я фигово шарю в этих кодах. я ты не можешь …   7.06.2006 22:46
Bokul   Пишешь процедуру и потом вызываешь ее в основной …   8.06.2006 8:58
avaness   успеть-то успел... но прогу забраковал препод (тип…   8.06.2006 17:31
volvo   прогу забраковал препод (типа - "не универсал…   8.06.2006 21:31
avaness   Ага... А завтра тебе твой препод скажет, что и эт…   8.06.2006 23:23


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.05.2022 8:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name