Алгоритм Бауэра-Замельзона для вычисления скобочно-арифметического выражения.

[alexmakeev1]

В новом семестре вообще перестал понимать, что к чему. ( Если в предыдущем были задания намного проще и с ними я худо-бедно справлялся, то сейчас постигла меня тоска и печаль. Поэтому остается надеяться только на вашу помощь. В Стек, @Бауэра-Замельзона.pdf файле описание задания. А вот то, что я смог сделать:

program Task2;
{$mode objfpc}{$H+}
uses
  Classes, SysUtils, CustApp;
type
  NodePointer = ^TNode;
  TNode = record
    value : double;
    next : NodePointer;
  end;
var
  T: NodePointer; // операторы (знаки)
  E: NodePointer; // операнды (числа)
  str: string;
  i, temp1: integer;
  temp: double;
procedure Push(var head : NodePointer; val : double); // проталкивание
var current: NodePointer;
begin
  New(current);
  current^.value := val;
  current^.next := head;
  head := current;
end;
procedure Pop(var head : NodePointer); // выталкивание
var current: NodePointer;
begin
  current := head;
  head := head^.next;
  dispose(current);
end;
procedure ShowOnConsole(head : NodePointer); // вывод элементов списка
var current: NodePointer;
begin
  current := head;
  writeln('Содержимое списка: ');
  while (current <> NIL) do
  begin
     write(current^.value:0:1, ', ');
     current := current^.next;
  end;
  writeln;
end;
function ReadValue(var head: NodePointer): double; // чтение первого элемента
begin
  if head = NIL then
    result := 7
  else
    result := head^.value;
end;
procedure F1(var value: char); // поместить операцию в стек Т
begin
  case value of
  '(' : Push(T, 1);
  ')' : Push(T, 2);
  '+' : Push(T, 3);
  '-' : Push(T, 4);
  '*' : Push(T, 5);
  '/' : Push(T, 6);
  end;
end;
procedure F3; // исключить символ из стека Т
begin
  Pop(T);
end;
procedure F5; // сообщение об ошибке
begin
  writeln('Ошибка');
end;
procedure F6; // завершить работу
begin
  exit;
end;
begin
  readln(str);
  for i := 1 to length(str) do
  begin
    if str[i] in ['0'..'9'] then
      Push(E, strtoint(str[i]))
    else
    begin
    case str[i] of
    '(': F1(str[i]);
    // не получается сделать вложенный case
    // здесь работают функции, как сделать таблицу перехода, я не знаю
    end;
  end;
  ShowOnConsole(T);
  ShowOnConsole(E);
  readln;
end.

[Елена Дьяченко]

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

[Loreena.J]

Бугагашеньки!