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;
WHILE not EOF DO
BEGIN
(* здесь условие: для первой строчки файла создаем элемент *)
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;
.
.
.
Не могу сообразить что это за условие может быть.
Или это вообще делается по-другому