有一道题，可以帮我解决一下吗。。。。。

就是说：
输入两个数值（均不为零）及一个算术运算符，自己写上答案，让电脑判断正误
还有：
1.函数一般用来干什么的？
2.可以帮我解释一下case语句吗？
最后的请求：
教我打一个三角形�

很简单啊
program adfsl;
var a,c,b:integer;
x:char;
begin
readln(a,b,x,c);
case x of
'+':if a+b=c then writeln('yes') else wirteln('no’）；
'-':if a-b=c then writeln('yes') else wirteln('no’）；
'*':if a*b=c then writeln('yes') else wirteln('no’）；
'/':if a/b=c then writeln('yes') else wirteln('no’）；
end;{case}
end.

你最好说清楚那2个数值的范围。
还有就是三角形的什么？

CASE就是1 IF拉。。。
比如i是integer，可以
case i of 
1..9: {干什么}；
end;
意思是如果I等于1到9的任意1个数。。就做什么的意思。。
要是IF的话就打得很痛苦�

program ser(input,output);
 var
 a1,a2,ans,cans:real;
 ser,:char;
 begin
 readln(a1,ser,a2);
 case ser of
 '+':rans:=a1+a2;
 '-':rans:=a1-a2;
 '*':rans:=a1*a2;
 '/':rans:=a1/a2;
 end;
 read(ans);
 if rans=ans
 then writeln('right')
 else writeln('wrong, answer is',rans)
 end.