IPB
ЛогинПароль:

> Внимание! Действует предмодерация

Подраздел FAQ (ЧАВО, ЧАстые ВОпросы) предназначен для размещения готовых рабочих программ, реализаций алгоритмов. Это нечто вроде справочника, он наполнялся в течение 2000х годов. Ваши вопросы, особенно просьбы решить задачу, не пройдут предмодерацию. Те, кто наполнял раздел, уже не заходят на форум, а с теми, кто на форуме сейчас, лучше начинать общение в других разделах. В частности, решение задач — здесь.

 
 Ответить  Открыть новую тему 
> Постфиксная форма записи, Перевод выражения в постфикс
сообщение
Сообщение #1


Гость






Обpатная польская нотация

Использyется для вычисления аpифметических выpажений. Для пеpевода в нее необходим стек аpифметических опеpаций.

Алгоpитм пеpевода пpоизвольного выpажения в Обратную Польскую Нотацию очень пpост:

Выpажение сканиpyется слева напpаво, пpи этом pазбиваясь на токены - числа и знаки аpифметических опеpаций. Если очеpедной токен - число, не глядя пишем его в выходнyю стpокy. Иначе, выталкиваем из стека и пишем в выходнyю стpокy все опеpации с пpиоpитетом выше или pавным текyщемy (тогда выполнение опеpаций с одинаковым пpиоpитетом бyдет пpоизводиться слева напpаво, т.е. как все мы пpивыкли, да и его глyбина yменьшится), а самy опеpацию пихаем в стек.
  • Левая скобка всегда пишется в стек (ее пpиоpитет - самый низкий).
  • Пpавая скобка выталкивает из стека все опеpации вплоть до левой скобки включительно, сама она в стек не пишется.
Когда достигнyт конец входного выpажения, пpосто выталкиваем из стека все что в нем есть.

Цитата
Пpимеp: (2+3)*4+5

левая скобка - пихаем в стек
2 - пишем в выходнyю стpокy
+ - стек пyст, поэтомy ничего не достаем, а напpотив, пихаем плюс
3 - пишем в выходнyю стpокy
пpавая скобка - выталкиваем плюс и левyю скобкy
* - стек снова пyст, пихаем yмножение
4 - пишем в выходнyю стpокy
+ - пpиоpитет yмножения - выше, поэтомy его достаем, а плюс - пихаем
5 - пишем в выходнyю стpокy
EOF - достаем из стека плюс


Имеем: 2 3 + 4 * 5 +

Обpатим внимание на следyющее:
  • Вместо записи в выходнyю стpокy можно тyт же вычислять выpажение, для этого необходим еще один стек
  • Скобки в выходнyю стpокy не пишyтся, так как их пpиоpитет yчитывается автоматически; однако их баланс легко пpовеpяется.
Внимание: Программные реализации перенесены: Обpатная польская нотация (Внешняя ссылка!)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


простейший калькулятор. Используется приведение к постфиксной записи.
Код

Const
 cmPUSH  = 0;
 cmMINUS = 1;
 cmPLUS  = 2;
 cmMUL   = 3;
 cmDIV   = 4;

Type
 code_mem=record
  a:array[0..1023] of byte;
  p:integer;
 end;

Var
 Stack:array[0..100] of real;

Procedure Parse(s:string;var code:code_mem);
Var
 i,j:byte;
 a,b:integer;
Begin
 j:=0;
 for i:=byte(s[0]) downto 1 do
   case s[i] of
     ')': inc(j);
     '(': dec(j);
     '-': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmMINUS;
              inc(code.p);
              exit;
            end;
     '+': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmPLUS;
              inc(code.p);
              exit;
            end;
   end;
 j:=0;
 for i:=byte(s[0]) downto 1 do
   case s[i] of
     '(': inc(j);
     ')': dec(j);
     '/': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmDIV;
              inc(code.p);
              exit;
            end;
     '*': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmMUL;
              inc(code.p);
              exit;
            end;
   end;

  val(s,a,b);

 if b=0 then
   begin
     { АГА !}
     code.a[code.p]:=cmPUSH;
     inc(code.p);
     code.a[code.p]:=lo(a);
     inc(code.p);
     exit
   end;
 if s='' then
   begin
     code.a[code.p]:=cmPUSH;
     inc(code.p);
     code.a[code.p]:=0;
     inc(code.p);
     exit
   end;
 if (s[1]='(') and (s[byte(s[0])]=')') then
   begin
     i:=2;
     j:=1;
     while (i<(byte(s[0])-1)) and (j>0) do
       begin
         if s[i]='(' then inc(j);
         if s[i]=')' then dec(j);
         inc(i);
       end;
     if j<>0 then
       parse(copy(s,2,byte(s[0])-2),code);
   end;
End;

Function Calk(code:code_mem):real;
Var
 i:byte;
 StackPointer:byte;
Begin
 i:=0;
 StackPointer:=0;
 while (i<code.p) do
   Begin
     case code.a[i] of
       cmPUSH :Begin
                inc(i);
                Stack[StackPointer]:=code.a[i];
                inc(StackPointer);
               end;
       cmMINUS:Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]-Stack[StackPointer];
               End;
       cmPLUS :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]+Stack[StackPointer];
               End;
       cmDIV  :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]/Stack[StackPointer];
               End;
       cmMUL  :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]*Stack[StackPointer];
               End;
     End;
     inc(i);
   End;
   Calk:=Stack[0];
End;

Var
q:code_mem;
s:string;
BEGIN
q.p:=0;
write('Input expression:'); {Строка типа '((10+6)/(6-2))'}
readln(s);
parse(s,q);
writeln(calk(q):1:5);
END.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.06.2017 2:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"