Есть текстовый файл, который содержит имена детей и их желание на НГ. Выглядет это так : Christoph: Schlitten Barbara: Barbie-Puppe Barbara: Puppenkьche Christoph: Matchboxauto Barabara: Blockflцte Susi: Strolchi-Puppe
Нужно сделать двусвязный список, который содержит имена детей ,желания и "частоту желаний", добавляя эновый элемент в конец списка. Вобщем смысл : создавать для кадой строчки текстового файла элемент списка и считывать туда эту строчку. примерный код:
PROGRAM Wishes;
USES Wincrt;
TYPE
WishNodePtr = ^WishNode;
WishNode = RECORD
prev, next: WishNodePtr;
whish: STRING; (*the wish*)
n: INTEGER; (*number of occurences of the wish*)END; (*RECORD*)FUNCTION READFROMFILE ;
var list, NewNode, previous : WishNodePtr;
BEGIN
List:= Nil;
WHILEnot EOF DOBEGIN(* здесь условие: для первой строчки файла создаем элемент *)
new(List);
list^.prev:= NIL;
list^.next := NIL;
list^.wish := s;
previous := list;
(* здесь условие: для всех остальных строчек файла *)
New(NewNode);
NewNode^.next := NIL;
NewNode^.prev := previous;
NewNode^.wish := s;
previuos := NewNode;
END;
.
.
.
Не могу сообразить что это за условие может быть. Или это вообще делается по-другому
volvo
7.01.2010 14:51
Цитата
Не могу сообразить что это за условие может быть.
Ты о чем?
Вот об этом условии, что-ли:
head := nil; tail := nil;
whilenot eof(f) dobeginif head = nilthen{ первый элемент }else{ уже не первый, добавлять к tail^.next }end;
?
Сколько уже таких тем было, неужели же настолько сложно посмотреть на форуме, как организуется список? Почему КАЖДЫЙ думает, что именно его задание - самое важное, и именно его не было на форумах и вообще, его дали в первый раз. Уверяю вас, я на форумах за 6 лет не встретил НИ ОДНОГО оригинального задания, кругом копи/пасты (из каких-то учебников, из файлопомоек, из старых добрых задачников начиная с 1988 года, по которым я в свое время учился, поэтому большинство задач оттуда помню наизусть). Нет ничего нового. Куда мир катится - непонятно.
Ozzя
8.01.2010 13:34
Цитата
из старых добрых задачников начиная с 1988 года
Оффтоп он Кивает в знак согласия. Пильщиков, Абрамов..., Дьяконов etc Оффтоп офф
Цитата
Куда мир катится - непонятно.
туды
lopata
13.01.2010 17:25
Помогите пожалуйста составить алгоритм.
lopata
15.01.2010 5:06
Я понимаю что всем пофиг, но может все-таки кто-нибудь посмотрит условие немного изменилось: у именам "прикреплены" (плохо владею терминами на русском языке) односвязные списки, содержащие имена с одинаковыми пожеланиями.