Аналитическое дифференцирование / INFORM

Unit Inform;

interface

const

MaxSym = 100;
MaxDer = 1000;

type

Sym = record
Num : Boolean;
Code : Byte;
end;
operat = record
Op : Sym;
Prior : Byte
end;
cMas = array [1..Maxsym] of string[10];
uMas = array [1..MaxSym] of Operat;
sMas = array [1..MaxSym] of Char;
wMas = array [1..200] of array [0..80] of Char;
Writer = record
M : wMas;
Size : Integer
end;

pTree = ^tTree;
tStr = record
S : array [1..Maxder] of Char;
Len : Integer
end;

tTree = record
Code : Integer;
Func,Der : tStr;
left,right : pTree
end;



implementation end.