Динамические структуры. Стеки.

[E1337]

Вычислить значение арифметического выражения, хранящегося в постфиксной записи. В выражение входят:
a) целые числа;
б) знаки плюс (+), минус (–).

[min@y™]

выражения типа такие?
1+2-3+100500
если да, то для решения не нужны ни дин. структуры, ни стек.

[Вадим Мошев]

выражения типа такие?
1+2-3+100500

это ИНфиксная запись, ИМХО.

[min@y™]

это ИНфиксная запись

да. я ошибся.

[E1337]

<up>

[CMY_3]

program Stack;

{$mode fpc}
uses Crt;
type
  tSt = ^Node;
  Node = record
    Numb : integer;
    Next : tSt;
  end;
  procedure AddSt(var St:tSt;const Numb_:integer);
  var temp : tSt;
  begin
    New(temp);
    temp^.Numb:=Numb_;
    temp^.Next:=St;
    St:=temp;
  end;

  procedure Pop(var St:tSt;var numb_ : integer);
  var p : tSt;
  begin
    if St=nil then exit;
    Numb_:=St^.Numb;
    p := St;
    St:=St^.Next;
    dispose(p);
  end;

var
  st_nm, st_sg : tSt;
  a,b,err,i : integer;
  s : string;
begin
  st_nm := nil;
  write('Числа в выражении через пробел s='); readln(s);

  err:=0;
  while err=0 do begin
    Val(Copy(s,1,pos(' ',s)-1),a,err);
    if err<>0 then break;
    delete(s,1,pos(' ',s));
    AddSt(St_nm,a);
  end;

  st_sg := nil;
  for i := length(s) downto 1 do if s[i]='+' then AddSt(st_sg,1)
  else if s[i]='-' then AddSt(st_sg,0);

  while st_sg<>nil do begin
     Pop(st_nm,a);
     Pop(st_nm,b);
     Pop(st_sg,i);
     if i=1 then a := a + b
     else a := b - a;
     AddSt(St_nm,a);
  end;
  Pop(st_nm,a);
  writeln('Результат ',a);
  readln;
end.

[E1337]

Сообщение от CMY_3

program Stack;

{$mode fpc}
uses Crt;
type
  tSt = ^Node;
  Node = record
    Numb : integer;
    Next : tSt;
  end;
  procedure AddSt(var St:tSt;const Numb_:integer);
  var temp : tSt;
  begin
    New(temp);
    temp^.Numb:=Numb_;
    temp^.Next:=St;
    St:=temp;
  end;

  procedure Pop(var St:tSt;var numb_ : integer);
  var p : tSt;
  begin
    if St=nil then exit;
    Numb_:=St^.Numb;
    p := St;
    St:=St^.Next;
    dispose(p);
  end;

var
  st_nm, st_sg : tSt;
  a,b,err,i : integer;
  s : string;
begin
  st_nm := nil;
  write('Числа в выражении через пробел s='); readln(s);

  err:=0;
  while err=0 do begin
    Val(Copy(s,1,pos(' ',s)-1),a,err);
    if err<>0 then break;
    delete(s,1,pos(' ',s));
    AddSt(St_nm,a);
  end;

  st_sg := nil;
  for i := length(s) downto 1 do if s[i]='+' then AddSt(st_sg,1)
  else if s[i]='-' then AddSt(st_sg,0);

  while st_sg<>nil do begin
     Pop(st_nm,a);
     Pop(st_nm,b);
     Pop(st_sg,i);
     if i=1 then a := a + b
     else a := b - a;
     AddSt(St_nm,a);
  end;
  Pop(st_nm,a);
  writeln('Результат ',a);
  readln;
end.

Работает?

[CMY_3]

Работает?

Проверь.

[E1337]

Сообщение от CMY_3

Работает?

Проверь.

Что-то не то, или я что-то ввожу не так.

[CMY_3]

https://ru.wikipedia.org/wiki/%D0%9E...B8%D1%81%D1%8C
и учти код только для + -