怎样实现加减乘除的混合运算?

[jund]

我编写了一个计算器程序,但不知怎样实现加减乘除的混合运算,请各位高手指点.下面是我的源程序,我想请问一下,如果我想把m:=1;这句加在procedure外面,不知要放在哪里?
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,y,z,m: real;
flag: char;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='1'
else
edit1.Text:=edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='2' else
edit1.Text:=edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='3' else
edit1.Text:=edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='4' else
edit1.Text:=edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='5' else
edit1.Text:=edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='6' else
edit1.Text:=edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='7' else
edit1.Text:=edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='8' else
edit1.Text:=edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='9' else
edit1.Text:=edit1.Text+'9';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if edit1.Text='0' then edit1.Text:='0' else
edit1.Text:=edit1.Text+'0';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else
begin
if pos('.',edit1.Text)<>0
then edit1.Text:=edit1.Text
else edit1.Text:=edit1.Text+'.';
end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit1.Clear;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else begin

flag:='+';
x:=strtofloat(edit1.Text);
z:=x+z;

edit1.Clear;
end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else begin
flag:='-';
x:=strtofloat(edit1.Text);
z:=x-z;
edit1.Clear;
end;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else begin
flag:='*';
x:=strtofloat(edit1.Text);
z:=x*m;
edit1.Clear;
end;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else begin
flag:='/';
x:=strtofloat(edit1.Text);
z:=x/m;
edit1.Clear;
end;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
if edit1.Text='' then edit1.Text:=''
else
case flag of
'+': begin
edit1.text:=floattostr(z+strtofloat(edit1.Text));
z:=0;
end;
'-':begin
edit1.text:=floattostr(z-strtofloat(edit1.Text));
z:=0;
end;
'*': begin
edit1.text:=floattostr(m*strtofloat(edit1.Text));
m:=1;
end;
'/': begin
y:=strtofloat(edit1.Text);
if y=0 then edit1.Text:='99999999999999999999999999999999'
else begin
edit1.text:=floattostr(m/strtofloat(edit1.Text));
m:=1;
end;
end;
end;

end;
procedure TForm1.Button18Click(Sender: TObject);
begin
close;
end;

end.

[ehom]

将运算符和操作数压入不同的栈！根据运算符的优先级取出！

[debussy]

逆波兰表达式

[jund]

可不可以说得详细点,或给我源代码

[debussy]

学过数据结构就知道。

[ehom]

这是非常基础的知识哦!要打牢基础啊!^_^

转摘

要编写一个具有加（+）、减（－）、乘（*）、
除（/）四则运算功能的计算器程序。为了更易于实现，在计算器中使用逆波兰表示法来代替普
通的中辍表示法。
在使用逆波兰表示法时，所有运算符都跟在其运算分量的后面。诸如
(1 - 2) * (4 + 5)
一类的中辍可用逆波兰表示法表示成：
1 2 - 4 5 + *
在使用逆波兰表示法时不再需要圆括号，只需知道每一个运算符需要几个运算分量。
计算器程序的实现很简单。每一个运算分量都被依次下推到栈中；当一个运算符到达时，
从栈中弹出相应数目的运算分量（对二元运算符是两个运算分量），把该运算符作用于所弹出的
运算分量，并把运算结果再下推回栈中。例如，对上面所述逆波兰表达式，首先把1与2下推到
栈中，再用两者之差－1来取代它们；然后，把4与5下推到栈中，再用两者之和9来取代它们。最
后，从栈中取出栈顶的－1与9，把它们的积－9下推到栈顶。当到达输入行的末尾时，把栈顶的值
弹出并打印出来。
这样，该程序的结构是一个循环，每一次循环对一个运算符及相应的运算分量执行一次操
作：
while ( 下一个运算符或运算分量不是文件结束指示符)
if ( 数)
将该数下推到栈中
else if ( 运算符)
弹出所需数目的运算分量
执行运算
将结果下推到栈中
else if ( 换行符)
弹出并打印栈顶的值
else
错误
栈的下推与弹出操作比较简单，但是，如果把错误检测与恢复操作都加进去，那么它们就
会显得很长，最好把它们设计成独立的函数，而不要把它们作为在这个程序中重复的代码段。
另外还需要一个单独的函数来取下一个输入运算符或运算分量。