Версия для печати темы

Автор: Дружинник 17.02.2011 17:01

Program P1; 
Type Tree=^Nod; 
Nod=record 
Info:string; 
left,right:tree; 
end; 
var T:tree; 
Function Tr:Tree; 
var R:tree; s:string; 
begin 
readln(S); 
if S='' then Tr:=nil esle begin 
new®; 
R^.info:=S; 
write('vvedite lev. potomka'); 
writeln (S',='); 
R^.left:=Tr; 
Writeln ('vvedite prav. potomka ',s',:'); 
R^.right :=Tr; 
Tr:=R;end;end; 
Procedure TypingTree (T:tree;level:integer); 
var i:integer; 
begin if T<>nil then begin 
TypingTree (T^.left,write +1); 
for i:=1 to level do write(' '); 
writeln (T^. info); 
TypingTree (T^.right,level+1);end;end; 
begin 
writeln('vvedite koren':'); 
T:=Tr; 
TypingTree(T,0); 
readln;end

программа, типа дерева семьи...рабочая, вставляю имена, задача заключается в том, что нужно дописать, чтобы отображалось Имя и Год

Автор: volvo 18.02.2011 1:43

Ну, так допиши. Для начала внеси поле "год" в запись. И при вводе данных добавляй не только "имя", но и "год"...