之间-->0789/456*123-0+/-.+C= 。
2.简单计算器程序怎么编写这种运算比较麻烦，不过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 ResultTot 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; 。
3.计算机代码是指什么代码就是程序员用开发工具所支持的语言写出来的语言，是一句和计算机沟通的语言，早期开发代码，是简单人为的定义，后来随着计算机的升级，代码由以前的简单的机器指令升级为高级语言，但执行的过程是机器语言，从而产生很多编译工作，打个比方，你是中国人，你要跟老虎对话，你先得驯养老虎，用声音和食物来叫老虎做同相关的动作，后来来了一个外国人，他也想让老虎做出动人，但他只会英语，于是，你就成了代码的翻译工作，把英语翻译成平时驯养老虎的口令，命令老虎做出动作.那么你的口令叫代码，那个外国人的英语就成了高级语言 。
4.计算器的代码怎么写 计算demo <body>
