UC知道会BASIC的请进
来源：百度知道 编辑：UC知道 时间：2024/05/14 18:49:54
l0 READ DO，B，Dl，D2，E
20 DATA 65，33，5S，60 ,1．5
3O LET A1 nl+ 2*E
4O LET A2= D2+ 2*E
50 FOR Q=15 TO 50
6O LET P 314159*Q／180
7O LET X = A1- A2／2／TAN(P)
80 LET Ya Al十A2／2- Al／2
90 FOR X=l0 TO B一5
lOO LET X1=X
l10 LET U Xl*SIN(P)，B
120 LET V；ATN(U／SI fl— U U)】
130 LET W=P-V
l40 LET T=TAN(W )
l5O LET S=T*T十l
l60 LET D=(X3*T- Y3一X1*T)／SQR(S)
170 LET D=ABS(D)
180 LET D= INT(D*100+0.5)／100
l9O IF D>DO THEN GOTO 230
200 PR／NT Q，X1，D
210 NEXT X
220 NEXT Q
230 PR／NT "Q(MAX)<":Q
240 PRINT "Xl=": xl
250 PRINT "D1=D":D
260 END
谁能帮我读一下程序，尤其是pr/nt是什么函数？我要把它编译在vc里运行，不过编译到pr/nt不知道是什么函数，请高手帮忙读一下程序，最好能帮我编译成c语言，小弟在这里先谢谢了
我知道过不去，我是用c重新编译成c语言，再运行，
不是print而是pr/nt,不知道是什么函数，我差了好多东西都查不出来
请问pr语句是什么语句？qbasci有pr语句吗
我把for q=15 to 50
在c里编译成for(q=15,q<=50,q++)
两者的意思是不是一样的，都是循环语句
谢谢大家帮助，我明天试试，我是把basci读出来然后再在c里重新编译
20 DATA 65，33，5S，60 ,1．5
3O LET A1 nl+ 2*E
4O LET A2= D2+ 2*E
50 FOR Q=15 TO 50
6O LET P 314159*Q／180
7O LET X = A1- A2／2／TAN(P)
80 LET Ya Al十A2／2- Al／2
90 FOR X=l0 TO B一5
lOO LET X1=X
l10 LET U Xl*SIN(P)，B
120 LET V；ATN(U／SI fl— U U)】
130 LET W=P-V
l40 LET T=TAN(W )
l5O LET S=T*T十l
l60 LET D=(X3*T- Y3一X1*T)／SQR(S)
170 LET D=ABS(D)
180 LET D= INT(D*100+0.5)／100
l9O IF D>DO THEN GOTO 230
200 PR／NT Q，X1，D
210 NEXT X
220 NEXT Q
230 PR／NT "Q(MAX)<":Q
240 PRINT "Xl=": xl
250 PRINT "D1=D":D
260 END
谁能帮我读一下程序，尤其是pr/nt是什么函数？我要把它编译在vc里运行，不过编译到pr/nt不知道是什么函数，请高手帮忙读一下程序，最好能帮我编译成c语言，小弟在这里先谢谢了
我知道过不去，我是用c重新编译成c语言，再运行，
不是print而是pr/nt,不知道是什么函数，我差了好多东西都查不出来
请问pr语句是什么语句？qbasci有pr语句吗
我把for q=15 to 50
在c里编译成for(q=15,q<=50,q++)
两者的意思是不是一样的，都是循环语句
谢谢大家帮助，我明天试试，我是把basci读出来然后再在c里重新编译
就是输出语句在 C里用PRINT吧
就是PRINT
你仔细看程序PRINT Q，X1，D就是打印变量的值
PRINT "Q(MAX)<":Q就是打印一个字符串和一个变量
你应该是在书上看的，估计看着像是/吧
PRINT是显示输出，在VC里面过不去的，每一句都过不去
BASIC没有什么PR/NT的，一定是PRINT，印刷错误，把竖线搞歪了