arith.pas

pascal的编译器 交作业没问题

//四则运算

read a;
read b;
read op;
ret:=0;
if op=0 then            //op=0表示加
    ret:=a+b
else
    if op=1 then        //减
       ret:=a-b
    else
       if op=2 then     //乘
          ret:=a*b
       else 
          if op=3 then  //除
             ret:=a/b
          end
       end
     end
end;
write ret