大家再也不用担心函数记不住了！！！！！！！！！！！！！！！！ - pascal吧

level 5

黑暗潜行侠楼主

label one;
type
leixing=(pred,succ,abs,sqr,odd,chr,sqrt,exp,ln,sin,cos,arctan,trunc,round,ord);
var
s,s1:leixing;
xue1,xue2,a,b:longint;
ss,ss1:string;
begin
one:
writeln(' 函数游戏 ');
writeln(' 欢迎 ');
writeln(' 程序由程幸编写版本（v1.0） ');
writeln('你想去哪里？ 1、单机训练场2、普通角斗场3、职业角斗场‘）；
readln(a);
if a=1 then begin
writeln('欢迎挑战通天塔’);
writeln('你想挑战第几层？’);
readln(a);
xue2:=a+1; xue1:=xue2-1;
while (xue1)or(xue2)<>0 do
begin
writeln('你的血:',xue1,' ','电脑的血:',xue2);
writeln('请输入pascal函数名:');
readln(ss);
case ss do
'pred':s:=pred;
'succ':s:=succ;
'abs':s:=abs;
'sqr':s:=sqr;
'odd':s:=odd;
'chr':s:=chr;
'sqrt':s:=sqrt;
'exp':s:=exp;
'ln':s:=ln;
'sin':s:=sin;
'cos':s:=cos;
'arctan':s:=arctan;
'trunc':s:=trunc;
'round':s:=round;
'ord':s:=ord;
end;
randomize;
b:=random(14);
case b do
0:s1:=pred;
1:s1:=succ;
2:s1:=abs;
3:s1:=sqr;
4:s1:=odd;
5:s1:=chr;
6:s1:=sqrt;
7:s1:=exp;
8:s1:=ln;
9:s1:=sin;
10:s1:=cos;
11:s1:=arctan;
12:s1:=trunc;
13:s1:=round;
14:s1:=ord;
end;
if s>=s1 then begin xue2:=xue2-1; writeln('你赢了！','电脑的血-1！！！！');end else begin xue1:=xue1-1; writeln('你输了！','你的血-1！！！！'); end;
end;
end.

2015年04月15日 10点04分 1

level 5

黑暗潜行侠楼主

v1.0版，希望大师那个改进一下，意思嘛，大家都懂的！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

2015年04月15日 10点04分 2

level 5

黑暗潜行侠楼主

大神来帮我把！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！1111111111111

2015年04月15日 10点04分 3