free pascal 中的随机函数
我是一个小学生,刚学pascal不久,现在想编一个和电脑对战的石头,剪刀,布的问题,求够这里的随机函数(7=石头,8=剪刀,9=布),当然,有完整程序式的最好,奖励5分.
参考答案:var p,c:0..2;
ch:char;
begin
randomize;
c:=random(3);
writeln('what''s your choose?');
readln(ch);
case ch of
'S','s': p:=0;
'R','r': P:=1;
'P','p': P:=2;
END;
if (P-C=1) OR (P-C=-2) THEN WRITELN('你赢') ELSE
if (P-C=2) OR (P-C=-1) THEN WRITELN('你输') ELSE
WRITELN('大家平');
END.
这是我当时做的,用'S'表示石头,'R'表示剪刀,'P'表示布,要改的话你就把字符改成数字吧,如果不会,可以加我Q:***********. 还有,sixshine的回答是错误的,RANDOM(3)的结果是0到2之间的整数,并不用TRUNC.