如何用PASCAL编一个计算器

2025-04-06 11:19:10

推荐回答（2个）

回答1：

var i,n,j,s:longint;
a,b:string;
begin
readln(n);
readln(s);
for i:=1 to n do begin
readln(a);
b:=copy(a,2,length(a));
val(b,j);
if a [1] ='+' then s:=s+j;
if a [1] ='-' then s:=s-j;
if a [1] ='*' then s:=s*j;
if a [1] ='/' then begin
if j=0 then begin
writeln('Error!');
halt;
end
else
s:=s div j;
end;
if a [1] ='%' then begin
if j=0 then begin
writeln('Error!');
halt;
end
else
s:=s mod j;
end;
end;
writeln(s);
end.

回答2：

用逆波兰式我写过c++的实现和delphi的实现帮你找找去找不到的话明天上电脑给你找