質因數連乘式 ( 第一版 ) ( Prime Factorization of a Positive Integer : Version 1 )

( 程式版本：1.0，最後更新日期 14 AUG 2003。)

LBL 0	R/S	STO 1	0	STO 2	LBL 1
2	STO +2	RCL 1	STO 3	÷	RCL 2
STO ÷3	STO ÷3	－	IP	=	x2
STO 0	×	RCL 3	LOG	STO 3	×
(	RCL 2	－	2	=	INPUT
0	x ≦ y?	GTO 2	GTO 1	LBL 2	1
STO –2	RCL 3	×	RCL 0	=	INPUT
0	x ≦ y?	GTO 3	GTO 1	LBL 3	RCL 0
STO 4	RCL 2	STO 0	RCL 1	－	2
=	STO 2	RCL 4	INPUT	0	x ≦ y?
GTO 4	GTO 1	LBL 4	RCL 0	STO 2	+
1	STO –2	=	STO ÷1	R/S	RCL 1
LOG	INPUT	0	x ≦ y?	GTO E	GTO 1
LBL E	STO 2	PRGM	80 steps

例：將 2431 因子分解。

按 XEQ 0，再按  2431 R/S

顯示  11 ( 第一個因子 First Factor )
再按 R/S        顯示  13  ( 第二個因子 Second Factor )
再按 R/S        顯示  17  ( 第三個因子 Third Factor )
再按 R/S        顯示  0  ( 完成 )

亦即是說  2431 = 11 × 13 × 17

注意：輸入的數必須是正整數。另外，如果程式只輸出一個因子，則表示輸入的數是質數 ( Prime Number )。

質因數連乘式 ( 第二版 ) ( Prime Factorization of a Positive Integer : Version 2 )

返回選擇程式頁

返回頁首