uses dos,crt;
var ah,bh,n:longint;
a,b:byte;
c:char;
label 12345;
begin
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' finger-guessing game');
readln;
clrscr;
writeln('...');
delay(3000);
clrscr;
12345:
clrscr;
writeln('1:scissor 2:stone 3:cloth 4:out 5:ranking');
readln(a);
if a=4 then halt;
if (a=5)and((bh<>0)or(ah<>0)) then
begin
clrscr;

clrscr;
if ah>bh then begin writeln('1 You ',ah);writeln('2 Computer ',bh);end;
if ah<bh then begin writeln('1 Computer ',bh);writeln('2 You ',ah);end;
if ah=bh then writeln('NO FIRST');
end;
randomize;
b:=trunc(random(2)+1);
if a=b then begin clrscr;writeln('no one win');end;
if a=1 then begin if b=2 then begin clrscr;writeln('computer win is ',b);inc(bh);end; if b=3 then begin clrscr;writeln('you win');inc(ah);end;end;
if a=2 then begin if b=1 then begin clrscr;writeln('you win');inc(ah);end; if b=3 then begin clrscr;writeln('computer win is ',b);inc(bh);end;end;
if a=3 then begin if b=1 then begin clrscr;writeln('computer win is ',b);inc(bh);end; if b=2 then begin clrscr;writeln('you win');inc(ah);end;end;
readln(c);
if c<>'N' then goto 12345;
clrscr;
end.

goto有害 ——这是一条刚刚好就
十五字
的小尾巴

这是一条刚刚好就十五字的小尾巴

这是一条刚刚好就十五字的回复贴