分享 revised code of tower of hanoi

math_humanbeing 2015-11-28 05:28

PROGRAM HANOI_TOWER; VAR N:INTEGER;VAR C:INTEGER;VAR D:BOOLEAN;VAR G,X,Y:INTEGER; PROCEDURE HANOI(K:INTEGER;VAR L:INTEGER;VAR A:BOOLEAN); VAR M,I,H:INTEGER;VAR J:BOOLEAN; BEGIN IF K=0 THEN EXIT; CASE L OF 1:A:=FALSE; 3:A:=TRUE; END; J:=A;H:=L; FO ...

966 次阅读|0 个评论

分享 tower of hanoi

math_humanbeing 2015-11-27 15:12

PROGRAM HANOI_TOWER; VAR N:INTEGER;VAR C:INTEGER;VAR D:BOOLEAN; PROCEDURE OUTF(A,B:INTEGER); BEGIN WRITE(A,'--',B,' '); END; PROCEDURE HANOI(K:INTEGER;VAR L:INTEGER;VAR A:BOOLEAN); VAR M,I,H:INTEGER;VAR J:BOOLEAN; BEGIN IF K=0 THEN EXIT; CASE L OF 1:A:=FALSE; & ...

871 次阅读|0 个评论

分享 经过改正的计算1至n的欧拉phi函数的程序

math_humanbeing 2015-9-28 15:23

PROGRAM EULER_PHI; TYPE LINKED_PTR=^LINK_NODE; LINK_NODE=RECORD VALUE:INTEGER; NEXT:LINKED_PTR; END; VAR N,M,I,R:INTEGER;VAR NODE,G:LINKED_PTR; PROCEDURE PRINTING(PTR:LINK ...

1025 次阅读|1 个评论

分享 签名备份1000

cn8888 2015-9-28 10:09

\({\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a} ...

582 次阅读|0 个评论

分享 签名备份

cn8888 2015-9-28 10:08

\({\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a}{\frac{a} ...

601 次阅读|0 个评论

分享 旧的论坛签名

cn8888 2015-9-28 10:06

低调做人做事 \({95800^4} + {217519^4} + {414560^4} = {422481^4}\) 我虽聪明,却没绝顶!\(2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2^{2}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\)

591 次阅读|0 个评论

分享 计算从1到n所有正整数的欧拉phi函数值

math_humanbeing 2015-9-27 17:17

PROGRAM EULER_PHI; TYPE LINKED_PTR=^LINK_NODE; LINK_NODE=RECORD VALUE:INTEGER; NEXT:LINKED_PTR; END; VAR N,M,I,R:INTEGER;VAR NODE,G:LINKED_PTR; PROCEDURE PRINTING(PTR:LINKED_PTR); VAR P:LINKED_PTR; BEGIN P:=PTR; P:=P ...

1119 次阅读|0 个评论

分享 mofang

math_humanbeing 2015-6-3 19:34

961 次阅读|0 个评论

本页有 2 篇日志因作者的隐私设置或未通过审核而隐藏