void main()
{
float a,b,c
char e
printf("input a,e,b\n")/*输入两个数和符号，例如3+8*/
scanf("%f%c%f",&a,&e,&b)
switch(e)
{
case '+':c=a+bbreak
case '-':c=a-bbreak
case '*':c=a*bbreak
case '/':
if(b==0.0) printf("error\n")
else c=a/bbreak
}
printf("%f%c%f=%f",a,e,b,c)
}
如何用vc++编写一个简单的（只有加减乘除）计算器程式?
先设定介面如下
加法按钮程式码
void CMy03Dlg::OnBnClickedButton1()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1+m_Nub2
UpdateData(FALSE)
}
减法按钮程式码
void CMy03Dlg::OnBnClickedButton2()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1-m_Nub2
UpdateData(FALSE)
}
乘法按钮程式码
void CMy03Dlg::OnBnClickedButton3()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1*m_Nub2
UpdateData(FALSE)
}
除法按钮程式码
void CMy03Dlg::OnBnClickedButton4()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
if(m_Nub2!=0)
m_Nub3=m_Nub1 / m_Nub2
else
AfxMessageBox("被除数不能为0")
UpdateData(FALSE)
}
清除按钮程式码
void CMy03Dlg::OnBnClickedButton5()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=0
m_Nub1=0
m_Nub2=0
UpdateData(FALSE)
}
结束按钮程式码
void CMy03Dlg::OnBnClickedButton6()
{
TODO：在此新增控制元件通知处理程式程式码
CDialog::OnOK()
}
如果只允许在输入框中输入资料应该怎样处理？
制作托盘程式
目的：在工作列中建立一个图示，使该程式永远驻留在记忆体中。例如邮件检查程式可以作为驻留程式，一旦有邮件来了，就可以接收邮件。
Shell_NotifyIcon函式传送讯息来增加、删除、修改工作列的图示
BOOL TrayMessage(HWND hWnd, DWORD dwMessage, HICON hIcon, PSTR pszTip)
{
BOOL res
NOTIFYICONDATA tnd
tnd.cbSize = sizeof(NOTIFYICONDATA)
tnd.hWnd = hWnd
tnd.uID = IDI_ICON1
tnd.uFlags = NIF_MESSAGE|NIF_ICON|NIF_TIP
tnd.uCallbackMessage = WM_MY_TRAY_NOTIFICATION
tnd.hIcon = hIcon
lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip))
res = Shell_NotifyIcon(dwMessage, &tnd)dwMessage为NIM_ADD从工作列中新增图示、NIM_DELETE从工作列中删除图示、NIM_MODIFY改变工作列中图示
if (hIcon)
DestroyIcon(hIcon)
return res
}
定义一个回拨讯息：WM_MY_TRAY_NOTIFICATION
在DLG的CPP档案中，
#define WM_MY_TRAY_NOTIFICATION WM_USER+100
为对话方块新增讯息对映ON_MESSAGE(WM_MY_TRAY_NOTIFICATION,OnTrayNotification)
在DLG的标头档案中应该有
public:
long m_Nub1
float m_Nub3
CBitmapButton Button
afx_msg void OnBnClickedButton1()
long m_Nub2
afx_msg void OnBnClickedButton2()
afx_msg void OnBnClickedButton4()
afx_msg void OnBnClickedButton5()
afx_msg void OnBnClickedButton3()
afx_msg void OnBnClickedButton6()
afx_msg void OnBnClickedButton7()
afx_msg LRESULT OnTrayNotification(WPARAM wparam, LPARAM lparam)
在DLG的CPP档案中应该有
BEGIN_MESSAGE_MAP(CMailCheckDlg, CDialog)
……
ON_MESSAGE(WM_MY_TRAY_NOTIFICATION,OnTrayNotification)
……
END_MESSAGE_MAP()
并定义一个回拨讯息函式
LRESULT CMailCheckDlg::OnTrayNotification(WPARAM wparam, LPARAM lparam)
{
switch (lparam )
{
case WM_RBUTTONUP:
case WM_LBUTTONDBLCLK:修改不同的按钮处理事件，以观察图示退出效果。
ShowWindow(SW_SHOW)
TrayMessage(m_hWnd, NIM_DELETE, NULL, "")从工作列中删除图示
}
return 0
}
在对话方块视窗上新增“驻留”按钮，双击按钮新增程式码
void CMailCheckDlg::OnBnClickedButton1()
{
TODO：在此新增控制元件通知处理程式程式码
下面程式向工作列新增图示
TrayMessage(m_hWnd, NIM_ADD, NULL, "计算器程式")
TrayMessage(m_hWnd, NIM_MODIFY, m_hIcon, "计算器程式")
ShowWindow(SW_HIDE)
用MFC编写一个简单的加减乘除计算器
我有程式，加31782771群
c语言计算器程式设计包含加减乘除简单的函式运算
实用计算器之程式设计
[摘 要]多用计算器的构思及设计程式码
[关键词]多用计算器；设计
数值计算可以说是日常最频繁的工作了，WIN98提供了“计算器”软体供使用者使用，该软体可以处理一般的一步四则运算，例如：3+2、5/3等等，但在日常中使用者经常遇到多步四则运算问题，例如：3+4*5-4/2，45*34/2+18*7等等，那么该个计算器就无法胜任了，作者制作了一个实用的计算器，该计算器新增不少功能：（程式介面如图）
1．可以实现连续的四则运算
2．可以实现输入式子的显示
3．可以方便计算个人所得税
4．滑鼠、键盘均可输入资料
5．操作介面友好
6．击键可发声
构建该个计算器所需研究及解决的核心问题有如下几个：1、连乘求值?2、字元显示 3、键盘输入?4、击键发声?5、个人所得税法规，为了使大家对程式有更一步认识，现将程式码提供给读者参考：
*定义阵列及窗体变数
Dim number2(0 To 50) As Double
Dim number(0 To 50) As Double
Dim z As Integer
Dim k As Integer, r As Integer
Dim j As Integer
Dim str As String
*呼叫名为“playsound”的API函式
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_FILENAME = &H20000?
Private Const SND_ASYNC = &H1?
Private Const SND_SYNC = &H0
*判断通用过程
Sub pianduan(p As String)
r = 0
Dim i As Integer, l As Integer, h As Integer
h = 0
i = 1
If InStr(Trim$(p), "*") <>0 Then
k = k + 1
End If
If InStr(Trim$(p), "/") <>0 Then
r = r + 1
End If
End Sub
*连乘通用过程(略)
*各按钮事件过程
Private sub Command1_Click(Index As Integer)
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text1.Text = Text1.Text + Command1(Index).Caption
Text2.Text = Text2.Text + Command1(Index).Caption
Text1.SetFocus
End Sub
rivate sub Command10_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
str = Text3.Text
End Sub
Private sub Command11_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text3.Text = str
End Sub
rivate sub Command2_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "+"
z = z + 1
Text1.SetFocus
End Sub
rivate sub Command3_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "-"
Text1.Text = Text1.Text &"-"
z = z + 1
Text1.SetFocus
End Sub
Private sub Command4_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text2.Text = Text2.Text + "*"
Text1.Text = Text1.Text + "*"
Text1.SetFocus
End Sub
rivate sub Command5_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text2.Text = Text2 + "/"
Text1.Text = Text1 + "/"
Text1.SetFocus
End Sub
Private sub Command6_Click()
PlaySound App.Path &"\sound.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
z = z + 1
Dim dengyu As Double
Dim v As Integer
For v = 0 To 50
dengyu = dengyu + number2(v)
Next v
If dengyu <0 Then
Text3.ForeColor = &HFF&
Else
Text3.ForeColor = &HFF0000
End If
Text3.Text = dengyu
Text1.SetFocus
If Len(Text3.Text) >= 14 Then
calcresult.Show
End If
End Sub
rivate sub Command7_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
z = 0: k = 0: r = 0: j = 0
Dim i As Integer
For i = 0 To 50
number(i) = 0
number2(i) = 0
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
rivate sub Command8_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
If Val(Text3.Text) = 0 Then
MsgBox "除数不能为0！"
Exit Sub
End If
Text3.Text = 1 / Val(Text3.Text)
End Sub
Private sub Command9_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text3.ForeColor = &HFF0000
Text3.Text = Val(Text3.Text) * Val(Text3.Text)
End Sub
rivate sub muninter_Click()
Dim i
i = Shell("C:\Program Files\InterExplorer\iexplore.exe", vbMaximizedFocus)
End Sub
rivate sub munmp3_Click()
Dim i
i = Shell("C:\Program Files\Windows Media Player\mplayer2", vbNormalNoFocus)
End Sub
Private sub mun *** _Click()
Dialog.Show
End Sub
rivate sub muntax_Click()
tax.Show
End Sub
rivate sub munver_Click()
ver.Show
End Sub
rivate sub notepad_Click()
Dim i
i = Shell("c:\windows\notepad", vbNormalFocus)
End Sub
Private sub Text1_KeyPress(KeyAscii As Integer)
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim num As Integer
num = Val(KeyAscii)
If num >47 And num <58 Then
Text1.Text = Text1.Text + CStr(num - 48)
Text2.Text = Text2.Text + CStr(num - 48)
End If
If num = 46 Then
Text1.Text = Text1.Text + "."
Text2.Text = Text2.Text + "."
End If
If KeyAscii = 43 Then
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "+"
z = z + 1
End If
If KeyAscii = 45 Then
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "-"
Text1.Text = Text1.Text &"-"
z = z + 1
End If
If KeyAscii = 42 Then
Text2.Text = Text2.Text + "*"
Text1.Text = Text1.Text + "*"
End If
If KeyAscii = 47 Then
Text2.Text = Text2.Text + "/"
Text1.Text = Text1.Text + "/"
End If
If KeyAscii = vbKeyReturn Then
PlaySound App.Path &"\sound.wav", 0, SND_SYNC
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
z = z + 1
Dim dengyu As Double
Dim v As Integer
For v = 0 To 50
dengyu = dengyu + number2(v)
Next v
If dengyu <0 Then
Text3.ForeColor = &HFF&
Else
Text3.ForeColor = &HFF0000
End If
Text3.Text = dengyu
End If
If KeyAscii = vbKeyEscape Then
z = 0: k = 0: r = 0: j = 0
Dim i As Integer
For i = 0 To 50
number(i) = 0
number2(i) = 0
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End If
If Len(Text3.Text) >= 14 Then
calcresult.Show
End If
End Sub
rivate sub Text3_Change()
tax2.Text1 = Text3.Text
End Sub
用c语言编写能运算加减乘除的计算器程式，用到栈
#include "stdio.h"
#include "string.h"
#include "ctype.h"
#include "math.h"
expression evaluate
#define iMUL 0
#define iDIV 1
#define iADD 2
#define iSUB 3
#define iCap 4
#define LtKH 5
#define RtKH 6
#define MaxSize 100
void iPush(float)
float iPop()
float StaOperand[MaxSize]
int iTop=-1
char Srcexp[MaxSize]
char Capaexp[MaxSize]
char RevPolishexp[MaxSize]
float NumCapaTab[26]
char validexp[]="*/+-()"
char NumSets[]="0123456789"
char StackSymb[MaxSize]
int operands
void NumsToCapas(char [], int , char [], float [])
int CheckExpress(char)
int PriorChar(char,char)
int GetOperator(char [], char)
void counterPolishexp(char INexp[], int slen, char Outexp[])
float CalcRevPolishexp(char [], float [], char [], int)
void main()
{
int ilen
float iResult=0.0
printf("enter a valid number string:\n")
memset(StackSymb,0,MaxSize)
memset(NumCapaTab,0,26)A--NO.1, B--NO.2, etc.
gets(Srcexp)
ilen=strlen(Srcexp)
printf("source expression:%s\n",Srcexp)
NumsToCapas(Srcexp,ilen,Capaexp,NumCapaTab)
printf("Numbers listed as follows:\n")
int i
for (i=0i<operands++i)
printf("%.2f ",NumCapaTab[i])
printf("\nCapaexp listed in the following:\n")
printf("%s\n",Capaexp)
ilen=strlen(Capaexp)
counterPolishexp(Capaexp,ilen,RevPolishexp)
printf("RevPolishexp:\n%s\n",RevPolishexp)
ilen=strlen(RevPolishexp)
iResult=CalcRevPolishexp(validexp, NumCapaTab, RevPolishexp,ilen)
printf("\ncounterPolish expression:\n%s%.6f\n",Srcexp,iResult)
}
void iPush(float value)
{
if(iTop<MaxSize) StaOperand[++iTop]=value
}
float iPop()
{
if(iTop>-1)
return StaOperand[iTop--]
return -1.0
}
void NumsToCapas(char Srcexp[], int slen, char Capaexp[], float NumCapaTab[])
{
char ch
int i, j, k, flg=0
int sign
float val=0.0,power=10.0
i=0j=0k=0
while (i<slen)
{
ch=Srcexp[i]
if (i==0)
{
sign=(ch=='-')?-1:1
if(ch=='+'||ch=='-')
{
ch=Srcexp[++i]
flg=1
}
}
if (isdigit(ch))
{
val=ch-'0'
while (isdigit(ch=Srcexp[++i]))
{
val=val*10.0+ch-'0'
}
if (ch=='.')
{
while(isdigit(ch=Srcexp[++i]))
{
val=val+(ch-'0')/power
power*=10
}
} end if
if(flg)
{
val*=sign
flg=0
}
} end if
write Capaexp array
write NO.j to array
if(val)
{
Capaexp[k++]='A'+j
Capaexp[k++]=ch
NumCapaTab[j++]=valA--0, B--1,and C, etc.
}
else
{
Capaexp[k++]=ch
}
val=0.0
power=10.0
i++
}
Capaexp[k]='\0'
operands=j
}
float CalcRevPolishexp(char validexp[], float NumCapaTab[], char RevPolishexp[], int slen)
{
float sval=0.0, op1,op2
int i, rt
char ch
recursive stack
i=0
while((ch=RevPolishexp[i]) &&i<slen)
{
switch(rt=GetOperator(validexp, ch))
{
case iMUL: op2=iPop()op1=iPop()
sval=op1*op2
iPush(sval)
break
case iDIV: op2=iPop()op1=iPop()
if(!fabs(op2))
{
printf("overflow\n")
iPush(0)
break
}
sval=op1/op2
iPush(sval)
break
case iADD: op2=iPop()op1=iPop()
sval=op1+op2
iPush(sval)
break
case iSUB: op2=iPop()op1=iPop()
sval=op1-op2
iPush(sval)
break
case iCap: iPush(NumCapaTab[ch-'A'])
break
default:
}
++i
}
while(iTop>-1)
{
sval=iPop()
}
return sval
}
int GetOperator(char validexp[],char oper)
{
int oplen,i=0
oplen=strlen(validexp)
if (!oplen) return -1
if(isalpha(oper)) return 4
while(i<oplen &&validexp[i]!=oper) ++i
if(i==oplen || i>=4) return -1
return i
}
int CheckExpress(char ch)
{
int i=0
char
while((=validexp[i]) &&ch!=) ++i
if (!)
return 0
return 1
}
int PriorChar(char curch, char stach)
{
栈外优先顺序高于(>)栈顶优先顺序时，才入栈
否则(<=)，一律出栈
if (curch==stach) return 0等于时应该出栈
else if (curch=='*' || curch=='/')
{
if(stach!='*' &&stach!='/')
return 1
}
else if (curch=='+' || curch=='-')
{
if (stach=='(' || stach==')')
return 1
}
else if (curch=='(')
{
if (stach==')')
return 1
}
return 0
}
void counterPolishexp(char INexp[], int slen, char Outexp[])
{
int i, j, k,pr
char t
i=0
j=k=0
while (INexp[i]!='=' &&i<slen)
{
if (INexp[i]=='(')
StackSymb[k++]=INexp[i]
iPush(*(INexp+i))
else if(INexp[i]==')')
{
if((t=iPop())!=-1)
while((t=StackSymb[k-1])!='(')
{
Outexp[j++]=t
k--
}
k--
}
else if (CheckExpress(INexp[i])) is oparator
{
printf("operator %c k=%d\n",INexp[i],k)
while (k)
{
iPush(*(INexp+i))
if(pr=PriorChar(INexp[i],StackSymb[k-1]))
break
else
{
if ((t=iPop())!=-1)
t=StackSymb[k-1]k--
Outexp[j++]=t
}
} end while
StackSymb[k++]=INexp[i]mon process
}
else if() 变数名
{
printf("operand %c k=%d\n",INexp[i],k)
Outexp[j++]=INexp[i]
}
i++
}
while (k)
{
t=StackSymb[k-1]k--
Outexp[j++]=t
}
Outexp[j]='\0'
}
注：程式源于“百度知道”
用verilog编写一个最简单的加减乘除的计算器的程式
verilog是有加法器乘法器的。也直接识别 + - * / 符号。
module kjasdja(a,option,b,result)
input option,a,b
output result
always @(a,b,option)
begin
result_r=0结果暂存器清零
case(option)
+:result_r=a+b
-:result_r=a-b
*:result_r=a*b
/:result_r=a/b
assign result =result_r
endmodule
大概演算法就这样。写的仓促，语法可能有误。另外除法reg型别只能储存整数部分，小数通过移位操作实现，比较麻烦。比如3/5=0.6
做的时候先3=30，然后30/5=6,然后对6在数码管的显示进行调整就好。把6显示在小数点后面1位就好
用vb编写一个计算器程式，实现加减乘除，
Dim v As Boolean
Dim s As Integer
Dim X As Double
Dim Y As Double
Private Sub Command1_Click(Index As Integer)
If Form1.Tag = "T" Then
If Index = 10 Then
Text1.Text = "0"
Else
Text1.Text = Command1(Index).Caption
End If
Form1.Tag = ""
Else
Text1.Text = Text1.Text &Command1(Index).Caption
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Form1.Tag = "T"
If v Then
X = Val(Text1.Text)
v = Not v
Else
Y = Val(Text1.Text)
Select Case s
Case 0
Text1.Text = X + Y
Case 1
Text1.Text = X - Y
Case 2
Text1.Text = X * Y
Case 3
If Y <>0 Then
Text1.Text = X / Y
Else
MsgBox ("不能以0为除数")
Text1.Text = X
v = False
End If
Case 4
Y = 0
v = False
End Select
X = Val(Text1.Text)
End If
s = Index
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
控制元件自己新增吧，空间名要和程式码名一致
求一简单的加减乘除计算器c++程式
#include<stdio.h>
#include<math.h>
void main()
{
float a,b
char C
while(1)
{
scanf("%f%c%f",&a,&C,&b)
if((C!='+')&&(C!='-')&&(C!='*')&&(C!='/'))
break
switch(C)
{
case '+': printf("%f+%f=%f",a,b,a+b)
break
case '-': printf("%f-%f=%f",a,b,a-b)
break
case '*': printf("%f*%f=%f",a,b,a*b)
break
case '/': printf("%f/%f=%f",a,b,a/b)
break
}
}
}
想改成按1 2 3 4分别为加减乘除，只需要将程式中的+ - * / 改成1 2 3 4即可。按除了+ - * / 以外的键就会退出。
用c++语言编写一个简单的计算器程式，会加减乘除就行，本人初学不太会，特训求帮助
这个是最简单，简陋的计算器。很多情况没考虑进去，例如除数不能为0之类的，真要写完整的话程式码还要更多。
程式码如下： #include <iostream>using namespace stdint main(){ float a, b, result char operation cout <<"请输入算式，如1+2并回车：" <<endl cin >>a >>operation >>b switch(operation) { case '+': result = a + bbreak case '-': result = a - bbreak case '*': result = a * bbreak case '/': result = a / bbreak default: cout <<"输入非法，程式退出！" <<endlreturn -1 } cout <<endl <<"结果为：" <<endl <<a <<operation <<b <<"=" <<result <<endl return 0}
知道switch函式 吗 用这个就行
建俩个int型变数 一个字元型变数
#include "stdio.h"#include "string.h"
#include "ctype.h"
#include "math.h"
//expression evaluate
#define iMUL 0
#define iDIV 1
#define iADD 2
#define iSUB 3
#define iCap 4
//#define LtKH 5
//#define RtKH 6
#define MaxSize 100
void iPush(float)
float iPop()
float StaOperand[MaxSize]
int iTop=-1
//
char Srcexp[MaxSize]
char Capaexp[MaxSize]
char RevPolishexp[MaxSize]
float NumCapaTab[26]
char validexp[]="*/+-()"
char NumSets[]="0123456789"
char StackSymb[MaxSize]
int operands
//
void NumsToCapas(char [], int , char [], float [])
int CheckExpress(char)
int PriorChar(char,char)
int GetOperator(char [], char)
void counterPolishexp(char INexp[], int slen, char Outexp[])
float CalcRevPolishexp(char [], float [], char [], int)
void main()
{
int ilen
float iResult=0.0
printf("enter a valid number string:\n")
memset(StackSymb,0,MaxSize)
memset(NumCapaTab,0,26)//A--NO.1, B--NO.2, etc.
gets(Srcexp)
ilen=strlen(Srcexp)
//printf("source expression:%s\n",Srcexp)
NumsToCapas(Srcexp,ilen,Capaexp,NumCapaTab)
printf("Numbers listed as follows:\n")
int i
for (i=0i<operands++i)
printf("%.2f ",NumCapaTab[i])
printf("\nCapaexp listed in the following:\n")
printf("%s\n",Capaexp)
ilen=strlen(Capaexp)
counterPolishexp(Capaexp,ilen,RevPolishexp)
printf("RevPolishexp:\n%s\n",RevPolishexp)
ilen=strlen(RevPolishexp)
iResult=CalcRevPolishexp(validexp, NumCapaTab, RevPolishexp,ilen)
printf("\ncounterPolish expression:\n%s%.6f\n",Srcexp,iResult)
}
void iPush(float value)
{
if(iTop<MaxSize) StaOperand[++iTop]=value
}
float iPop()
{
if(iTop>-1)
return StaOperand[iTop--]
return -1.0
}
void NumsToCapas(char Srcexp[], int slen, char Capaexp[], float NumCapaTab[])
{
char ch
int i, j, k, flg=0
int sign
float val=0.0,power=10.0
i=0j=0k=0
while (i<slen)
{
ch=Srcexp[i]
if (i==0)
{
sign=(ch=='-')?-1:1
if(ch=='+'||ch=='-')
{
ch=Srcexp[++i]
flg=1
}
}
if (isdigit(ch))
{
val=ch-'0'
while (isdigit(ch=Srcexp[++i]))
{
val=val*10.0+ch-'0'
}
if (ch=='.')
{
while(isdigit(ch=Srcexp[++i]))
{
val=val+(ch-'0')/power
power*=10
}
} //end if
if(flg)
{
val*=sign
flg=0
}
} //end if
//write Capaexp array
// write NO.j to array
if(val)
{
Capaexp[k++]='A'+j
Capaexp[k++]=ch
NumCapaTab[j++]=val//A--0, B--1,and C, etc.
}
else
{
Capaexp[k++]=ch
}
val=0.0
power=10.0
//
i++
}
Capaexp[k]='\0'
operands=j
}
float CalcRevPolishexp(char validexp[], float NumCapaTab[], char RevPolishexp[], int slen)
{
float sval=0.0, op1,op2
int i, rt
char ch
//recursive stack
i=0
while((ch=RevPolishexp[i]) &&i<slen)
{
switch(rt=GetOperator(validexp, ch))
{
case iMUL: op2=iPop()op1=iPop()
sval=op1*op2
iPush(sval)
break
case iDIV: op2=iPop()op1=iPop()
if(!fabs(op2))
{
printf("overflow\n")
iPush(0)
break
}
sval=op1/op2
iPush(sval)
break
case iADD: op2=iPop()op1=iPop()
sval=op1+op2
iPush(sval)
break
case iSUB: op2=iPop()op1=iPop()
sval=op1-op2
iPush(sval)
break
case iCap: iPush(NumCapaTab[ch-'A'])
break
default:
}
++i
}
while(iTop>-1)
{
sval=iPop()
}
return sval
}
int GetOperator(char validexp[],char oper)
{
int oplen,i=0
oplen=strlen(validexp)
if (!oplen) return -1
if(isalpha(oper)) return 4
while(i<oplen &&validexp[i]!=oper) ++i
if(i==oplen || i>=4) return -1
return i
}
int CheckExpress(char ch)
{
int i=0
char cc
while((cc=validexp[i]) &&ch!=cc) ++i
if (!cc)
return 0
return 1
}
int PriorChar(char curch, char stach)
{
//栈外优先级高于(>)栈顶优先级时，才入栈
//否则(<=)，一律出栈
if (curch==stach) return 0//等于时应该出栈
else if (curch=='*' || curch=='/')
{
if(stach!='*' &&stach!='/')
return 1
}
else if (curch=='+' || curch=='-')
{
if (stach=='(' || stach==')')
return 1
}
else if (curch=='(')
{
if (stach==')')
return 1
}
return 0
}
void counterPolishexp(char INexp[], int slen, char Outexp[])
{
int i, j, k,pr
char t
i=0
j=k=0
while (INexp[i]!='=' &&i<slen)
{
if (INexp[i]=='(')
StackSymb[k++]=INexp[i]
//iPush(*(INexp+i))
else if(INexp[i]==')')
{
//if((t=iPop())!=-1)
while((t=StackSymb[k-1])!='(')
{
Outexp[j++]=t
k--
}
k--
}
else if (CheckExpress(INexp[i])) // is oparator
{
// printf("operator %c k=%d\n",INexp[i],k)
while (k)
{
// iPush(*(INexp+i))
if(pr=PriorChar(INexp[i],StackSymb[k-1]))
break
else
{
//if ((t=iPop())!=-1)
t=StackSymb[k-1]k--
Outexp[j++]=t
}
} //end while
StackSymb[k++]=INexp[i]//common process
}
else //if() 变量名
{
// printf("operand %c k=%d\n",INexp[i],k)
Outexp[j++]=INexp[i]
}
i++//
}
while (k)
{
t=StackSymb[k-1]k--
Outexp[j++]=t
}
Outexp[j]='\0'
}
注：程序源于“百度知道”
1年半前编的了,输入(2+3)*5-(7-4) 直接按回车,不用结尾运行结果:
输入算式:
(2+3)*5-(7-4)
(2+3)*5-(7-4)=22
#include<math.h>
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#define true 1
#define false 0
#define OPSETSIZE 8
typedef int Status
unsigned char Prior[8][8] = { // 表3.1 算符间的优先关系
// '+' '-' '*' '/' '(' ')' '#' '^'
/*'+'*/'>','>','<','<','<','>','>','<',
/*'-'*/'>','>','<','<','<','>','>','<',
/*'*'*/'>','>','>','>','<','>','>','<',
/*'/'*/'>','>','>','>','<','>','>','<',
/*'('*/'<','<','<','<','<','=',' ','<',
/*')'*/'>','>','>','>',' ','>','>','>',
/*'#'*/'<','<','<','<','<',' ','=','<',
/*'^'*/'>','>','>','>','<','>','>','>'
}
typedef struct StackChar{
char c
struct StackChar *next
}SC
typedef struct StackFloat{
float f
struct StackFloat *next
}SF
SC* Push(SC *s,char c){
SC *p=(SC*)malloc(sizeof(SC))
p->c=c
p->next=s
return p
}
SF* Push(SF *s,float f){
SF *p=(SF*)malloc(sizeof(SF))
p->f=f
p->next=s
return p
}
SC* Pop(SC *s){
SC *q=s
s=s->next
free(q)
return s
}
SF* Pop(SF *s){
SF *q=s
s=s->next
free(q)
return s
}
float Operate(float a,unsigned char theta, float b) {
switch(theta) {
case '+': return a+b
case '-': return a-b
case '*': return a*b
case '/': return a/b
case '^': return pow(a,b)
default : return 0
}
}
char OPSET[OPSETSIZE]={'+' , '-' , '*' , '/' ,'(' , ')' , '#','^'}
Status In(char Test,char* TestOp) {
int Find=false
for (int i=0i<OPSETSIZEi++) {
if (Test == TestOp[i]) Find= true
}
return Find
}
ReturnOpOrd(char op,char* TestOp) {
for(int i=0i<OPSETSIZEi++)
if (op == TestOp[i]) return i
}
char precede(char Aop, char Bop) {
return Prior[ReturnOpOrd(Aop,OPSET)][ReturnOpOrd(Bop,OPSET)]
}
float EvaluateExpression(char* MyExpression) { // 算法3.4
// 算术表达式求值的算符优先算法。
// 设OPTR和OPND分别为运算符栈和运算数栈，OP为运算符集合。
SC *OPTR=NULL// 运算符栈，字符元素
SF *OPND=NULL// 运算数栈，实数元素
char TempData[20]
float Data,a,b
char theta,*c,x,Dr[]={'#','\0'}
OPTR=Push(OPTR,'#')
c=strcat(MyExpression,Dr)
strcpy(TempData,"\0")//字符串拷贝函数
while (*c!= '#' || OPTR->c!='#') {
if (!In(*c, OPSET)) {
Dr[0]=*c
strcat(TempData,Dr)//字符串连接函数
c++
if (In(*c, OPSET)) {
Data=atof(TempData)//字符串转换函数(double)
OPND=Push(OPND, Data)
strcpy(TempData,"\0")
}
} else { // 不是运算符则进栈
switch (precede(OPTR->c, *c)) {
case '<': // 栈顶元素优先权低
OPTR=Push(OPTR, *c)
c++
break
case '=': // 脱括号并接收下一字符
OPTR=Pop(OPTR)
c++
break
case '>': // 退栈并将运算结果入栈
theta=OPTR->cOPTR=Pop(OPTR)
b=OPND->fOPND=Pop(OPND)
a=OPND->fOPND=Pop(OPND)
OPND=Push(OPND, Operate(a, theta, b))
break
} // switch
}
} // while
return OPND->f
} // EvaluateExpression
void main(){
char s[128]
puts(" 输入算式:")
gets(s)
printf("%s\b=%g",s,EvaluateExpression(s))
getchar()
}
