第1个回答 2012-03-13
用pascal行么?
var a,b:longint;
s:string;
begin
readln(s);
write(s,'=');
if pos('+',s)<>0 then begin val(copy(s,1,pos('+',s)-1),a); val(copy(s,pos('+',s)+1,length(s)),b); write(a+b); end else
if pos('-',s)<>0 then begin val(copy(s,1,pos('-',s)-1),a); val(copy(s,pos('-',s)+1,length(s)),b); write(a-b); end else
if pos('*',s)<>0 then begin val(copy(s,1,pos('*',s)-1),a); val(copy(s,pos('*',s)+1,length(s)),b); write(a*b); end else
if pos('/',s)<>0 then begin val(copy(s,1,pos('/',s)-1),a); val(copy(s,pos('/',s)+1,length(s)),b); if b=0 then write('error b=0') else write(a/b); end else write('error not + or - or * or /');
readn;
end.