寒假篇40

最新推荐文章于 2020-10-03 15:05:17 发布

2018面壁

最新推荐文章于 2020-10-03 15:05:17 发布

阅读量189

点赞数

分类专栏：寒假篇

本文链接：https://blog.csdn.net/forget_yu/article/details/54999965

版权

寒假篇专栏收录该内容

40 篇文章 0 订阅

订阅专栏

题目描述

给出一个整数 n（n<10^30) 和 k 个变换规则（k<=15）。

规则：

一位数可变换成另一个一位数：

规则的右部不能为零。

例如：n=234。有规则（k＝2）：

2－>5

3－>6

上面的整数 234 经过变换后可能产生出的整数为（包括原数）:

234 534 264 564 共 4 种不同的产生数

问题：

给出一个整数 n 和 k 个规则。

求出：

经过任意次的变换（0次或多次），能产生出多少个不同整数。

仅要求输出个数。

输入输出格式

输入格式：
键盘输人，格式为：

n k x1 y1 x2 y2 … …

xn yn

输出格式：
屏幕输出，格式为：

一个整数（满足条件的个数）：

输入输出样例

输入样例#1：
234 2
2 5
3 6
输出样例#1：
4
做法：弗洛伊德
代码如下:

var 
    a:array[1..31]of 0..9;
    g:array[0..9,0..9]of boolean;
    f:array[0..9]of byte;
    n,k,i,j,h,p,l1,l2,long:longint;
    x:char;
    t:longint;
    s:array[1..100]of 0..100;
procedure gjd(a:longint);
var i:integer;
begin
    for i:=1 to long do 
        s[i]:=s[i]*a;
    for i:=1 to long+1 do
      begin
        inc(s[i+1],s[i]div 10);
        s[i]:=s[i] mod 10;
      end;
    if s[long+1]>0 then inc(long);
    if s[long+1]>0 then inc(long);
end;

begin
    read(x);
    while x<>' ' do
     begin
        inc(p);
        a[p]:=ord(x)-ord('0');
        read(x);
     end;
    readln(k);  
    for i:=0 to 9 do
     for j:=0 to 9 do
      g[i,j]:=false;
    for i:=1 to k do
        begin
         read(l1);
         readln(l2);
         g[l1,l2]:=true;
        end;
for h:=0 to 9 do
 for i:=0 to 9 do
  for j:=0 to 9 do
     g[i,j]:=g[i,j]or(g[i,h] and g[h,j]);
for i:=0 to 9 do g[i,i]:=true;
 for i:=0 to 9 do
  for j:=0 to 9 do
     inc(f[i],ord(g[i,j]));
    s[1]:=1;
    long:=1;
    for i:=1 to p do 
     gjd(f[a[i]]);
    for i:=long downto 1 do 
     write(s[i]);
end.