编程设计一个简单的计算器程序

Question

编程设计一个简单的计算器程序，要求用户从键盘输入：
操作数1 运算符op 操作数2 （如：7*9）
计算表达式的值，指定的运算符为加（+），减（-），乘（*），除（/）。要求同时输出表达式，如7*9=63。

Answer 1

方法一：

#include <stdio.h>

#include<string.h>

#include<math.h>

#include<stdlib.h>

struct complex multiply(struct complex x, struct complex y); 

struct complex{ 

int real; 

int imag; 

}; 

int main()

{

struct complex a,b,s;

scanf("%d%d%d%d",&a.real,&a.imag,&b.real,&b.imag);

s=multiply(a,b);

printf("(%d+%di)*(%d+%di)=%d+%di\n",a.real,a.imag,b.real,b.imag,s.real,s.imag); 

return 0;

} 

struct complex multiply(struct complex x, struct complex y)

{

struct complex m;

m.real=x.real*y.real-x.imag*y.imag;

m.imag=x.imag*y.real+x.real*y.imag;

return m;

}

方法二：

#include<stdio.h>

int main()

{

int a,b,c,d,e,f;

scanf("%d %d %d %d",&a,&b,&c,&d);

e = a * c - b * d;

f = a * d + b * c;

printf("(%d+%di)*(%d+%di)=%d+%di\n",a,b,c,d,e,f);

}

Answer 2

#include<stdio.h>
int main(void)
{
int data1,data2;
char op;
printf("Please input data1 op data2:");
scanf("%d %c %d",&data1,&op,&data2); //注意输入时操作数与运算符之间要用空格隔开。
switch(op)
{
case '+':
printf("\n%d+%d=%d",data1,data2,data1+data2);
break;
case '-':
printf("\n%d-%d=%d",data1,data2,data1-data2);
break;
case '*':
printf("\n%d*%d=%d",data1,data2,data1*data2);
case '/':
if (data2==0)
printf("Error! chu shu wei 0");
else
printf("\n%d/%d=%d",data1,data2,data1/data2);
break;
case '%':
if (data2==0)
printf("Error! chu shu wei 0");
else
printf("\n%d%%%d=%d",data1,data2,data1%data2);
break;
}
return 0;
}本回答被提问者采纳

Answer 3

我给你写一个简单的计算器程序，你可以看一下。如果需要更多的功能，那么还要更复杂一些。不是一句话可以说明白的。要用到很多函数的调用，和函数的方法。#include "stdio.h"
void main()
{
int a,b,result;
char m;
printf("请输入需要计算的数：\n");
scanf("%d %d",&a,&b);
printf("请输入加、减、乘或除\n");
scanf("%c",&m);
if(m=="+") //判断是否进行加法运算，以下同理
result=a+b;
else if(m=="-")
result=a-b;
elsee if(m=="*")
result=a*b;
else if(m=="/")
result=a/b;
else
printf("您输入有误\n"); //如果输入的符号非加减乘或是除，报错
printf("计算结果为：%d\n",result); //最后输出结果
}

Answer 4

这种运算比较麻烦,不过4种运算符号优先级相同应该简单写,我这里有个算法,能进行简单的四则运算,delphi的,供参考 

Function Math_Evaluate(S0:string):Extended; 

Function Evaluate(S0:String):Extended;Forward; 

Procedure CleanUp(var s0:string); 

Var 

I:integer; 

Begin 

S0:=LowerCase(s0); 

I:=Pos(' ',s0); 

While I>0 Do 

Begin 

Delete(S0,I,1); 

I:=Pos(' ',S0); 

End; 

End; 

Function GetFirstOpp(Tot:Integer;S0:String):Integer; 

Const 

Sopps:String=('+-*/^'); 

Var 

I:Integer; 

Begin 

If Tot=0 Then Tot:=Length(S0); 

For I:=1 To 5 Do 

Begin 

Result:=Pos(Sopps[i],S0); 

If ((I<3) And (Result>0)) Then 

If ((Result=1) Or (Pos(S0[Result-1],Sopps)>0)) Then 

Result:=0; 

If Result>0 Then 

If Result<Tot Then 

Exit; 

End; 

If Result>Tot Then 

Result:=0; 

End; 

Function SpecialF(P1:Integer;S0:String):Extended; 

Var 

Operstr:String; 

Arg:Extended; 

Begin 

Result:=0; 

Operstr:=Copy(S0,1,P1-1); 

If S0[Length(S0)]<>')' Then 

Exit; 

Operstr:=LowerCase(Operstr); 

Arg:=Evaluate(Copy(S0,P1+1,Length(S0)-P1-1)); 

if Operstr ='sin' Then 

Result:=Sin(Arg) 

Else if Operstr ='cos' Then 

Result:=Cos(Arg) 

Else if Operstr ='tan' Then 

Result:=Sin(Arg)/Cos(Arg) 

Else if Operstr ='arctan' Then 

Result:=Arctan(Arg) 

Else if Operstr ='log' Then 

Result:=Ln(Arg)/Ln(10) 

Else if Operstr ='ln' Then 

Result:=Ln(Arg) 

Else if Operstr ='exp' Then 

Result:=Exp(Arg) 

Else if Operstr ='sqrt' Then 

Result:=Sqrt(Arg) 

{enter additional functions here} 

Else Exit; 

End; 

Function GetValue(S0:String):Extended; 

Begin 

Result:=0; 

If Length(S0)<1 Then Exit; 

If Length(S0)=1 Then 

Result:=StrToFloat(S0) 

Else 

Case s0[1] Of 

'x':Result:=1; 

'y':Result:=1; 

'z':Result:=1; 

Else Result:=StrToFloat(S0); 

End; 

End; 

Procedure MatchBracket(Var I:Integer;S0:String); 

Var 

J,Len:Integer; 

Begin 

J:=1; 

Len:=Length(S0); 

Repeat Inc(I); 

If I>Len Then Exit; 

If S0[I]='(' Then Inc(J); 

If S0[I]=')' Then Dec(J); 

If J<0 Then Exit; 

Until J=0; 

End; 

Function Calculate(P1:Integer;S0:String):Extended; 

Var 

V1,V2:Extended; 

Begin 

Result:=0; 

V1:=Evaluate(Copy(S0,1,P1-1)); 

V2:=Evaluate(Copy(S0,P1+1,Length(s0)-P1)); 

Case S0[P1] Of 

'+': Result:=V1+V2; 

'-': Result:=V1-V2; 

'/': Result:=V1/V2; 

'*': Result:=V1*V2; 

'^': Result:=Exp(V2*Ln(V1)); 

Else Exit; 

End; 

End; 

Function Evaluate(S0:string):Extended; 

Var 

P1,P2,Q1:Integer; 

Begin 

P1:=Pos('(',S0); 

P2:=P1; 

If P2>0 Then 

MatchBracket(P2,S0); 

If P1=1 Then 

Begin 

If P2=Length(S0) Then 

Begin 

Delete(S0,P2,1); 

Delete(S0,1,1); 

Result:=Evaluate(S0); 

End Else 

Result:=Calculate(P2+1,S0); 

Exit; 

End; 

Q1:=GetFirstOpp(P1,S0); 

If (P1+Q1=0) Then 

Begin 

Result:=GetValue(S0); 

Exit; 

End; 

If Q1<>0 Then 

Result:=Calculate(Q1,S0) 

Else If Length(S0)>P2 Then 

Result:=Calculate(P2+1,S0) 

Else 

Result:=SpecialF(P1,S0); 

End; 

Begin 

Try 

CleanUp(S0); 

Result:=Evaluate(S0); 

Except 

Result:=0; 

End; 

End;

本回答被网友采纳

Answer 5

原理很简单
不管是什么语言的都是这个原理
定义变量 a 为整数型
定义变量 b 为整数型
定义变量 c 为整数型
运算符 就是默认的 不用自定义了 如果需要的不一样 就定义运算符变量为文本型 加入判断 判断输入的文本字符 然后 分支表达的的结果 进行输出
写函数 函数名（a，操作符，b）返回整数型
判断 操作符
分支表达式 为加法
c=a+b
分支表达式 为减法
c=a-b
。。。。。。。
printf（a的文本 操作符 b的文本 “=” c的结果文本）
ok了