- 生活大爆炸版 石头剪刀布
-
duchuan LV 8 @ 2014-12-02 16:41:57
var a:array[0..4,0..4]of longint;
na,nb,i,j,sa,sb,n,b,c:longint;
xa,xb:array[1..200]of longint;
ya,yb:array[1..40000]of longint;
begin
b:=1;c:=1;
a[0,0]:=0;a[0,1]:=0;a[0,2]:=1;a[0,3]:=1;a[0,4]:=0;
a[1,0]:=1;a[1,1]:=0;a[1,2]:=0;a[1,3]:=1;a[1,4]:=0;
a[2,0]:=0;a[2,1]:=1;a[2,2]:=0;a[2,3]:=0;a[2,4]:=1;
a[3,0]:=0;a[3,1]:=0;a[3,2]:=1;a[3,3]:=0;a[3,4]:=1;
a[4,0]:=1;a[4,1]:=1;a[4,2]:=0;a[4,3]:=0;a[4,4]:=0;//胜负
read(n,na,nb);
for i:=1 to na do read(xa[i]);
for i:=1 to nb do read(xb[i]);
for i:=1 to n do
begin
ya[i]:=xa[b];
inc(b);
if b>na then b:=1;
yb[i]:=xb[c];
inc(c);
if c>nb then c:=1;
end;//判断
for i:=1 to n do
begin
sa:=sa+a[ya[i],yb[i]];
sb:=sb+a[yb[i],ya[i]];
end;
writeln(sa,' ',sb);
end.
8 条评论
-
笑戎悵惘 LV 4 @ 2020-06-26 11:18:28
writeln(sa,' ',sb);
这sb怕是魔鬼
-
@ 2020-06-26 09:30:44
请 看 发 布 时 间
-
@ 2020-06-25 21:10:52
说明两点：
1. 这是代码，不是题解。正常的题解应该包含题目分析，算法指导等。一份代码不能称作题解
2. vijos有题解功能，请发在题解上而不是讨论区。
发帖请认真研读vijos用户协议 -
@ 2020-06-25 15:26:05
请发在题解区
-
@ 2016-07-17 17:21:26
program shenghuodabaozha;
const
p:array[0..4,0..4] of longint=
((0,0,1,1,0),
(1,0,0,1,0),
(0,1,0,0,1),
(0,0,1,0,1),
(1,1,0,0,0));
var
n,na,nb:longint;
ia,ib,suma,sumb,j:longint;
a,b:array[1..200] of longint;
begin
readln(n,na,nb);
for ia:=1 to na do
read(a[ia]);
for ib:=1 to nb do
read(b[ib]);
ia:=0;
ib:=0;
suma:=0;
sumb:=0;
j:=0;
repeat
ia:=ia mod na+1;
ib:=ib mod nb+1;
sumsa:=suma+p[a[ia],b[ib]];
sumb:=sumb+p[b[ib],a[ia]];
inc(j);
until j=n;
writeln(suma,' ',sumb);
end. -
@ 2015-02-07 23:06:19
希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję! -
@ 2015-02-05 09:08:26
请发在题解区
-
@ 2014-12-02 19:15:44
请发在题解区
-
@ 2020-06-25 15:26:53
这种情况在洛谷就会禁言……Vijos太仁慈了吧……
-
@ 2021-08-11 18:24:12
@limingyang: 可能因为用vijos的人比较少吧。。。也有一些小白不会用
-
- 1