请教2道QBASIC编程题,急!!!!
1.CLS
FOR x = 1 TO 1000
IF x MOD 2 = 0 THEN f2 = 1 ELSE f2 = 0
IF x MOD 3 = 0 THEN f3 = 1 ELSE f3 = 0
IF x MOD 5 = 0 THEN f5 = 1 ELSE f5 = 0
IF f3 + f2 + f5 = 3 THEN PRINT x;
NEXT x
END
2. CLS
DO
INPUT x
LOOP UNTIL x = INT(x) AND x > 1
f = 1
FOR i = 2 TO SQR(x)
IF x MOD i = 0 THEN
f = 0
EXIT FOR
END IF
NEXT i
IF f = 1 THEN
PRINT x; "是质数"
ELSE
PRINT x; "不是质数”
END IF
end
希望能对你有帮助。
因为A必不等于1
如果A=1,则该题无解
假设A=1,则D必等于9,C也必等于9,否则结果超出4位
打印1~1000内的所有偶数:
CLS
FOR I=2 TO 1000 STEP 2
PRINT I,
NEXT I
END
2:输入正整数N,请输出N的所有因子:
CLS
INPUT N
FOR I=1 TO N
IF INT(N/I)=N/I THEN
PRINT I,
END IF
NEXI I
END
那个学校还学这们没用的语言!放弃不学了
请各位编程高手帮我解决3道QBASIC题目,谢谢!!!
FOR I = 1 TO 100 IF I MOD 2 = 0 THEN N = N - 1 \/ ( 2 * I - 1 ) ELSE N = N + 1 \/ ( 2 * I )NEXT I N = N * 4 PRINT N END 很高兴帮助你!
想学一门计算机高阶语言,先学哪个比较合适?---对于初学者来说。_百度...
高阶语言一般具有以下特征:(1)以原始码的形式进行程式设计而不是直接式的控制\/指令程式码;(2)相对Basic和QBasic语言来说,需要计算机使用特定程式码进行指定之后才会首先对全部程式码进行翻译,否则将会对每一行的程式码进行翻译,然后执行,执行完毕后再翻译并执行下一句。 C++语言是建立在C语言基础上、比C语言还要高...
计算机基础语言(急求)
工业编程语言: A+ | Ada | 汇编语言| B | Brain *** | C | C++ | C++\/CLI| Cg | COBOL | Eiffel | Erlang | FORTRAN | IronPython | Java | JRuby | Jython | LISP | Oberon | Objective-C| Ocaml | Pascal | Perl | Powerbuilder | Python | QBASIC | R | REXX | Ruby | Self | Sm...
关于qBasic基础的问题,几道算式不懂意思?
即结果c 第二道题x(1)=1;x(2)=4;x(3)=9………x(10)=100 而循环中并没有为x(11)赋值,(循环结束后,k=11)所以x(11)=0
什么是 QBASIC ?它有别于 QuickBASIC 么?
QBASIC是BASIC(Beginner's All-purpose Symbolic Instruction Code,初学者通用指令代码)语言的一个变种,由美国微软公司开发,1991年随MS-DOS 5.0推出。它不能被编译成独立的可执行文件,源代码在集成开发环境(IDE)中先被编译成中间代码,然后中间代码在IDE中被解释执行。它被设计用来代替GW-BASIC,...
如何学好C语言?
4.直接与内存打交道,使修改、编辑其他程序与文档变得轻松,简单。 二.二大语系二种不同的学习方法 笔者学习过很多程序语言,例如:C,C++(C语言的扩展),QBASIC,VB(BASIC的可视化),JAVA,J ,VB,JAVA,ASP,FOXPRO,PERL等等,就本人实践所得,其实高级程序语言分为两大语系。一路是以C为主的程序语言,例如:JAVA,JAVA...
小白初学QBasic,求大神解决三道入门题。 谢谢,急需。
第一题:CLS FOR i=1 TO 15 a=i:b=15-a IF a<b THEN SWAP a,b IF a+b<>15 OR a-b<>3 THEN 1:ELSE PRINT a;b:END 1 NEXT i END 第二题:不知道这三个不相等的数是键盘输入还是怎的,如果是键盘输入,程序就是:CLS FOR i=1 TO 3 INPUT a(i)NEXT i ...
全国计算机一级考试考什么内容,型别,考什么软体? ms office是word?_百度...
2、二级考核应试者软、硬体基础知识和使用一种高阶计算机程式设计语言(QBASIC、FORTAN、C、PASCAL、FOXBASE)编制程式、上机除错的能力。二级主要为从事计算机或资料库管理软体使用的人员考核而设立的。它要求应试者具有计算机基础知识, 熟悉DOS的功能和使用,熟悉一种高阶计算机程式设计语言或资料库语言。合格者能从事计算机...
谁会编写程序啊?教教我
目前常用的基本程序语言的种类比较繁多,比较简单的有:Pascal、c语言、qBasic、 Fortran、Visual Basic等等。但前几种都是在DOS下进行编程的工具,Visual Basic是在 Windows下进行应用程序设计的编程工具,现在一般的计算机用户几乎都不再使用DOS了,因此我们通常会选择Visual Basic作为初学者的编程工具。Visual Basic是...
成为电脑高手要读哪些书?
├—全国计算机等级考试应试辅导 QBASIC语言(二级)难点、错点解析_0├—全国计算机等级考试教程 信息管理技术 (三级) (2004修订版)_0├—全国计算机等级考试考点分析、题解与模拟 (三级信息管理技术)_0├—全国计算机等级考试(三级信息管理技术)一册通_0├—公司信息战略与管理:教程与案例 (原书第6版)_0├—...
天鸣拉莫: 第一道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FO...
松原市18419873384: Qbasic编程题!急! - ?
天鸣拉莫: 第一道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING "#"; i - ABS(j); NEXT j PRINT NEXT i END 第二道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING "#"; 5 - i + 1; NEXT j PRINT NEXT i END 你应该是要编对称的吧?如果不是,就把加“y”的那一行删掉.
松原市18419873384: Qbasic编程题!很急!把每一步的说明写一下,谢谢了! - ?
天鸣拉莫: cls 清屏 m=0 累加器请0 for i=1 to 30 step 3 每3个跳跃为+m=m+i*(i+1)*(i+2) 公式 next i 循环 print m 打印 end 结束
松原市18419873384: 跪求Qbasic编程高人写出以下几简单题Qbasic编程过程!!~~万谢~ - ?
天鸣拉莫: 4.将键盘输入的10个数按从大到小的顺序排列并输出.clsdim a(10)print "please input num"for i = 1 to 10input a(i)next ifor j = 1 to 10max = a(j)for i = j to 10if a(i)>max then swap a(i),maxnext i next j clsfor i = 1 to 10print a(i),next i end5.输入一年份...
松原市18419873384: 会QBASIC的来,几道简单的题目 - ?
天鸣拉莫: 4.input chang,kuanbian=(chang+kuan)*2zhou=chang*kuanprint bian,zhouend教你一招?=print
松原市18419873384: 向大家请教1道qbasic编程题?
天鸣拉莫: CLS INPUT S$ L = LEN(S$): j = 1 DIM D$(L), E(L) FOR i = 1 TO L A$ = MID$(S$, i, 1) IF A$ = "+" OR A$ = "-" OR A$ = "*" OR A$ = "/" OR A$ = "^" THEN D$(j) = A$ E(j) = VAL(B$) j = j + 1 B$ = "" ELSEIF A$ >= "0" AND A$ <= ...
松原市18419873384: QBasic编程题:装球,设8个盒子,分别编1,2……同时13个小球进将13个小球装盒中去.?
天鸣拉莫: 方法如下: 1).算出最多要用多少箱子,如要放入13只球,就要分别放在4只盒子里. (如下程序算法) 2).假设这几只箱子里的球都是它的编号个数,如第只盒子里放1个球,第7只盒子里放7个球,算出总和,如要放5只盒子,就假设放: 1+2+...
松原市18419873384: 问道Qbasic程序题!高手进?
天鸣拉莫: FOR I=2 TO 100 FOR J=2 TO INT(SQR(I)) IF I MOD J=0 THEN //如果循环完了就是质数,如果非正常跳出循环就是合数 END IF NEXT PRINT I; NEXT 把FOR 循环换成DO WHILE就可以了
松原市18419873384: 求QBASIC的3道编程题答案(周四就要用)求高手帮我做一下下面三道编程题1.设有现金Po,存入银行年利率为R,则N年后本息为多少.公式为P=Po*(1+R)... - ?
天鸣拉莫:[答案] 1.INPUT "存入金额=";P0INPUT "年利率=";RINPUT "存款期限=";NP=P0*(1+R)^NPRINT "本息合计:";PEND2.INPUT "里程";SIF SnPRINT "n!=";SEND(2)用WHILE语句INPUT "n=";ni=1S=1WHILE i>nS=S*ii=i+1WENDPRINT ...
松原市18419873384: 按下列题目要求编写程序(用QBASIC语言的FOR循环) - ?
天鸣拉莫: 楼上众人碉堡了…… (1) CLS (清屏) FOR I=1 TO 99 STEP 2 (FOR循环,I每次加2) S=S+I (S累加I) NEXT I (FOR循环) PRINT S (输出S) END (结束) (2) CLS T=1 (把1赋值给T) FOR I=1 TO 20 T=T*I (T累乘I) NEXT I PRINT T END