Код: Выделить всё
var t:text; i:byte;begin assign(t,'Primer.txt'); rewrite(t); for i:=1 to 20 do writeln(t,'*'); close(t);end.
Код: Выделить всё
var t:text; i:byte;begin assign(t,'Primer.txt'); rewrite(t); for i:=1 to 20 do writeln(t,'*'); close(t);end.
Код: Выделить всё
procedure ExitRez(r:TreePointer);
begin
if r<>nil then
begin
writeln(rez,r^.data);
Prefix(r^.left);
Prefix(r^.right);
end
end;
Код: Выделить всё
procedure Build(var p:TreePointer);
begin
new(p);
readln(fail,p^.data);
if (p^.data ='+') or (p^.data='-') or (p^.data ='*') or (p^.data ='/') then
begin
Build(p^.left);
Build(p^.right);
end
else
if (p^.data='exp') or (p^.data ='ln') or (p^.data ='cos') or (p^.data ='sin') then
begin
p^.left:= nil;
Build(p^.right);
end
else
begin
p^.left:= nil;
p^.right:= nil;
end
end;