怎样用qbasic解一个未知数的方程.最好有过程,有讲解
题目
怎样用qbasic解一个未知数的方程.最好有过程,有讲解
答案
对于这种问题,有点无语,比较难!
给你一个解带括号的算式值的程序吧!
CLS
INPUT A$
L = LEN(A$)
DIM A$(L),B(L)
PRINT A$; "=";
DO
Q = INSTR(A$,")")
IF Q 0 THEN
K = 0
DO
K = INSTR(K + 1,A$,"(")
IF K < Q AND K 0 THEN P = K
LOOP UNTIL K = 0 OR K > Q
AA$ = MID$(A$,1,P - 1)
AB$ = MID$(A$,P + 1,Q - (P + 1))
AC$ = MID$(A$,Q + 1)
GOSUB 100
AB$ = LTRIM$(STR$(B(1)))
A$ = AA$ + AB$ + AC$
END IF
LOOP UNTIL Q = 0
AB$ = A$
GOSUB 100
PRINT B(1)
END
100
T$ = ""
J = 1
LA = LEN(AB$)
FOR I = 1 TO LA
X$ = MID$(AB$,I,1)
IF X$ = "+" OR X$ = "-" OR X$ = "*" OR X$ = "/" THEN
A$(J) = X$
B(J) = VAL(T$)
T$ = ""
J = J + 1
ELSE
T$ = T$ + X$
END IF
NEXT I
B(J) = VAL(T$)
FOR T = 1 TO J
IF A$(T) = "*" THEN B(T) = B(T) * B(T + 1):GOSUB 200
IF A$(T) = "/" THEN B(T) = B(T) / B(T + 1):GOSUB 200
NEXT T
FOR T = 1 TO J
IF A$(T) = "+" THEN B(T) = B(T) + B(T + 1):GOSUB 200
IF A$(T) = "-" THEN B(T) = B(T) - B(T + 1):GOSUB 200
NEXT T
RETURN
200
FOR P = T TO LA - 2
A$(P) = A$(P + 1)
B(P + 1) = B(P + 2)
NEXT P
J = J - 1
T = T - 1
RETURN
解方程于它的原理差不多,都是先找括号,算完括号在解决其他.
主要利用栈的思想(注意用过程),而解方程再多一步变式就ok!
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- “一江春水向东流”的根本原因是( ) A.地球的自转 B.地球的绕日公转 C.太阳、月亮都从东边升起 D.由于我国特殊的地势特点以及重力的作用
- 近似数1.50是由数a四舍五入得到的,那么数a的取值范围是多少
- 斜边是3,一条直角边是1的直角三角形每个角的度数是多少
- Shelly decided that she wanted to become a nurse.这句话语法对么?宾语从句?
- 郑和下西洋是在哪个皇帝在位期间进行的壮举?郑和下西洋有哪些伟大的意义?
- 如图,点O在直线AB上,OC为射线,∠1比∠2的三倍还多20度,利用二元一次方程组,求∠1,∠2的度数.
- 树叶在风中飘来飘去,改为拟人句
- 一道复数的极限题
- 阿累的《一面》中,表达了阿累对鲁迅的( )( )( )之情
- Hongkong —— an interesting city
热门考点
- 导数 二阶导数 参数方程
- 商场出售的A型冰箱每台售价2190元,每日耗电量为1度,而B型节能冰箱每台售价虽比A型冰箱高出10%,但每日耗电量却为0.55度.现将A型冰箱打折出售(打一折后的售价为原价的1/10),问商场
- 巨人的花园作者是谁
- 当1mol电子转移时,可生成氯气在标准状况下的体积是__L,被氧化的物质是__mol
- 改拟人句 喇叭花开了 雨刚停,太阳就出来了
- 设直线ax+bx+c=0的倾斜角为α且sinα+cosα=0,则a,b满足
- 在一粗糙水平面上有两个质量分别为m1和m2的木块1和2,中间用一原长为L、劲度系数为k的轻弹簧连接起来,木块与地面之间的滑动摩擦因数为u,先用一水平力向右拉木块2,当两木块匀速运动时,两木块之间的距离
- 在解方程组{1.ax+5y=15 2.4x-by=-2时,由于粗心,甲看错了方程组中的a,而得解为{1.x=-3 2.y=-1 乙看错了方程组中的b,而得解为{1.x=5 2.y=4
- When i stand in the middle of the water,what can i be?
- The most selective schools are more likely to choose blacks who have at least one immigrant parent