数的进制、拓扑排序、关键路径【信息技术】.docVIP

目 录 一、数的进制转换 1 二、拓扑排序（A0V网） 5 三、关键路径（A0E网） 7 一、数的进制转换 数的进制的概念： 日常生活中我们计数的方式有很多，如一年有12个月，则是12进制，一周有7天，则是7进制，等等。实际都是我们人为规定的，而平常我们用的最多的最习惯的是10进制，是因为我们古人留下来的财富，而古人是因为有10个手指便于帮助计数。需要强调的是任何一个值都可以用任何一种进制描述，但它的值是不变的，正如我们今天在一周中可以描述为星期几，在一月中描述为多少号一样。 使用R进制计数的规则： 只使用R个基数：0，1，2，……，R-1； 逢R进一，退一当R进行数的运算。 R进制数转化为十进制数 这个转化问题较简单，根据上面讲的R进制的计数规则进行展开就得到相应的十进制数的表示方法。 （anan-1……a1a0.a-1a-2……a-m）……+a1*R1+a0*R0+a-1*R-1+a-2*R-2+……+a-m*R-m = 十进制数转化为R进制数 由于十进制数的整数与小数转化为R进制的方法不同，所以必须分开讨论。先看十进制整数的转化，再讨论十进制小数的转化，最后讨论-R进制的计数及转化问题。 十进制整数的转化 通过具体实例进行分析，如对十进制数325转化，根据原理可以按下式这样假设： （325）10=3*102+2*101+5*100 =（anan-1……a1a0）……+a1*R1+a0*R0 =（an*Rn-1+an-1*Rn-2+……+a1）*R+a0 两边同时除以R，得到整数部分和整数部分相等，余数和余数相等，显然右边的余数就是a0，再进行同样的处理就得到a1，一直这样进行下去，直到左边的数为0是为止，由于先求出的是R进制的最低位，再按求解过程倒过来写出就得到相应的R进制数。 以R=6为例，看转化的过程： （325）10=（1301）6 最后，得到的规律就是“除R取余”。 设：任意进制为x,十进制数为y则其算法模式是: : t:=t+1; y mod x 的余数:a(t) y:=y div x y=0为止. a(t)最高位到第一位a(1). ……a-m）……+a-m*R-m =(a-1+a-2*R-1+……+a-m*R-m+1)*R-1 两边同时乘以R，等式两边的整数部分和小数部分分别相等，显然右边的整数部分就是a-1，再去掉等式的整数部分，然后进行相同的处理，就求得了a-2，一直进行下去，直到左边的值为０时或到要求的精度为止，这样就将十进制小数转化为相应的Ｒ进制数了。 以Ｒ＝２为例，说明求解过程： （0．375）10=（0．011）2 最后得到的规律就是“乘Ｒ取整”。 例1不同进制数之间实数转换的通用程序。 输入n进制的数m与要转换的p进制的输出。 如： 输入一个数m : ABC.CBA 输入此数的进制n : 16 输入要转换成的数的进制p : 2 输出： ABC.ABC(16)=101010111100.11001011101(2) 【程序清单】 PROGRAM p1; TYPE ss=STRING[30]; VAR m,m1,a,s:ss; m0,n,p,i,j,t,s1,x:Integer; mm,d:LongInt; mr:Real; PROCEDURE Zhuan(ch:Char); {过程—数字符转换成数} BEGIN j:=Ord(ch)-48; {数字符转换成数} IF ch IN [A..F] THEN j:=j-7; {数字符转换成数} IF (j0) AND (j=n) THEN {出界输出出错信息，程序终止} BEGIN Writeln(Data errer !); Readln; EXIT END; END; PROCEDURE Xiao(m:ss); {过程—小数部分的转换} BEGIN mr:=0; m0:=Length(m); t:=n; {初始化} IF n=10 THEN Val(m,mr,t) ELSE {如是十进制数，就直接把数串转换成数} FOR i:=2 TO m0 DO BEGIN {否则把m，先转换成十进制小数,m[1]是小数点} Zhuan(m[i]); {调用字符转为数的过程} mr:=mr+j/t; t:=t*n {按权一一展开，累加到mr中} END; m:=.; {再把mr