望高手相告pascal中一道‘算式计算’的题目答案。

Description （题目）

输入一个算式，输出其结果。如果这算式有错，输出ERROR。

Input （输入）

一行，表示一个算式。

Output （输出）

一行，表示结果。

Sample Input （例子，输入）

1+1

Sample Output （例子，输出）

2

要求：答题谨慎，不得有错，如果在下面的程序中调试成功的话，再将答案发上来！ http://218.5.5.242:9015/JudgeOnline/showproblem?problem_id=1218

 

说实话，这道题得看你的数值规模和你允许的符号。允许的符号越多，计算越复杂，分解级别也就越多，这OJ上的这道题相当粗糙，不建议做。

var a:string;      b,c:integer;      d:char;      jg:integer; beginreadln(a);b:=val(copy(a,1,1),Code);c:=val(copy(a,3,1),Code);d:=copy(a,2,1); if d="+" then jg:=b+c;else if d="-" then jg:=b-c;else if d="*" then jg:=b*c;else if d="/" then jg:=b div c;writeln(d);end.