| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

унарный минус

sat ©   (2007-03-23 00:31:00) 

у меня есть программа которая вычисляет выражения в обратной польской записи(+,-,*,/). Подскажите как мне переделать прогу чтобы появился и унарный минус. Прога стандартная


var
 Stack : TStack;
 s ,z ,y : string;
 i , a, b: integer;
begin
Stack :=  TStack.Create;
with stack do begin
 s:=Edit1.Text;
z:='';
y:='';
i:=1;
 while length(s)<>0 do
   begin
    if not (s[i] in znaki) then
     begin
      while s[i]<>' ' do
       begin
        z:=z+s[i];
        inc(i);
       end;
      delete(s,1,i);
      Push(Pointer(StrToInt(z)));
      i:=1;
      y:=z;
      z:='';
     end
    else
     begin
        pointer(a):=pop;
        pointer(b):=pop;
      case s[i] of
       '+': begin
             Push(Pointer(a+b));
            end;
       '-': begin
             Push(Pointer(b-a));
            end;
       '*': begin
             Push(Pointer(b*a));
            end;
       '/': begin
             Push(Pointer( round(b/a) ));
            end;
      end;
      delete(s,1,2);
     end;
    end;
pointer(a):=pop;
Edit2.Text:=FloatToStr(a);
end;



---

MBo   (2007-03-23 06:51:00) [1]

Или использовать специальный символ для унарного минуса, или сделать операцию бинарной (-a => 0 - a)

---

Германн   (2007-03-23 01:34:00) [2]

Открыл тут свой старый архив от сентября 97-го, где я работал с обратной польской записью и понял, что уже голова не варит :(

---

sat   (2007-03-23 00:32:00) [3]

да и еще описано

const   znaki = ['+','-','*','/'];

---

Наверх