易码技术论坛

 找回密码
 加入易码
搜索
12
返回列表 发新帖
楼主: zhjcjj

[建议]有个编程100例

[复制链接]
发表于 2006-3-26 10:37:00 | 显示全部楼层
10 K$=INKEY$

20 IF K$="q" THEN PLAY"C":10

30 IF K$="w" THEN PLAY"D":10

40 IF K$="e" THEN PLAY"E":10

50 IF K$="r" THEN PLAY"F":10

60 IF K$="t" THEN PLAY"G":10

70 IF K$="y" THEN PLAY"A":10

80 IF K$="u" THEN PLAY"B":10

90 IF K$<>CHR$(27) THEN 10



电子琴- -b
发表于 2006-6-17 13:30:00 | 显示全部楼层
对新手来说是好东东,UP


发表于 2006-7-2 23:46:00 | 显示全部楼层
现在初中的信息技术竞赛还有basic的,去买本习题集不就n百例都有了(不过好像都是讲算法的哈)
发表于 2006-8-11 19:55:10 | 显示全部楼层
引用第23楼ulong0012006-07-02 23:46发表的“”:
现在初中的信息技术竞赛还有basic的,去买本习题集不就n百例都有了(不过好像都是讲算法的哈)

楼上的是哪里啊...[s:8]
山东noip没有basic...害我学了一暑假pascal  [s:8]
发表于 2006-8-25 20:28:59 | 显示全部楼层
我也来一个:10进制转换成16进制
0 :
1 GOSUB 200  
10 INPUT "输入一个数";NUM
20 LN=1
30 IF NUM<16^LN THEN 50
40 LN=LN+1:GOTO 30
50 TMPA=NUM:OUT$=""
60 FOR I=LN-1 TO 1 STEP -1
70 TMPB=INT(TMPA/16^I)
80 IF TMPB<=9 THEN OUT$=OUT$+STR$(TMPB):100
90 OUT$=OUT$+CHR$(TMPB+55)
100 TMPA=TMPA-TMPB*16^I
110 NEXT I
111 IF LN=1 THEN 120
112 IF TMPA<9 THEN OUT$=OUT$+STR$(TMPA):120
113 OUT$=OUT$+CHR$(TMPA+55)
120 PRINT OUT$,"WAITING"
130 FOR I=1 TO 1000
140 NUM=PEEK(199)
150 IF NUM>128 THEN 10
160 NEXT I
170 PRINT "END":END  
200 CLSOCATE 3,4
210 PRINT "10进制转换16进制":OUT$ =INKEY$
220 RETURN
发表于 2006-8-26 19:16:44 | 显示全部楼层
虽然发出来了,但是怕那张贴会沉。。。
在指定范围内随机抽取不重复的数字:

10 DIM A(100)
15 FOR I=1 TO 100:A(I)=I:NEXT I
20 FOR I=100 TO 1 STEP -1
30 RAND=INT(RND(.1)*I)+1
40 SWAP A(I),A(RAND)
50 NEXT I

这个是制造100个随机不重复数列。。。
发表于 2006-11-5 13:13:37 | 显示全部楼层
啊,我加个十转二的

10 CLS
20 PEINT"二进制转换器:":CLEAR
30 INPUT N: IF N>999999999 OR N<=0 THEN 10
40 A=INT(N):B=N-INT(N)
50 S=A/2
60 IF S=INT(S) THEN A$=A$+"0" ELSE A$=A$+"1"
70 A=INT(S): IF A>=1 THEN 50
80 FOR Q=1 TO LEN(A$): AA$=AA$+MID$(A$,LEN(A$)-Q+1,1):NEXT
90 IF B=0 THEN 200
100 W=1
110 R=1/2^W=0:IF B=0 THEN 200
120 IF B<R THEN B$=B$+STR$(P):W=W+1:GOTO 110
130 B=B-R=P+1
140 GOTO 120
200 PRINT AA$+"."+B$;
发表于 2007-3-12 12:33:23 | 显示全部楼层
10 K$=INKEY$

20 IF K$="q" THEN PLAY"C":10

30 IF K$="w" THEN PLAY"D":10

40 IF K$="e" THEN PLAY"E":10

50 IF K$="r" THEN PLAY"F":10

60 IF K$="t" THEN PLAY"G":10

70 IF K$="y" THEN PLAY"A":10

80 IF K$="u" THEN PLAY"B":10

90 IF K$<>CHR$(27) THEN 10

.......
这样写多简便:
10 K=ASC(INKEY$)
20 N=(K=121)+(K=117)*2+(K=113)*3+(K=119)*4+(K=101)*5+(K=114)*6+(K=116)*7
30 PLAY CHR$(64+N):10
发表于 2007-3-12 14:56:03 | 显示全部楼层
0 GRAPH
10 BOX 1,0,160,79,1,2
20 FOR I=0 TO 400
30 A=INT(RND(1)*160+1):B=INT(RND(1)*80)
40 DRAW A,B,2
50 NEXT
------------------------
满天星
发表于 2007-3-16 18:12:27 | 显示全部楼层
1 DIM A(17)
10 DATA 111,110,99,101,102,108,121,40,79,70,209,208,190,191,202,210,41
20 FOR I=0 TO 16:READ A(I)
30 POKE 745+I,A(I)RINT:NEXT
----------------------------------------------
1 FOR I=1 TO 53
10 A$="  oncefly:Nothing is inpossible!Anything is possible!"
20 B$=MID$(A$,I,1):INVERSERINT B$;:NEXT
----------------------------------------------
不知道这两个程序应该叫啥名称(顺序显示文字??)。不过两个程序的效果差不多。
 楼主| 发表于 2005-4-12 06:38:17 | 显示全部楼层 |阅读模式
希望各位大家,给初学者来个,编程100例子,好让大家,参考着学习

GVB和汇编都可以

永远支持文曲星

谷虫:希望大家都来说说.......与本帖无关内容一律删除.打造emax的BASIC精华.


您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-28 19:09 , Processed in 0.010946 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表