任意角的正弦怎么用计算机算,【渣渣】写了一个计算任意角正弦的小程序-CSDN博客

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

.版本 2

.子程序 _加, , , C = A + B

.参数 A, 整数型, 参考数组

.参数 B, 整数型, 参考数组

.参数 C, 整数型, 参考数组

.局部变量 AL, 整数型

.局部变量 BL, 整数型

.局部变量 CL, 整数型

.局部变量 aw, 整数型

.局部变量 bw, 整数型

.局部变量 ax, 整数型

.局部变量 bx, 整数型

.局部变量小数错位, 整数型

.局部变量小数, 整数型

.局部变量 i, 整数型

.局部变量 V, 整数型

.局部变量 CW, 整数型

.局部变量 CX, 整数型

.局部变量 ji, 整数型

AL ＝取数组成员数 (A)

BL ＝取数组成员数 (B)

CL ＝取数组成员数 (C)

.如果真 (AL ＜ 4 或 BL ＜ 4)

返回 ()

.如果真结束

.如果真 (A [1] ≠ 0 且 B [1] ＝ 0)

A [1] ＝ 0

_减 (B, A, C) ' -a+b = b-a

A [1] ＝ 1

返回 ()

.如果真结束

.如果真 (A [1] ＝ 0 且 B [1] ≠ 0)

B [1] ＝ 0

_减 (A, B, C) ' a+(-b) = a-b

B [1] ＝ 1

返回 ()

.如果真结束

.如果真 (A [1] ≠ 0 且 B [1] ≠ 0)

A [1] ＝ 0

B [1] ＝ 0

_加 (A, B, C) ' -a+(-b) = -a-b = -(a+b)

B [1] ＝ 1

A [1] ＝ 1

C [1] ＝ 1

返回 ()

.如果真结束

aw ＝ A [2]

bw ＝ B [2]

ax ＝ A [3]

bx ＝ B [3]

.如果真 (aw ≤ 3)

C ＝ B

返回 ()

.如果真结束

.如果真 (bw ≤ 3)

C ＝ A

返回 ()

.如果真结束

V ＝选择 (AL ＞ BL, AL, BL)

.如果真 (V ≤ aw ＋ bx)

V ＝ aw ＋ bx ＋ 1

.如果真结束

.如果真 (V ≤ bw ＋ ax)

V ＝ bw ＋ ax ＋ 1

.如果真结束

.如果真 (CL ＜ V)

CL ＝ V

重定义数组 (C, 假, CL)

.如果真结束

' 数组清零 (C)

V ＝ 0

.判断开始 (bx ≥ ax)

小数错位＝ bx － ax

CW ＝ bw

.变量循环首 (4, bw, 1, i)

V ＝ B [i] ＋ V

.如果真 (i －小数错位＞ 3 且 i －小数错位 ≤ aw)

V ＝ V ＋ A [i －小数错位]

.如果真结束

.判断开始 (V ＜ #进制数)

C [i] ＝ V

V ＝ 0

.默认

C [i] ＝ V ％ #进制数

V ＝ V ＼ #进制数

.判断结束

.变量循环尾 ()

.判断循环首 (V ≠ 0 或 i －小数错位 ≤ aw)

.如果真 (i －小数错位 ≤ aw 且 i －小数错位＞ 3)

V ＝ V ＋ A [i －小数错位]

.如果真结束

.判断开始 (V ＜ #进制数)

C [i] ＝ V

V ＝ 0

.默认

C [i] ＝ V ％ #进制数

V ＝ V ＼ #进制数

.判断结束

CW ＝ i

i ＝ i ＋ 1

.判断循环尾 ()

.默认

小数错位＝ ax － bx

CW ＝ aw

.变量循环首 (4, aw, 1, i)

V ＝ A [i] ＋ V

.如果真 (i －小数错位＞ 3 且 i －小数错位 ≤ bw)

V ＝ V ＋ B [i －小数错位]

.如果真结束

.判断开始 (V ＜ #进制数)

C [i] ＝ V

V ＝ 0

.默认

C [i] ＝ V ％ #进制数

V ＝ V ＼ #进制数

.判断结束

.变量循环尾 ()

.判断循环首 (V ≠ 0 或 i －小数错位 ≤ bw)

.如果真 (i －小数错位 ≤ bw 且 i －小数错位＞ 3)

V ＝ V ＋ B [i －小数错位]

.如果真结束

.判断开始 (V ＜ #进制数)

C [i] ＝ V

V ＝ 0

.默认

C [i] ＝ V ％ #进制数

V ＝ V ＼ #进制数

.判断结束

CW ＝ i

i ＝ i ＋ 1

.判断循环尾 ()

.判断结束

CX ＝选择 (ax ＞ bx, ax, bx)

C [1] ＝ 0

C [2] ＝ CW

C [3] ＝ CX

.版本 2

.子程序 _加, , , C = A + B.参数 A, 整数型, 参考数组.参数 B, 整数型, 参考数组.参数 C, 整数型, 参考数组.局部变量 AL, 整数型.局部变量 BL, 整数型.局部变量 CL, 整数型.局部变量 aw, 整数型.局部变量 bw, 整数型.局部变量 ax, 整数型.局部变量 bx, 整数型.局部变量小数错位, 整数型.局部变量小数, 整数型.局部变量 i, 整数型.局部变量 V, 整数型.局部变量 CW, 整数型.局部变量 CX, 整数型.局部变量 ji, 整数型

AL ＝取数组成员数 (A)BL ＝取数组成员数 (B)CL ＝取数组成员数 (C).如果真 (AL ＜ 4 或 BL ＜ 4) 返回 ().如果真结束.如果真 (A [1] ≠ 0 且 B [1] ＝ 0) A [1] ＝ 0 _减 (B, A, C) ' -a+b = b-a A [1] ＝ 1 返回 ().如果真结束.如果真 (A [1] ＝ 0 且 B [1] ≠ 0) B [1] ＝ 0 _减 (A, B, C) ' a+(-b) = a-b B [1] ＝ 1 返回 ().如果真结束.如果真 (A [1] ≠ 0 且 B [1] ≠ 0) A [1] ＝ 0 B [1] ＝ 0 _加 (A, B, C) ' -a+(-b) = -a-b = -(a+b) B [1] ＝ 1 A [1] ＝ 1 C [1] ＝ 1 返回 ().如果真结束aw ＝ A [2]bw ＝ B [2]ax ＝ A [3]bx ＝ B [3].如果真 (aw ≤ 3) C ＝ B 返回 ().如果真结束.如果真 (bw ≤ 3) C ＝ A 返回 ().如果真结束V ＝选择 (AL ＞ BL, AL, BL).如果真 (V ≤ aw ＋ bx) V ＝ aw ＋ bx ＋ 1.如果真结束.如果真 (V ≤ bw ＋ ax) V ＝ bw ＋ ax ＋ 1.如果真结束.如果真 (CL ＜ V) CL ＝ V 重定义数组 (C, 假, CL).如果真结束' 数组清零 (C)V ＝ 0.判断开始 (bx ≥ ax) 小数错位＝ bx － ax CW ＝ bw .变量循环首 (4, bw, 1, i) V ＝ B [i] ＋ V .如果真 (i －小数错位＞ 3 且 i －小数错位 ≤ aw) V ＝ V ＋ A [i －小数错位] .如果真结束 .判断开始 (V ＜ #进制数) C [i] ＝ V V ＝ 0 .默认 C [i] ＝ V ％ #进制数 V ＝ V ＼ #进制数 .判断结束

.变量循环尾 () .判断循环首 (V ≠ 0 或 i －小数错位 ≤ aw) .如果真 (i －小数错位 ≤ aw 且 i －小数错位＞ 3) V ＝ V ＋ A [i －小数错位] .如果真结束 .判断开始 (V ＜ #进制数) C [i] ＝ V V ＝ 0 .默认 C [i] ＝ V ％ #进制数 V ＝ V ＼ #进制数 .判断结束 CW ＝ i i ＝ i ＋ 1 .判断循环尾 ().默认小数错位＝ ax － bx CW ＝ aw .变量循环首 (4, aw, 1, i) V ＝ A [i] ＋ V .如果真 (i －小数错位＞ 3 且 i －小数错位 ≤ bw) V ＝ V ＋ B [i －小数错位] .如果真结束 .判断开始 (V ＜ #进制数) C [i] ＝ V V ＝ 0 .默认 C [i] ＝ V ％ #进制数 V ＝ V ＼ #进制数 .判断结束

.变量循环尾 () .判断循环首 (V ≠ 0 或 i －小数错位 ≤ bw) .如果真 (i －小数错位 ≤ bw 且 i －小数错位＞ 3) V ＝ V ＋ B [i －小数错位] .如果真结束 .判断开始 (V ＜ #进制数) C [i] ＝ V V ＝ 0 .默认 C [i] ＝ V ％ #进制数 V ＝ V ＼ #进制数 .判断结束 CW ＝ i i ＝ i ＋ 1 .判断循环尾 ()

.判断结束

CX ＝选择 (ax ＞ bx, ax, bx)C [1] ＝ 0C [2] ＝ CWC [3] ＝ CX