@Помогите

прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type
TreeLink = ^Tree;
Tree = record
Data: string;
Left, Right: TreeLink;
end;

procedure InsTree(var t:TreeLink; Num, NumNode : integer; S:String);
var PNum, LNum, k : integer;
begin
if t = nil then begin
new(t);
with t^ do begin
Left := nil;
Right := nil;
Data := S;
end;
end else begin
{ По текущему номеру узла можно определить номер
узлов, которые справа и слева от него }
k := 1; PNum := NumNode;
While PNum > k do begin
PNum := PNum - k;
k := k * 2;
end;
{ PNum - номер узла внутри уровня от 1 }
{ LNum - номер левого узла от текущего }
LNum := (PNum-1)*2 + NumNode - PNum + 1 + k;
if (LNum = Num) or (t^.Left <> nil)
then InsTree(t^.left , Num, LNum, S);

if (LNum+1 = Num) or (t^.Right <> nil)
then InsTree(t^.Right, Num, LNum+1, S)
end;
end;

Procedure PrintTree(var S:String; t:TreeLink);
begin
if t <> nil then begin
PrintTree(S, t^.left);
PrintTree(S, t^.right);
S := S + t^.data + ',';
end;
end;

var txtfile : text;
S, S1 : String;
kd: TreeLink;
N, i:integer;
begin
kd := nil;
Assign(txtfile, 'out.txt');
Reset(txtfile);
s := '';
while not eof(txtfile) do begin
Readln(txtfile, S1);
if S1[length(s1)] <> ',' then s1 := s1 + ',';
s := s + s1;
end;
Close(txtfile);

N := 1; // Номер узла
for i := 1 to length(s) do begin
while (Pos(',', s) > 0) do begin
S1 := copy(s, 1, Pos(',', S) - 1);
delete(s, 1, Pos(',', S));
insTree(kd, N, 1, S1);
inc(N);
end;
end;

s := '';
PrintTree(s, kd);

Assign(txtfile, 'in.txt');
Rewrite(txtfile);
writeln(txtfile, s);
Close(txtfile);

readln;
end.

Вернуться к обсуждению:
ПОМОГИТЕ с комментариями Pascal

0