UC知道pascal问题：输入一个四则运算式子，求结果
来源：百度知道 编辑：UC知道 时间：2024/05/25 08:18:16
一定要pascal的
输入一个四则运算式子，求结果。
Input
一个四则运算的式子（+ - * /），只有一种运算，所有数字都是整数并且不大于2147483647。
Output
一个结果，除法输出取整的结果（比如说3/2=1.5结果输出1），结果不大于2147483647。
Sample input
1+1
Sample output
2
输入一个四则运算式子，求结果。
Input
一个四则运算的式子（+ - * /），只有一种运算，所有数字都是整数并且不大于2147483647。
Output
一个结果，除法输出取整的结果（比如说3/2=1.5结果输出1），结果不大于2147483647。
Sample input
1+1
Sample output
2
{$N+}
program s;
var
a,b,i,code:longint;
c:int64;
s,s1,s2:string;
begin
readln(s);
i:=0;
Repeat
inc(i)
Until (s[i]='+')or(s[i]='-')or(s[i]='*')or(s[i]='/');
s1:=copy(s,1,i-1);
s2:=copy(s,i+1,length(s)-i);
val(s1,a,code);
val(s2,b,code);
case s[i] of
'+':c:=a+b;
'-':c:=a-b;
'*':c:=a*b;
'/':c:=a/b;
end;
writeln(c);
end.
program s;
var
a,b,c:longint;
s:char;
begin
readln(a,s,b);
case s of
'+':c:=a+b;
'-':c:=a-b;
'*':c:=a*b;
'/':c:=a/b;
end;
writeln(c);
end.
更简短。
program p3_3;
const
n0=30;
var
s1:array[1..n0]of integer;
s2:array[1..n0]of char;
t1,t2:integer;
procedure calcu;
var
x1,x2,x:integer;