|
开此贴主要是解释NS编程中几个函数的重要作用……
这是Nelson Sousa的解方程程序的一部分,它的作用是提取输入的二次方程的系数。
输入格式为program(eq,var)
两个变量均以string格式输入。
下面我们来看代码:- If inString(eq,"=")=0
- eq:=eq&"=0"
- j:=inString(eq,"=")
- eq:=left(eq,j-1)&"+0-("&right(eq,dim(eq)-j)&")"
- expr(eq&"|"&var&"=0")→c
- expr(eq&"|"&var&"=1")-c→a_plus_b
- expr(eq&"|"&var&"=-1")-c→a_minus_b
- If inString(eq,"=")=0
- eq:=eq&"=0"
- j:=inString(eq,"=")
- eq:=left(eq,j-1)&"+0-("&right(eq,dim(eq)-j)&")"
- ((a_plus_b+a_minus_b)/(2))→a
- ((a_plus_b-a_minus_b)/(2))→b
- d:=b^(2)-4*a*c
- If d<0 Then
- ............
复制代码 |
评分
-
查看全部评分
|