求QBASIC 高一几个算法语句

情似游丝2022-10-04 11:39:541条回答

求QBASIC 高一几个算法语句
1、输入一个三位数 求各位数之和
2、输入三数,除去最大值取剩下两数的平均
3、输出100的所有正约数,并计算满足条件的个数

已提交,审核后显示!提交回复

共1条回复
zhangshubin1130 共回答了16个问题 | 采纳率93.8%
1、输入一个三位数 求各位数之和
CLS
DO
PRINT "please input a number(100
1年前

相关推荐

一道QBASIC的题下面程序用于统计从键盘输入字符串中,英文字母“a”的个数.请将程序补充完整.clss=0input
一道QBASIC的题
下面程序用于统计从键盘输入字符串中,英文字母“a”的个数.请将程序补充完整.
cls
s=0
input st$
for x=1 to ______
if ______ ="a" then s=_______
next x
print "s=";s
end
我就知道第三个是 s=s+1
boboqian1年前1
慎诚 共回答了18个问题 | 采纳率94.4%
这道题的纲要,知道LEN函数为统计字符串长度的.
(1)LEN(ST$)
要知道MID$函数是干什么的,一个一个的取,取出来判断就可以了.
(2)MID$(ST$,X,1)
正如楼主所说的,第三个填的是(s=s+1)
这个程序很简单啊,如果有QBASIC问题可以百度HI我!
QBasic无暇素数无暇素数是一个两位数,各位、十位对调后还是素数.求所有的无暇素数
iceses1年前1
GRACES119 共回答了21个问题 | 采纳率90.5%
CLS
FOR i = 10 TO 99
k = 0:t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1:EXIT DO
NEXT j
LOOP UNTIL k = i
k=0
p1 = FIX(i / 10)*10+i10
do
k=k+1
for j = 2 to p12
if k*j=p1 then t=t+1:exit do
next j
loop until k=p1
IF t = 0 THEN PRINT i,:y = y + 1
NEXT i
PRINT
PRINT "all"; y
END
IF THEN 在QBASIC里有什么用啊,不用他行不行啊?
IF THEN 在QBASIC里有什么用啊,不用他行不行啊?
易懂一点
suyuanguan1年前2
悠悠烟水 共回答了13个问题 | 采纳率69.2%
if then 为条件语句,就是指“如果……就……”,在qbasic中:
条语句:IF THEN
块语句:
IF THEN

end if
一般与else同用:
条语句:IF THEN ELSE
块语句:
IF THEN

ELSE

END IF
用qbasic判断一个数是不是绝对素数素数
陌上清1年前2
激战黄金圣斗士 共回答了18个问题 | 采纳率88.9%
CLS
RANDOMIZE TIMER
A=INT(RND*2+1)
IF A=2 THEN "YES" ELSE "NO"
求QBasic表达式1.数X四舍五入保留2位小数的表达式为2.写出X是否为偶数的表达式3.条件1〈X《2或10《X〈15
求QBasic表达式
1.数X四舍五入保留2位小数的表达式为
2.写出X是否为偶数的表达式
3.条件1〈X《2或10《X〈15在BASIC中应成条件表达式
玲珑无心1年前1
J清N茶J 共回答了18个问题 | 采纳率88.9%
1) SGN(X)*INT(ABS(X)*100+0.5)/100
2) X MOD 2=0 或 INT(X/2)=INT(X/2) 或 X/2=X2
3) (X>1 AND X=10 AND X
(1)、有如下QBASIC 程序段:该程序段运行后,变量a的值是( ).(2分) a = 20 If a
以_一1年前1
情丝语 共回答了16个问题 | 采纳率93.8%
a = 20
If a
用qbasic求20到50之间的质数
nanjing61年前3
muto 共回答了21个问题 | 采纳率100%
CLS
FOR I=20 TO 50
JS=0
FOR J=1 TO I
IF I MOD J=0 THEN
JS=JS+1
END IF
NEXT J
IF JS=2 THEN PRINT I
NEXT I
END
QBASIC语法词汇QBASIC中RANDOMIZE TIMER和TAB分别有什么意义?比如:CLSFOR I = 1T
QBASIC语法词汇
QBASIC中RANDOMIZE TIMER和TAB分别有什么意义?
比如:
CLS
FOR I = 1TO 10
PRINT TAB(16-I);" * "
屏幕上就会出现一条由 * 组成的斜线
等你19个月1年前2
chemhehe 共回答了20个问题 | 采纳率100%
RANDOMIZE格式:RANDOMIZE
作用:初始化机器内部的随机数发生器(RND).
TAB格式:TAB(n%)
作用:将当前字符光标当前的第n%列位置,该函数也仅可用在PRINT和LPRINT语句中.
Qbasic语言中,能产生1~100之间(含0和100)的随机整数的表达式为( ).
Qbasic语言中,能产生1~100之间(含0和100)的随机整数的表达式为( ).
A、INT(RND*100) B、INT(RND*100)+1
C、INT(RND(100)) D、INT(RND(100))+1
但不懂,万分感激!
luowuhui1年前1
敢败吓疯 共回答了19个问题 | 采纳率89.5%
RND默认产生0至1之间的随机数,既0
qbasic中取正负两数之间的随机数公式
米米要做结婚狂1年前1
wxx872510 共回答了17个问题 | 采纳率82.4%
设正数为a,负数为b.
randomize timer
用时int(rnd*(a-b+1))+a
怎样用qbasic解一个未知数的方程.最好有过程,有讲解
kaifengren1年前1
Mike__zheng 共回答了22个问题 | 采纳率95.5%
对于这种问题,有点无语,比较难!
给你一个解带括号的算式值的程序吧!
CLS
INPUT A$
L = LEN(A$)
DIM A$(L),B(L)
PRINT A$; =;
DO
Q = INSTR(A$,))
IF Q
设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解
设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解
设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END
孙琎1年前4
llb88 共回答了11个问题 | 采纳率100%
你说的是 水仙花数 吗
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END
QBASIC程序完善程序,请将正确的内容填在该题相应的下划线上。程序的功能为计算 Y=30+31+32+……320。 T
QBASIC程序
完善程序,请将正确的内容填在该题相应的下划线上。程序的功能
为计算 Y=30+31+32+……320。
T=0
FOR N=( )
P=3^N
T=( )
NEXT N
PRINT T
END
bfbo1年前1
cookle5 共回答了24个问题 | 采纳率83.3%
T=0
FOR N=(30 TO 320 )
P=3^N
T=( T+N )
NEXT N
PRINT T
END
一道QBASIC题for i = 1 to 10a =int(90*rnd)+10b =int(90*rnd)+10pr
一道QBASIC题
for i = 1 to 10
a =int(90*rnd)+10
b =int(90*rnd)+10
print a ; "+" ; b; "=";
if c=a+b then score =score +10
next i
print "your score is"; score
end
随机数是怎么循环的,
秋水随想1年前2
diomede 共回答了17个问题 | 采纳率100%
for i = 1 to 10
next i
这是强行循环的.
题中的c根本没有赋值,无法进行if c=a+b then 的判断.
随机数90*rnd 是0~90出随机数,a与b均是10~100的范围.
但是由于c的错误,变量score不能赋值,所以最终输出:
your score is 0
就这样了.
如何用QBASIC计算代数式?当a=3 b=4时用QB计算a+3b等于多少?
一起去海边HAPPY1年前2
danshenya018 共回答了14个问题 | 采纳率85.7%
a=3
b=4
c=a+3*b
print c
end
QBasic初学题目解答计算两个数的差,判断这个差是正数,还是零,还是负数.clsinput "a,b";a,bc=a-
QBasic初学题目解答
计算两个数的差,判断这个差是正数,还是零,还是负数.
cls
input "a,b";a,b
c=a-b
if c
eileen12341年前7
走投无路 共回答了27个问题 | 采纳率96.3%
c=a-b
先不用管a、b,你写的if c0 then
print "+,zheng shu"
else
if c=0 then print"0,a=b" else print"-,a
QBASIC 运算!完善下列程序,使其判断从键盘输入的一个正整数的奇偶性.INUPT XIF X/2____INT(X/
QBASIC 运算!
完善下列程序,使其判断从键盘输入的一个正整数的奇偶性.
INUPT X
IF X/2____INT(X/2) THEN
PRINT "这是个偶数"
ELSE
PRINT "这是个奇数"
END IF
END
------------------------------------------------------------
完善下列程序,使其能求出1+5+9+……+21之和.
LET Y=0
FOR I=1 TO 21 STEP ______
LET Y=Y+I
NEXT I
PRINT Y
END
------------------------------------------
写出下列程序运行结果.
LET A= 2
LET B= 9
LET C=A+SQR(B)
PRINT C
END
运行结果:_______
---------------------------------------------
写出下列程序运行结果.
LET X=20
LET Y=5
LET Z=X/Y-1
PRINT Z
END
运行结果:_______
游子A11年前1
alldied 共回答了25个问题 | 采纳率96%
INUPT X
IF X/2__=__INT(X/2) THEN
PRINT "这是个偶数"
ELSE
PRINT "这是个奇数"
END IF
END
------------------------------------------------------------
完善下列程序,使其能求出1+5+9+……+21之和.
LET Y=0
FOR I=1 TO 21 STEP __4____
LET Y=Y+I
NEXT I
PRINT Y
END
------------------------------------------
写出下列程序运行结果.
LET A= 2
LET B= 9
LET C=A+SQR(B)//sql是求平方根的函数,这里是计算根号下9是多少
PRINT C
END
运行结果:___5____
---------------------------------------------
写出下列程序运行结果.
LET X=20
LET Y=5
LET Z=X/Y-1
PRINT Z
END
运行结果:___3____
关于round函数大家看下这QBASIC程序x = -13.2y = 0.32z = nit ( x )e = abs
关于round函数
大家看下这QBASIC程序
x = -13.2
y = 0.32
z = nit ( x )
e = abs ( z + round(y * 5 ) )
print z
print e
end
我想问下那个"round"这个函数是表示的是什么意思?
能详细的给我说说下吗?
不再存在的东山区1年前1
一虫虫 共回答了11个问题 | 采纳率100%
ound函数可能是自定义的四舍五入函数,以实现四舍五入的功能.例如:ROUND(4.5)=5,ROUND(4.4)=4.在QBASIC中,可以用INT函数来直接实现四舍五入,INT函数的格式是INT(X),它可以实现取整的功能,例如INT(4.4)=4,INT(4.8)=4.在将它稍稍变化后,可实现四舍五入,格式为:INT(X+0.5),例如:将4.4四舍五入,INT(4.4+0.5)=4,将4.8四舍五入,INT(4.8+0.5)=5.
Qbasic的一道题先输出n除以7的余数,应该是n MOD 7吧,然后下一步要判断余数是否为0,怎么写?
xppww1年前1
jeuhala 共回答了14个问题 | 采纳率85.7%
input n
s=n mod 7
if s=0 then print "neng zheng chu!"
end
求一道QBASIC题答案键盘输入任意一个三位整数X,分离出个位G,十位S和百位B,输出X的各位数字之和.如:输入123,
求一道QBASIC题答案
键盘输入任意一个三位整数X,分离出个位G,十位S和百位B,输出X的各位数字之和.如:输入123,输出1+2+3=6
————————
G=_______
S=_______
B=_______
S=_______
PRINT ____________________;S
END
问题如上,求哪位大哥帮帮忙!
维修卡1年前1
ilyhk20 共回答了6个问题 | 采纳率83.3%
G=X-X100*100-(X10-X100*10)
S=X10-X100*10
B=X100
S=S+G+B
PRINT G;"+";S-G-B;"+";B;"=";S
END
或者
G=X-INT(X/100)*100-(INT(X/10)-INT(X/100)*10)
S=INT(X/10)-INT(X/100)*10
B=INT(X/100)
S=S+G+B
PRINT G;"+";S-G-B;"+";B;"=";S
END
话说题里给的变量名和语句顺序太2了吧...本来这种问题不需要这么费劲的表达的.出题的人脑子有问题,估计又是应试教育下的畸形.
一道QBASIC题,会的指导下
我怎样才能找到你1年前1
大后天会更好 共回答了16个问题 | 采纳率75%
运算结果:90
逐行解释:
设置s为0,i为1
当i小于等于100时执行以下循环
如果i除以10的余数不等于0,那么
设置s的值为s当前值+1,设置i的值为i当前值+1
否则
设置i的值为i当前值+1
结束判断
循环
输出s的值
QBASIC试题~写出下列程序运行结果.LET A=1LET B=5LET T=ALET A=BLET B=TPRINT
QBASIC试题~
写出下列程序运行结果.
LET A=1
LET B=5
LET T=A
LET A=B
LET B=T
PRINT B
END
运行结果:(_1_)
buding12261年前1
神之幻游 共回答了13个问题 | 采纳率100%
A=1
B=5
LET T=A 那么 A=1 B=5 T=A=1
LET A=B 那么 A=B=5 B=5 T=1
LET B=T 那么 A=5 B=T=1 T=1
输出B
那么 运行结果:1
很简单的,虽然我学的是pasic

大家在问