var data:array[0..2,0..2] of integer;
n,j,k,i,man,M,c,max,kekka,kati,make,wake:integer;
procedure syouhai(man,c:integer; var kekka,kati,make,wake:integer);
begin
kekka:= man - c;
case kekka of
2,-1:begin
writeln('勝ち');
kati:=kati+1;
end;
0 :begin
writeln('あいこ');
wake:=wake+1;
end
else
begin
writeln('負け');
make:=make+1;
end;
end;{case}
end;{syouhai}
begin
{ TODO -oUser -cConsole Main : この下にコードを記述してください }
randomize;
write('何回勝負しますか？');
readln(n);
kekka:=0; M:=0; c:=0; kati:=0; make:=0; wake:=0;
for j:= 0 to 2 do
for k:= 0 to 2 do
data[j,k]:= 0;
for i:= 1 to n do
begin
write('じゃんけん（グー:0，チョキ:1，パー:2）');
readln(man);
if data[M,man] = 0 then
c:=random(3)
else
begin
max:=-1;
for j:= 0 to 2 do
if max < data[M,j] then
begin
max:= data[M,j];
c:=j
end;
case c of
0:c:=2;{グーならパー}
1:c:=0;{チョキならグー}
2:c:=1;{パーならチョキ}
end;{case}
end;
syouhai(man,c,kekka,kati,make,wake);
data[M,man]:=data[M,man]+1;
M:=man;
end;
writeln(kati,'勝' ,make,'敗',wake,'分け');
readln
end.
n,j,k,i,man,M,c,max,kekka,kati,make,wake:integer;
procedure syouhai(man,c:integer; var kekka,kati,make,wake:integer);
begin
kekka:= man - c;
case kekka of
2,-1:begin
writeln('勝ち');
kati:=kati+1;
end;
0 :begin
writeln('あいこ');
wake:=wake+1;
end
else
begin
writeln('負け');
make:=make+1;
end;
end;{case}
end;{syouhai}
begin
{ TODO -oUser -cConsole Main : この下にコードを記述してください }
randomize;
write('何回勝負しますか？');
readln(n);
kekka:=0; M:=0; c:=0; kati:=0; make:=0; wake:=0;
for j:= 0 to 2 do
for k:= 0 to 2 do
data[j,k]:= 0;
for i:= 1 to n do
begin
write('じゃんけん（グー:0，チョキ:1，パー:2）');
readln(man);
if data[M,man] = 0 then
c:=random(3)
else
begin
max:=-1;
for j:= 0 to 2 do
if max < data[M,j] then
begin
max:= data[M,j];
c:=j
end;
case c of
0:c:=2;{グーならパー}
1:c:=0;{チョキならグー}
2:c:=1;{パーならチョキ}
end;{case}
end;
syouhai(man,c,kekka,kati,make,wake);
data[M,man]:=data[M,man]+1;
M:=man;
end;
writeln(kati,'勝' ,make,'敗',wake,'分け');
readln
end.
トラックバック
