136的简单九宫格数字对战 第3期8.29 开学了。。统计和下一期等有空的时候再说吧。。

king905

123
456
789
这是在送钱么。。。

oliveking

375
184
926
===-

1. 
   
2. 
   
3. PASCAL 计算奖励代码
   
4. {奖励：
   
5. （1）赢4场：10QB
   
6. （2）赢5场：25QB
   
7. （3）赢6场：60QB
   
8. （4）赢7场：500QB
   
9. （5）赢8场：3000QB
   
10. 
    
11. 有平局的话，计算方式为：
    
12. 
    
13. （1）平1局：原有奖励*4
    
14. （2）平2局：原有奖励*16
    
15. （3）平3局：原有奖励*64
    
16. （4）平4局：原有奖励*256
    
17. （5）平5局：1200QB
    
18. （6）平6局：1500QB
    
19. （7）平7局：2000QB
    
20. （8）平8局：2500QB
    
21. （9）平9局：3000QB
    
22. }
    
23. program oliveking
    
24. const
    
25. p0:array[1..9]of integer=(0,0,0,10,25,60,500,3000,0);
    
26. q0:array[1..9]of integer=(-4,-16,-64,-256,1200,1500,2000,2500,3000);
    
27. var
    
28. a,b:array[1..3,1..3]of integer;
    
29. i,j,k:integer;
    
30. s:char;
    
31. exit_,ok_:boolean;
    
32. 
    
33. function calc(t:integer):integer;
    
34. var
    
35. x,y:integer;
    
36. ans:integer;
    
37. p,q:integer;
    
38. begin
    
39. p:=0;q:=0;
    
40. for x:=1 to 3 do
    
41.   for y:=1 to 3 do  begin
    
42.    if a[x,y]=b[x,y]then q:=q+1;
    
43.    if a[x,y]<b[x,y]then p:=p+1;
    
44.   end;
    
45.   ans:=p0[p];
    
46.   if q0[q]>0 then ans:=ans+q0[q]
    
47.   else  ans:=ans*abs(q0[q]);
    
48. calc:=ans;
    
49. end;
    
50. 
    
51. begin
    
52. repeat
    
53.   ok:=false;
    
54.   writeln('plz input basic matrix');
    
55.   for i:=1 to 3 do
    
56.    for j:=1 to 3 do
    
57.     repeat
    
58.      read(s);
    
59.      if not((ord(s)<ord('0'))or(ord(s)>ord('9')))then a[i,j]:=ord(s)-ord('0');
    
60.     until not((ord(s)<ord('0'))or(ord(s)>ord('9')));
    
61.   writeln;
    
62.   for i:=1 to 3 do begin
    
63.    for j:=1 to 3 do
    
64.     write(a[i,j],'  ');
    
65.    writeln;
    
66.   end;
    
67.   writeln('ok?,if ok plz type ''Y''');
    
68.   readln(s);
    
69.   ok_:=((s='Y')or(s='y'));
    
70. until ok_;
    
71. 
    
72. repeat
    
73.   writeln('plz input target matrix');
    
74.   exit_:=false;
    
75.   for i:=1 to 3 do
    
76.    for j:=1 to 3 do
    
77.     repeat
    
78.      read(s);
    
79.      if not((ord(s)<ord('0'))or(ord(s)>ord('9')))then b[i,j]:=ord(s)-ord('0');
    
80.     until not((ord(s)<ord('0'))or(ord(s)>ord('9')));
    
81.   writeln;
    
82.   for i:=1 to 3 do begin
    
83.    for j:=1 to 3 do
    
84.     write(b[i,j],'  ');
    
85.    writeln;
    
86.   end;
    
87.   k:=calc(0);
    
88.   writeln('Ans:',k,'QB');
    
89.   writeln('exit?,if ok plz type ''Y''');
    
90.   readln(s);
    
91.   exit_:=((s='Y')or(s='y'));
    
92. until exit_;
    
93. end.
    

复制代码

hhzsh

2   4   6
1   3   5
9   8   7
多开些简单的活动吧

〓咴呔狼〓

7 4 3
2 8 9
1 5 6
一读就懂  我喜欢

leenny

3 7 5
9 2 6
1 4 8
是这样吧

ltrltr

4 8 3
1 5 9
2 7 6
---------
嗯嗯,简单的游戏最喜欢了,支持支持~

raoul

135
246
789

fatethly

3 5 7
6 4 9
1 8 2

龙穆古公

987
456
123
真的····很简单·····我汗颜·····

cs06pgclub

第一期

573
184
926

jiao2999

825
391
476

MOONELVES

貌似蛮简单的
3 4 7
5 1 9
2 8 6

huashan

5 3 6
7 8 1
2 4 9
应该不会有问题吧

aaaaa123ad

624
537
918

lzlz59876

2 3 4
5 7 9
1 6 8

Arsenaloe

123
456
789

看RP如何的说~

绯红的庆典

916
584
723
果然不用想太多的游戏很好玩呢！支持哦

KenTso

第1期
123
697
548

korewayume

523
479
186