2005年6月26日星期日

計算程式

剛剛用 HP 20S 編寫了一個計算身份證號碼 Check digit 的程式(只限一個英文字母),只要在計算機上按「 11 INPUT 123456 XEQ A 」(假如身份證號碼是 K123456 )便能顯示結果,使用 HP 20S 計算機的用家可以試試。

1 - LBL A 21 - 2 41 - 6 61 - 1 79 - RCL 0
2 - STO 0 22 - XEQ B 42 - + 62 - STO 7 80 - =
3 - ÷ 23 - STO 4 43 - RCL 3 63 - = 81 - IP
4 - EXP 24 - . 44 - × 64 - FP 82 - ÷
5 - 5 25 - 1 45 - 5 65 - × 83 - 1
6 - = 26 - XEQ B 46 - + 66 - RCL 7 84 - 0
7 - IP 27 - STO 5 47 - RCL 4 67 - - 85 - =
8 - STO 1 28 - 1 48 - × 68 - RCL 7 86 - FP
9 - EXP 29 - XEQ B 49 - 4 69 - = 87 - ×
10 - +/- 30 - STO 6 50 - + 70 - ABS 88 - 1
11 - 4 31 - SWAP 51 - RCL 5 71 - INPUT 89 - 0
12 - XEQ B 32 - × 52 - × 72 - RCL 7 90 - =
13 - STO 2 33 - 8 53 - 3 73 - SWAP 91 - RTN
14 - EXP 34 - + 54 - + 74 - x≦y?
15 - +/- 35 - RCL 1 55 - RCL 6 75 - CLEAR
16 - 3 36 - × 56 - × 76 - R/S
17 - XEQ B 37 - 7 57 - 2 77 - LBL B
18 - STO 3 38 - + 58 - = 78 - ×
19 - EXP 39 - RCL 2 59 - ÷
20 - +/- 40 - × 60 - 1 Checksum: F5B3

沒有留言: