#qbasic# DEFINT i-j : DEFINT n: DEFDBL a-h : DEFDBL k-m: DEFDBL o-z OPTION BASE 0 '数组下标从0开始 index=2001 DIM t(index), z(index), hfg(index ),v(index),p(index ),rho(index) DIM muu(index), mach(index), mdot(index), q(index), tsat(index) DIM bigx(index), delmdot(index), delq(index) g=9.81 : rbar=8314 pi=3.14159: qsum=0: mtot=0 epps1 =.0001#: epps2 =.0000001#: epps3=.0003 : ncount=0: n=2000 i=0: iflag=0:epps = .000001#: limmach=10000! nprint =10 slip=.014: molec=1! delz=.001 di=.62*.0254 字数限制，其余代码见主页

上图： 呵呵，我将FC的整型游戏FBASIC（也就是小霸王叫的G－BASIC）改成了浮点游戏FP-BASIC,可以同时进行浮点函数运算和游戏编程，详见我的BLOG文章： http://hi.baidu.com/maxzhou88/blog/item/3f2a29dec5700153cdbf1a46

C C++ C# JAVA 汇编 这些语言的语法都没有BASIC来的简单,来的快. 创造者是需要急速表达自己的思想,所以basic和她的变种产品更容易让人掌握. 更

2 print " 1 求1+2+3+4+5+6+7+8+9+…+100 Basic程序 ":s=0:for l=0 to 100:s= l+s:next l:print " ":print " 1+2+3+4+5+6+7+8+9+…+100=";s:print " 2024-7-13 于昆明黑龙潭旁 ":print " 2 求1+2+3+4+5+6+7+8+9+10 Basic程序 ":s=0:for l=0 to 10:s= l+s:next l:print " ":print " 1+2+3+4+5+6+7+8+9+10=";s:end

想当年，B A S I C 语言几乎占据了P C的天下。那时微软和苹果的电脑都***B A S I C。但是B A S I C 语言在W i n d o w s流行之后就衰落了。只有V B和V B . N E T仍然在流行。其实我不觉得V B和V B . N E T有什么特别出众的地方。我觉得其他的B A S I C 语言性能会更好，例如F r e e B A S I C、P o w e r B A S I C、 P u r e B a s i c，但是编辑代码相对没那么方便。不过F r e e B A S I C、P o w e r B A S I C使用F i r e f l y也可以可视化编程啊。但是为什么它们不流行呢？

急急急！！！

有个bisic计算软件，没有源代码，现在想在win10下运行

machfunc: IF mg > Iimmach THEN GOTO endloop2 IF (2!-bdum*mg^2)/( 2!-bdum*Mfix^2) < 0 THEN STOP xdum = mg*(1!+adum*mg^2 )^(-1!*cdum)*( (2!-bdum*mg^2)/(2!-bdum*Mfix^2))^ddum xdum =xdum-edum IF jj=0 GOTO it3cont1 IF jj=1 GOTO it3cont2 IF jj>1 AND jjj=0 GOTO it1cont1 IF jj>1 AND jjj= 1 GOTO it1cont2 endloop2: PRINT" Solution becoming asymptotic i" PRINT" Upstream Mach No.(M1 ) and downstream search interval [a.b] for M2" PRINT USING"########.# ";Mfix,m1 ,m2 PRINT"Continue ? M2 and all subsequent math numbers will be set " INPUT"at INPUT valu

SATPRESS: p0=7.8617-2644.1*(1/tsat(i))- 173690#*(1/tsat(i))^2 p0=132.89*10^p0 ' [N/m^2] RETURN LATHEAT: tr=tsat(i)/tc hfg(i)=(10481*(1-tr)^.354+12805*(1-tr)^.456)*4184/MW RETURN VISCOS: aa=1.16145: bb=.14874: cc=.52487: dd=.7732: ee=2.16178: ff=2.43787 tfict=.001451*tsat(i) muu(i)=aa/tfict^bb+cc/EXP(dd*tfict)+ee/EXP(ff*tfict) muu(i)=.00000051873#*SQR(tsat(i)/muu(i)) RETURN

ncount2=1 jj=0 mg=M1 GOTO machfunc it3cont1: ncount2=ncount2+1 jj=1 xsav=xdum M2=M1+(M1-lmach) mg=M2: GOTO machfunc it3cont2: IF (xsav * xdum)<0! THEN GOTO bisect M1 =M2 : GOTO it3cont1 bisect: jj=jj+1 mlo = M1 : mhi =M2 itloop1: mg = (mhi+mlo)*.5 jjj=0 GOTO machfunc it1cont1: jj=jj+1 IF ABS(xdum) < epps GOTO endloop3 jjj=1 msave = mg xsav = xdum mg = mlo: GOTO machfunc it1cont2: IF xsav*xdum < 0! THEN mhi = msave ELSE mlo= msave IF jj>50 THEN PRINT" max. iteration stop criteria, jj = "; jj IF jj>50 THEN PRINT"M2, msave :"; mg, msave IF jj>50 THEN PRINT&qu

poode: p0=7.8617#-2644.1#*(1/ts)-173690#*(1/ts)^2 p0=132.89#*10^p0 ' [N/m^2] p0prime=LOG(10#)*(2644.1#/ts^2+2#*173690#/ts^3)*p0 GOTO tcont2 tcont1: ts=tsnew END SUB SUB sonic(temp,latheat,qsonic) STATIC SHARED rho0,k,rg,pi,di qovera=rho0*SQR(k*rg*temp)*latheat/SQR(2*(k+1)) ac=pi*di^2/4 qsonic=ac*qovera END SUB SUB mach2(j,dm,M1 ,M2) STATIC SHARED k,pi,mdot(),muu(),adum,wdum,delz,dout,epps,lmach,limmach,f dm=dm/delz : Mfix=M1 Rey=4! *mdot(j)/muu(j)/pi/dout PRINT "Re No.",Rey IF Rey<10^5 THEN 302 301 : f=.0791/Rey^(1/4) :GOTO 303 302 : f=SQR((3.6*LOG(Rey/7))^-1) 303 : fstar=f*Rey bd

table: pinc=nprint+pinc PRINT USING" #.###";z(i); PRINT USING" ###.##"; tsat(i); : PRINT USING" #.####^^^"; hfg(i), q(i); PRINT USING" ###.###";qsum; PRINT USING" #.#####"; bigx(i),mach(i) looper: NEXT i END SUB sattemp(p,t0,ts) STATIC SHARED epps2 ts=t0 :ncount=0 GOTO tloop tcont3: PRINT"max. iteration count criteria (100), exceeded" PRINT" continue with relaxed convergance criteria?" INPUT" enter new value(negative #=stop)";epps2 IF epps2 <=0! THEN STOP ncount = 0 tloop: ncount= ncount+1 GOTO poode tcont2: tsn

FOR i = 1 TO nn STEP nprint WRITE #1, CSNG(z(i)) WRITE #2, CSNG(mdot(i)/mdot(1)) WRITE #3, CSNG(tsat(i)/tsat(1)) WRITE #4, CSNG(p(i)/p(1)) WRITE #5, CSNG(rho(i)/rho(1)) WRITE #6,CSNG(mach(i)/math(1)) WRITE #7, CSNG(bigx(i)) WRITE #10, CSNG(tsat(i)) WRITE #11, CSNG(t(i)) NEXT i WRITE #8,w1$:WRITE #8,w2$:WRITE #8,w3$:WRITE #8,w4$:WRITE #8,W5$ WRITE #8,w7$:WRITE #8, w8$:WRITE #8,fluid$ WRITE #9, tsink:WRITE #9,dout/.0254:WRITE #9,di/.0254:WRITE #9,hbar WRITE #9,t(0): WRITE #9,q(1):WRITE #9,qsum CLOSE #1 :CLOSE #2: CLOSE#3: CLOSE #4: CLOSE#5:CLOSE#6: CLOSE #7 CLOSE #8: CLOSE #9:CLOSE #10:CLOSE #11

rho1=(rg*tsat(i )/g) ^-1 : pmean=(p(i+1)+p(i))/2 bigx(i)=2*muu(i) /(pmean*di*SQR( rho1* g)) mtot=ABS(mtot+ delmdot(i)) qsum=qsum-delq(i) IF ABS(mtot-mdot(1)) <= (mdot(1)*.0001#) OR mtot > mdot(1) THEN PRINT" All mass removed. " :GOTO endroutine IF tsat(i)<=tsink THEN PRINT" T at or below sink temperature ",tsat(i):GOTO endroutine IF biqx(i)<slip THEN GOTO nextelem IF blgx(i) >= slip AND bigx(i) < molec THEN GOTO 100 IF bigx(i) >= molec AND iflag <2 THEN PRINT"MOLECULAR FLOW ",biqx(i): iflag=2! GOTO nextelem 100 : IF iflag< 1 THEN PRINT&q

#qbasic# PRINT " q(1), mdot(1) , P(1)"; PRINT USING" ##.#####^^^^"; q(1),mdot(1),p(1) FOR i=1 TO n IF (tsat(i-1)-tsat(i))/tsat(i) < epps3 THEN delz=2!*delz IF i=1 THEN z(i)=0 z(i) =z(i-1)+delz asurf=pi*dout*delz delq(i)=-1*hbar*(tsat(i)-tsink)*asurf GOSUB viscos hfg(i)=hfg (1) q(i+1)=q(i)+delq(i) delmdot(i) = -1!*delq(i)/hfg(i) mdot(i+1) = mdot(i) - delmdot(i) IF mdot(i+1) < 0! THEN GOTO endroutine lmach=mach(i-1) wdum = mdot(i+1)/mdot(i) IF mach(i)>limmach THEN mach(i+1)=mach(i): GOTO downstre CALL mach2((i), (delmdot(i)),(mach(i)),mach(i+1)) downstre: p(i+1) = p(

#qbasic# executor: INPUT" ",ss$ OPEN "zdat" FOR OUTPUT AS #1 OPEN "mdotdat" FOR OUTPUT AS #2 OPEN "tdat" FOR OUTPUT AS #3 OPEN "pdat" FOR OUTPUT AS #4 OPEN "rhodat" FOR OUTPUT AS #5 OPEN "machdat" FOR OUTPUT AS #6 OPEN "bigxdat" FOR OUTPUT AS #7 OPEN "titlesdat" FOR OUTPUT AS #8 OPEN "miscdat" FOR OUTPUT AS #9 OPEN "t.profile" FOR OUTPUT AS #10 OPEN "tmach" FOR OUTPUT AS #11 solution: i=0 : jcount=0 INPUT" Enter stagnation temperature, [K]",t(0) tsat(0) = t(0) GOSUB

#qbasic##qbasic# di=.62*.0254:dout=.87*.0254 tsink=27+273.13 emiss=.45 hbar=2.9*.018/(.06 *.0254) w1$="Tsink [K]" : w2$="Outside Diam, [in]":#qbasic# w3$="lnside Dlam. [in]" w4$="[p]网页链接 trns. coeff, [W/m^2/K]" : w5$="Stag. Temp. [K]" w7$="Qsonic [W]": w8$="Qtot" fluid$="octadecane" tc=745 : tb=590 : tfus=301 k=1.1114 : mw=254.502 rg=rbar/mw adum =.5*( k-1!) FOR ii=1 TO 4 LOCATE 5,2 PRINT "Be sure the fluid properties are correct for the working fluid, "; PRINT fluid$ :CLS NEXT ii LOCATE 10,2 PRIN

本贴主要讲用QBASIC制作一款游戏，不定期随缘更新。 游戏用QBASIC 制作，至于其它语言不在讨论范围之内。 电脑环境，win7，32位版，工具：QB64。 感觉用QBASIC 制作的游戏几乎很少，更不用说有什么像样的作品了，这方面相比国外差很多，因此我决定开始制作一款游戏，本人编程水平不算太高，纯粹玩玩，游戏现在都是用业余时间制作

运行时从键盘上输入3 5，程序的输出为？

12 print:print "苹果手机拼音简体：输入：cf，显示：云码Basic乘法口诀":Print:For i = 1 To 9:print " ";:For j = 1 To i:p = i * j:Print " ";i; "x"; j; "="; p;:Next j:Print:Next i:print:print " 2022-8-28 于昆明 Iphone":print " 使用云码输入法Basic程序完成"

如题。

批处理bat解决： 1，问题描述：想要提取文件夹内所有的文件名+修改时间（要含分秒），成exce的xlsx格式 2，生成xlsx表格格式要求：A列显示修改日期(年-月-日-时-分-秒)，B列是完整路径，C列是文件名

1.我只会BASIC编程，想设置数组A（46000，18），超出限制，请教各位专家，能否设置，如何设置？ 2.如果BASIC不可以，那哪种编程语言可以（简单易学的）？ 3.请介绍简单好用的BASIC编译软件，即把BASIC应用程序编译，以提高运算速度。

听说早期的BASIC大量GOTO搞得程序非常难读，而且还有行号。后来的BASIC取消了这些。 只知道BASIC一直以来都以好学著称的。但是用它写出来的程序可读性如何呢？

FreeBASIC这类可能行。如有其他欢迎提出。

有个网站可以模拟IBM XT带的basic，就是不能存储文件。怀念的可以去试试。

1 print:print"用1+1数学模型进行编程":print "输入：a":print:print" a=1":print "+ b=1":a=1:b=1:print "-----":print " 2":print " a=1":print " b=1":print " a+b=";a+b

一个用QBASIC语言编写的聊天工具 具有简单的聊天功能.目前只进行了本地测试 根据QB64论坛的一个程序改编,增加了主菜单、中文显示及输入功能. 默认本地IP,输入文字后按回车直接发送,支持Ctrl+V键粘贴 链接：https://pan.baidu.com/s/1n2A2gM6xTnsFl0i0AQOS_Q 提取码：hobr

根据高中数学必修3，输入语句是INPUT "提示内容“； 变量 但实际操作时会出现到底应该输入什么格式的语句 求解答

分享给大家

偶然在某宝发现的

Xojo是RealBasic和PowerBasic倒闭后,可能是收购了这两家,出的新一代的, 系列软件的最大特色就是一套代码可以编译成window pe程序,Linux程序和mac程序. Xojo比前面的进步的是下下来就能打开使用,而前面倒闭的试用都要申请试用码(呵呵,活久见).

老子觉得很奇怪，因为按理说这个时点ibm pc已经出了，但是这个版本的basic比ibm的rom basic还要寒酸得多，不知道是给什么电脑用的（当时组装兼容机还没流行，全是品牌机），但在dos下可以运行。 这个版本的basic跟rom basic的区别： 1、rom basic和gwbasic可以全屏移动光标，但是这个版本的basic跟苹果机一样，只能在一行内左右移动光标，没法上下移动 2、支持的语句也少很多，例如rom basic有图形功能，而这个版本没有。 此外，这个basic在dosbox下不能直接运

懂得欢迎二楼交流

小时侯有段时间特别沉迷于RPG类的游戏,梦想着打造出属于自己的RPG游戏,但由于种种原因无法实现. 虽然也用过一些游戏制作软件,但总觉得别扭,由于现代电脑编程的复杂程度,对于一个不懂得现代电脑编程的老菜鸟,想要自己打造游戏引擎应该是很难的, 但我还是用中小学时自学的一点BASIC语言知识(不是VB)来实现了一个RPG游戏引擎,这个程序除汉字显示外其它代码均由我亲自编写,目前只实现了一部分功能,相关开发软件也是本人亲自编写. 链接：https://pan.bai

vb（行将就木），qb64，freebasic，powerbasic哪个轮子多、运行快？

我是高中生 要好用易编写

编译原理我很容易理解，我想求教求教basic解释型语言解释器的原理。

最近玩了下QBASIC，并下载之发现QB.EXE在WIN7下运行不了，自已做了个曲线使用方法 .

上古时代的三大语言：algol、fortran、cobol 中世纪的三大语言：c、pascal、basic 现在的三大语言：c++、java、python

送给贴友们一篇文章 由于电脑和软件的发展速度太快了，现在使用BASIC的人少了，但是确实在有贴友在问，在学，在用。在上个世纪，好多人都在如饥似渴的学习计算机程序设计，我在编写两个应用软件以后，把自己编程的方法和体会写出一个文章，算是个个人总结吧，翻腾旧电脑硬盘，偶然看到了。看了看，勾起很多联想，发给贴友们看看，说不定对各位有点用呢，哪位需要，可以发文档。文章有点长，贴吧里经常有秒删，我做成了截图，请贴友们

C语言里面，1和true互通，可以直接while（1）这样来实现无限循环效果 python中不互通，只能老老实实的用逻辑值True 但是在B语言里面呢？ 试了while 1，while （1），while true，while True都不行。 最后智能像傻帽一样，用while 1<2才完成了功能。 有没有大神指导basic里面，逻辑真的值是什么啊。

楼主高中刚毕业，大学想学点这一类的东西，因为各种语言里basic最简单就先学这个，不过以后还想学点别的，C啊，Java啊，python啊之类的。那时VB的知识会有帮助吗？