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

2024-11-09 23:28:06

推荐回答（5个）

回答1：

方法一：

#include

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

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);

}

回答2：

#include
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;
}

回答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); //最后输出结果
}

回答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;

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

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;

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;

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;

回答5：

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

联通4g本地套餐费是什么，为什么每天都扣几毛钱？

麻烦大家看一下word中如何统计日文字数?　有点急，感谢了

今年征兵我想去当兵，非常想去，但是我初中没读完就辍学回家了，