123 条题解
-
0
luyifan LV 10 @ 2008-10-17 16:20:35
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：80 有效耗时：0msvar
s,s1:string;
x,y,t:longint;
i,k,len,j:longint;
l:array[0..9]of longint;
c:array[0..9,1..10]of longint;
a:array[1..1000]of longint;
b:array[0..9]of longint;
vis:array[0..9,0..9]of boolean;
procedure dfs(i,m:longint);
var j:longint;begin
vis[m,i]:=true;
for j:=1 to l[i] do
if not vis[m,c]
then
begininc(b[m]);
dfs(c,m);end;
end;procedure cheng(x:longint);
var j,y:longint;
begin
j:=1;
y:=0;
while(j -
0
数据结构：
a:array[0..9,0..9] of integer;（矩阵，a表示存储数字i是否可以变为j）
b:array[0..9] of 0..1;（b[i]表示数字i可以变化的总数）
c,d:array[0..50] of integer;（存储高精度）
n:string[35];（读入的字符串）
kk:string[5];（将读入的第一行中的k读出）
（为了方便，const s:array[#48..#57] of integer=(0,1,2,3,4,5,6,7,8,9);）核心的floyd算法：
for i:=0 to 9 do
for j:=0 to 9 do
for l:=0 to 9 do
if (a[j,i]=1) and (a=1) then
a[j,l]:=1;
（注意循环顺序！！！）b数组赋初值时应赋为1，因为包括不变也是一种！！！
接下来运用乘法原理，
for i:=1 to lenn do
chen(b[s[n[i]]]);
高精度就简单了，是高精度×低精度：
输出即可
---|---|---|---|---|---|---|---|---|---|---|---|---|
//by lodanc -
0
25.21.18.9 LV 6 @ 2008-08-20 01:46:03
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
哈哈!!!
最简单的办法就是统计一下每一个数字能有多少次改动（包括自身），把它们相乘就OK，最好就写一个高精度。 -
0
asd4823765 LV 9 @ 2007-11-18 19:47:11
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms1楼的牛好猪啊`
\`\`\`\`\`\`` -
0
zyffyz8002 LV 3 @ 2007-10-28 09:42:33
最后一个数据没有错啦。
我不知道是否改了……
但是我测的是对的……
要用高精度乘单精的……
要是没有用。可能是精度不够，超范围从正的超到负数，再从负数超回到正数… -
0
specialshe LV 3 @ 2007-08-25 18:39:02
最后个点到底。。
luyifan
LV 10
@ 2008-10-17 16:20:35
