дерево арифметического выражения

[Cannibal]

пишу программу, вычисляющую значение выражения с помощью дерева.

вот кусок программы

type
  TDer = ^TVersh;
  TKlVersh = (kOper, kVar, KNum, KOpBr, KClBr, KEnd);
  Tversh = record
    KlVersh : TklVersh;
    inf : char;
    left, right : TDer;
    end;


  TKlLek = TKlVersh;
  TLek = record
    klass : TKlLek;
    inf : char;
    end;

var
  TekLek : Tlek;
  VirTree : TDer;
  s : set of byte;

procedure Error(mess : string);
begin
  writeln(mess);
  halt;
end;

procedure scan;
var
  c : Char;

begin
  read(c);
  with TekLek Do begin
    inf := c;
    case C of
      '+', '-', '*', '/' : Klass := KOper;
      '0'..'9' : Klass := KNum;
      'A'..'Z','a'..'z' : klass := KVar;
      '(' : klass :=KOpBr;
      ')' : klass := KClBr;
      '=' : klass := KEnd;
    else
      Error('Íå ìîãó ðàñïîçíàòü ñèìâîë '+c+'. Ïðîãðàììà çàâåðøåíà');
    end;
  end;
end;

function IsOperUmn:boolean;
begin
  isOperUmn:=tekLek.inf in ['*','/'];
end;

function IsOperSloz:boolean;
begin
  isOperSloz:=tekLek.inf in ['+','-'];
end;

function novVersh( lev : TDer) : TDer;
var
  versh : TDer;
Begin
  new(versh);
  versh^.KlVersh := tekLek.Klass;
  versh^.inf := TekLek.inf;
  versh^.left := lev;
  versh^.right := nil;
  novVersh := versh;
end;

function mnozh : TDer;
var
  ver : TDer;
begin
  if (TekLek.klass = KVar) or (TekLek.Klass = KNum) then begin
    ver := NovVersh(nil);
    mnozh := ver;
    scan;
  end
  else
    if TekLek.klass = KOpBr then begin
      scan;
      mnozh := vir;
      if TekLek.Klass = KClBr then
        scan
      else
        Error('Îæèäàëàñü ) âìåñòî <'+TekLek.inf+'>')
    end
    else
      error('Îæèäàëîñü ÷èñëî èëè èäåíòèôèêàòîð âìåñòî <'+TekLek.inf+'>');
end;

Function slag :TDer;
var
  PerMnozh : TDer;
  ver : TDer;
begin
  perMnozh := mnozh;
  if not IsOperUmn then
    slag := perMnozh
  else begin
   ver := novVersh(PerMnozh);
   Scan;
   ver^.right := slag;
   slag := Ver;
  end;
end;

Function Vir :TDer;
var
  PerSlag : TDer;
  ver : TDer;
begin
  perSlag := Slag;
  if not IsOperSloz then
    Vir := PerSlag
  else begin
   ver := novVersh(PerSlag);
   Scan;
   ver^.right := Vir;
   vir := Ver;
  end;
end;

проблема в том, что выражение 2*6/3*7 она вычисляет как 2*(6/(3*7))
я подозреваю, что дело в неправильном построении дерева



как можно это исправить?

[Swarog]

может просто здесь поменять местами?

function novVersh( lev : TDer) : TDer;
var
  versh : TDer;
Begin
  new(versh);
  versh^.KlVersh := tekLek.Klass;
  versh^.inf := TekLek.inf;

  versh^.left := nil;
  versh^.right := lev;

  novVersh := versh;
end;

а здесь так

Function slag :TDer;
var
  PerMnozh : TDer;
  ver : TDer;
begin
  perMnozh := mnozh;
  if not IsOperUmn then
    slag := perMnozh
  else begin
   ver := novVersh(PerMnozh);
   Scan;
ver^.left := slag;
   
   slag := Ver;
  end;
end;

Function Vir :TDer;
var
  PerSlag : TDer;
  ver : TDer;
begin
  perSlag := Slag;
  if not IsOperSloz then
    Vir := PerSlag
  else begin
   ver := novVersh(PerSlag);
   Scan;
ver^.left := Vir;
   
   vir := Ver;
  end;
end;

[Swarog]

а вы уверены что так надо как у вас нарисована XD???

[Cannibal]

пробовал. бесполезно.

Да. картинка веселая получилась, но суть то из нее понятна XD

[Swarog]

В принципе разбор ведется верно. просто ведите вычисление не слева направа, а справа налево

[Cannibal]

вот исходники. Попробовал в обратном порядке вычислять - тоже не получается.

[Swarog]

Запустить не удалось, адаптировать долго, но чисто так по разумению должно все быть нормально именно так как у вас в исходнике...