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

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

.版本 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