Аналитическое дифференцирование / 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.