Бинарные деревья / LABA3_re

unit laba3_re;

INTERFACE
uses crt, derevo2, derevo;

Function TEST(S : string): boolean; {Їа®ўҐаЄ  Їа ўЁ«м­®бвЁ ўў®¤  ¤ҐаҐў }

Function Go:BinT; {дг­ЄжЁп, аҐи ой п Ї®бв ў«Ґ­­го § ¤ зг}

IMPLEMENTATION

Function TEST(S : string): boolean;
const
koren = ['a' .. 'z', 'A' .. 'Z'];
var
znach, itog, temp : boolean;
i, len : integer;
str : string;
cur : char;

procedure scan;
begin
if (i <= len) then
begin
cur := s[i];
inc(i);
end else
begin
cur := '!';
exit;
end;
end; {scan}

function TestBT : boolean;
forward;
function forest:boolean;
var znach : boolean;
begin
znach := true;
if s[i] = '(' then
begin
znach := testbt;
if znach then
begin
znach := forest;
end;
end;
forest := znach;
end;

function TestBT : boolean;
var znach : boolean;
begin
scan;
if (cur = '(') then
begin
scan;
znach := cur in koren;
if znach then
begin
znach := forest;
end;
scan;
if (cur <> ')') then
begin
znach := false;
end;
end else znach := false;
TestBT := znach;
end; {TestBT}
Begin
temp := false;
len := Length(s);
i := 1;
itog := TestBT;
itog := itog and (i <> len);
TEST := itog;
End; {TEST}
{--------END--ANALIZATOR--------------}



Function Go:BinT;

var
i,j,k,schet,num : integer;
F, LST,ls : Forest;
o,tek : Tree;
temp:BiNT;


function B(F : forest):bint;
var
ls,f1 : forest;
begin
if NullF(F) then B := nil else
begin
Listin(Head(f),ls);
Tail(Head(f),f,f1);
B := consBT(roott(Head(F)),B(ls),B(f1));
end;
end;

begin
CreateForest(F);
schet := 1;
i := 1;
if eoln(t) then
begin
writeln('” ©« Їгбв.');
writeln(tt,'” ©« Їгбв.');
end else
BeGin
while not eof(t) do
begin
writeln(tt,'‘зЁвлў о ¤ҐаҐў® ­®¬Ґа ',schet,'...');
readln(t,st);
y1:=length(st);
for j :=1 to y1 do
begin
if (st[j]=' ') then
begin
delete(st,j,1);
j:=1;
end;
end;
y1:=length(st);
if TEST(st) then BEGIN

tek := EnterT(st);


begin
writeln(tt,'„ҐаҐў® ­®¬Ґа ',schet,' бзЁв ­®. ‘Є®Ў®з­ п § ЇЁбм ¤ҐаҐў :');
WriteT1(tek,tt);
writeln(tt);
F[i] := tek;
inc(i);
end;

END else
begin
writeln('ЋиЁЎЄ  ў § ЇЁбЁ ¤ҐаҐў  ­®¬Ґа ',schet,'. „ҐаҐў® ­Ґ бзЁв ­®.');
writeln(tt,'ЋиЁЎЄ  ў § ЇЁбЁ ¤ҐаҐў  ­®¬Ґа ',schet,'. „ҐаҐў® ­Ґ бзЁв ­®.');
end;
inc(schet);
end;
dec(i);

writeln(tt,'ЋЎа Ў®вЄ  «Ґб ...');
writeln('ЋЎа Ў®вЄ  «Ґб ...');
{Temp := B(F);
WriteT(F[1]);
writeln; }
{DisplayBT1(Temp,1);}
{DisplayT1(F[1],1,1);}

if (i <> 0) then
begin
writeln('€б室­л© «Ґб:');
writeln(tt,'€б室­л© «Ґб:');
end;
for j:=1 to i do
begin
writeln('„ҐаҐў® ',j,':');
writeln(tt,'„ҐаҐў® ',j,':');
DisplayT1(F[j],1,1);
DisplayT2(F[j],1,1,tt);
end;

writeln;
writeln(tt);
Temp := B(F);
Go := Temp;
if (temp = nil) then
begin
writeln(tt,'Џ®«г祭® ЎЁ­ а­®Ґ ¤ҐаҐў® «Ґб  Їгбв®.');
writeln('Џ®«г祭® ЎЁ­ а­®Ґ ¤ҐаҐў® «Ґб  Їгбв®.');
end else BEGIN
writeln(tt,'Џ®«г祭® ЎЁ­ а­®Ґ ¤ҐаҐў® «Ґб :');
writeln('Џ®«г祭® ЎЁ­ а­®Ґ ¤ҐаҐў® «Ґб :');
DisplayBT1(Temp,1);
DisplayBT2(Temp,1);
writeln(tt);
writeln;
writeln('‘Є®Ў®з­®Ґ ЇаҐ¤бв ў«Ґ­ЁҐ ЎЁ­ а­®Ј® ¤ҐаҐў  «Ґб :');
writeln(tt,'‘Є®Ў®з­®Ґ ЇаҐ¤бв ў«Ґ­ЁҐ ЎЁ­ а­®Ј® ¤ҐаҐў  «Ґб :');
WriteBT(Temp);
WriteBT1(Temp);
END;
EnD;
end;{Go}



End.