题解 - Vijos

0

skykey LV 9 @ 2009-04-08 18:02:43

#include

using namespace std;

int T[]={0,0,1,1,0,0,0,1,1,0};

char a[10000],b[10000];

int main()

{

for(int i=1;i>a>>b;

aa=(a[strlen(a)-1]-48);

bb=(b[strlen(b)-1]-48);

if(!T[aa]||!T[bb])cout

0

qzssy5618 LV 8 @ 2009-03-31 19:09:11

世界上最强的测试结果.....

记录号 Flag 得分记录信息环境评测机程序提交时间

R1194846 unaccepted 10 From qzssy5618－

　 P1196 FPC Vivid Puppy 2009-3-31 18:52:26

From matrix67

吃糖果游戏 Matrix67 第一次模拟赛系列

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：运行超时...

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：运行时错误...|错误号：200

├ 测试数据 05：运行时错误...|错误号：201

├ 测试数据 06：运行时错误...| 错误号：205|浮点操作上界溢出

├ 测试数据 07：运行时错误...| 错误号：206|浮点操作下界溢出

├ 测试数据 08：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 09：运行时错误...|错误号: -1073741571

├ 测试数据 10：运行时错误...| 错误号: 216 | 存取非法

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：10有效耗时：0ms

囧····全到齐了···

无语中.......（ps：实际上已AC，it is a joke）

为避免大牛重蹈覆辙，特提出以下建议：

1、字符串类型要改成ansistring

2、虽然有10000位，但是只要判断每个数的最后一位mod5是不是2或者3

如果是则后出手的必胜

如果不是则先出手的必胜

证明自己想······

3、将字符串转为数字可以使用val过程（专为小学生准备，大牛可以忽略）···

0

zjy19951109 LV 8 @ 2009-03-31 18:56:59

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：运行超时...

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 09：运行时错误...|错误号: -1073741571

├ 测试数据 10：运行时错误...| 错误号: 216 | 存取非法

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms

0

a465625179 LV 7 @ 2009-03-29 09:40:44

--判断两个数的尾数是不是2,3,7,8

是,先拿者必输;

否,先拿者必赢;

var

//a:array[1..10001] of char;

a:ansistring;

win:set of char=['2','3','7','8'];

i,j,k:longint;

c,d:char;

begin

for i:=1 to 10 do begin

readln(a);

a[length(a)+1]:=' ';

j:=1; k:=0;

while (a[j]' ') do begin

inc(j);

end;

c:=a[j-1];

inc(j);

while a[j]' ' do inc(j);

d:=a[j-1];

if (c in win)and(d in win) then writeln('Shadow')

else writeln('Matrix67');

end;

end.

0

tangzhihan LV 7 @ 2009-03-23 12:51:39

编译通过...

├ 测试数据 01：答案似乎正确... 1ms

├ 测试数据 02：答案也许正确... 4ms

├ 测试数据 03：答案好像正确... 3ms

├ 测试数据 04：答案仿佛正确... 8ms

├ 测试数据 05：答案可能正确... 8ms

├ 测试数据 06：答案大概正确... 8ms

├ 测试数据 07：答案或许正确... 5ms

├ 测试数据 08：答案貌似正确... 8ms

├ 测试数据 09：答案近乎正确... 7ms

├ 测试数据 10：答案看起来正确... 4ms

---|---|---|---|---|---|---|---|-

Accepted 不确定得分：0 有效耗时：56ms

0

wzc1995 LV 10 @ 2009-02-09 23:14:25

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include "stdio.h"

#include "string.h"

int main()

{

int i;

char a[10001],b[10001],x,y;

for(i=0;i

0

3830372 LV 8 @ 2009-02-05 21:05:42

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第一次把范围开小了

改了就AC了！！！哎`\

0

裤子11 LV 8 @ 2009-01-31 21:48:09

no.2845

并不特殊的数字。。。

看到了大牛的思路。。

心喜我的思路也是这样]]]]

0

吴豪 LV 8 @ 2009-01-12 15:08:33

对于a,b

如果a和b对5的余数都是2或者3就是Shadow

否则是Matrix67

0

w8742815 LV 3 @ 2008-12-14 11:59:18

program asd；

var

ch,ch1,ch2:char;

i:integer;

begin

for i:=1 to 10 do

begin

while ch' ' do

　　begin

　　 ch1:=ch;

　　 read(ch);

　　end;

read(ch);

while ch in['0'..'9'] do

　　begin

　　 ch2:=ch;

　　 read(ch);

　　end;

if (ch1 in ['2','3','7','8'])and(ch2 in['2','3','7','8'])

then write('Shadow') else write('Matrix67');

end;

end.

0

lirenjue LV 10 @ 2008-12-11 22:05:26

ac60题，庆祝1400ac者

0

lydliyudong LV 8 @ 2008-12-06 16:41:50

楼下把输出写反了

var

ch,ch1,ch2:char;

i:integer;

begin

for i:=1 to 10 do

begin

while ch' ' do

begin

ch1:=ch;

read(ch);

end;

read(ch);

while ch in['0'..'9'] do

begin

ch2:=ch;

read(ch);

end;

if (ch1 in ['2','3','7','8'])and(ch2 in['2','3','7','8'])

then write('Shadow') else write('Matrix67');

end;

end.

0

angel_xiao LV 5 @ 2008-11-26 13:31:49

program xaq;

var

ch,ch1,ch2:char;

i:integer;

begin

for i:=1 to 10 do

begin

while ch' ' do

begin

ch1:=ch;

read(ch);

end;

read(ch);

while ch in['0'..'9'] do

begin

ch2:=ch;

read(ch);

end;

if (ch1 in ['2','3','7','8'])and(ch2 in['2','3','7','8'])

then write('Matrix67')

else write('Shadow');

end;

end.

哪里错了？？？？

0

冬天不冷 LV 8 @ 2008-11-13 17:22:57

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program ex;

var i,c,d,j,max,l:longint;

s:ansistring;

begin

for i:=1 to 10 do begin

readln(s);l:=length(s);

for j:=1 to length(s) do begin

if s[j]=' ' then begin max:=j;break;end;end;

val(s[max-1],c);val(s[l],d);

if ((c=2) or (c=3) or (c=7) or(c=8)) and ((d=2) or (d=3) or (d=7) or (d=8)) then

writeln('Shadow')

else writeln('Matrix67');

end;

end.

0

春风化雨 LV 3 @ 2008-11-01 19:33:26

NND，心急把5数成4了

直接烦了(liao 3),换号了，作为此号的最后一题

AC第36题,2008年11月1日

0

linshutan LV 3 @ 2008-10-14 17:08:16

program p1196;

const m='Matrix67'; s='Shadow';

win:set of 1..10=[2,3,7,8];

var

i,j,l,d,c:longint;

a,b:char;

ss:ansistring;

begin

for i:=1 to 10 do

begin

b:=#0;

while b' ' do begin a:=b; read(b); end;

val(a,c);

b:=#0;

while b#13 do begin a:=b; read(b); end;

val(a,d);

if (c in win)and(d in win) then writeln(s)

else writeln(m);

end;

end.

无奈..

本来扑素的,,评测机太烂..只好优化下..

0

惠橼 LV 3 @ 2008-10-08 21:43:45

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

特简单!

0

不会写题目 LV 8 @ 2008-10-05 16:25:27

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

刚开始6行程序直接用LONGINT- -||没注意范围浪费通过率哎

0

tang 萍 LV 5 @ 2008-10-04 15:01:58

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

好

0

lyyztt67 LV 4 @ 2008-10-03 23:27:28

{program aal;

const x='Matrix67'; y='Shadow'; z:set of 1..10=[2,3,7,8];

var i,j,l,d,c:longint; a,b:char; s:ansistring;

begin

for i:=1 to 10 do

begin

readln(s); l:=length(s);

for j:=1 to l do

if s[j]=' ' then break;

a:=s[j-1]; b:=s[l];

val(a,c); val(b,d);

if (c in z)and(d in z) then writeln(y)

else writeln(x);

end;

end.}

---|---|---|---|---|---|---|---|---|---|---|---|---|

原来程序可以这么短啊

题解

99 条题解

吃糖果游戏

信息

状态

开发

支持

题解

99 条题解

吃糖果游戏

信息

状态

开发

支持

还没有账户？

登录