(Basic) . , , , , \ , . - . , - - . . -, , .
, -. . , , , . , - .
- , . , , ( ) . ( ), - , , ..
, - . , , , , , . , , , . .
QuickBasic.
, GW-Basic MSX-Basic, . , . , - . , .
PRINT " ", 5*5
<Enter> ( PRINT ?). : 25. PRINT , : PRINT "!"- ! ( ).
|
|
, , - ( <Enter>):
=5 b=4?*b
: 20.,.;
, , - ( ).
, . 54.
54
10 =5 20 =4
30? a*b
, , . LIST - .
RUN, . , . . - . , , , . , , .
, . , . , () , . , : Basic-MSX, Qbasic, Turbo-Basic. , .
1. ?
2. ?
() , , .
INPUT < > - ;
PRINT < > - ;
LET a= <,
>
( LET ) - ;
IF <> THEN <1>
ELSE <2> - ;
GOTO < > - ;
FOR = 1 n STEP h <>
NEXTx - .
, , READ - DATA.
, :
RUN - ;
LIST - ;
SAVE - ;
LOAD - .
, . .
|
|
, : , , . DEF,
DEF FNA(x,y,z)=x*x+y*y+z*z
. Sin(.x) 100 , [,] h=(b-a)/100 .
55
10 REM
20 INPUT " a,b"; a, b
30 DEF fna (x) = SIN(x)
40 max = fna (a)
50 h = (b - a) / 100
60 FOR x = a TO b STEP h
70 IF max < fna(x) THEN max = fna(x)
80 NEXT x
85 CLS
90 PRINT " ["; ;
","; ; "]="; max
100 END
10 - ( - . ), 85 - , 100 - ( - ).
, 3.
IF...THEN GOTO. IF...THEN...ELSE; 56 1 (sqr(x) - ).
56 (. 1)
10 REM
20 CLS
30 INPUT " ,,"; , ,
40 d = * - 4**
50 IF d < 0 THEN GOTO 80
60 xl = (-b + sqr(d)) / (2 * a): x2 = (-b - sqr(d)) / (2 * ay
70 PRINT " xl="; xl; "x2="; 2
80 GOTO 100
90 PRINT " "
100 END
( ) IF...THEN GOTO.
57 (. 5).
10 REM ,
20 CLS
30 num = 0: sum =
40 IF sum >= 100 THEN GOTO 110
50 INPUT " "; w
60 sinn = sum + w
70 IF sum >= 100 THEN GOTO 90
80 num = num + 1: GOTO 90
90 PRINT " "
100 GOTO 40
110 PRINT " =", num
120 END
58 ( 30), . . PRINT USING ( , , ###.## - 345.98, ##.## - 34.17-02). 20- DIM ( array, ).
58 (. 10).
10 REM bubble ()
20 DIM a(10)
30 DATA 19, 8, 17, 6, 15, 4, 13, 2, 11, 0
40 CLS
50 PRINT " "
60 FOR i = 1 TO 10 STEP 1
70 READ a(i)
80 PRINT USING "##"; a(i);
90 NEXT i
100 PRINT
110 p$ = ""
120 FOR i = 10 TO 2 STEP -1
130 IF a(i) >= a(i-l) THEN GOTO 150
140 b = a(i): a(i) = a(i-l): a(i-l) = : $ = ""
150 NEXT i
160 IF p$ = "" GOTO 110
170 PRINT " "
180 FOR i = 1 TO 10
190 PRINT USING "####"; a(i);
200 NEXT i
210 END
1. .
2. .
, . PLAY. , , .
|
|
PLAY :
PLAY AS, B$, CS,
AS, BS, CS - , . - , , , . :
- ,
d - ,
- ,
f - ,
g - ,
- ,
b -
,
PLAY "cdefgab"
(------) 1/4 (, , ).
( - ) ( - , #). . On. . , (01) - , (02) - , (03) - , (04) - , (05) - .. ,
PLAY " "
-- .
- ( -. -, -, -, , , ). (1/2 ), , , .. - . Ln (n = 1, 2,... 64), , . ,
PLAY"C8D2L16fbe"
, - , -- \ . , Rn .
Vn, (n = 0, 1,... 15); n = 8 - .
.
59
*********** **************
10 DATA c8, f2f8, e8, f8, a8, o5c8, f8f2
20 DATA e8, d8, c8, f8, o4g8, a8, b-8, o5d8, o4f8, g8,a8
30 DATA o5c8, o4g2, c4, f2f8, e8, f8, a8, o5c8, a8a4a8
40 DATA g8, f8, d8, c8, f8, o4, g8, a8. b-8, o5, d8, o4, g8, a8, b-8
50 DATA o5d8, o4-d8, e8, f2
60 FOR i = 1 TO 46
70 READ f$
80 PLAY f$
90 NEXT i
INPUTS(n) .
60
5 ******* - *******
10 f$ = INPUT$(1)
20 PLAY f$
30 GOTO 10
1. , .
2. .
(, SCREEN 9) WINDOW (1,1) - (2,2). (1,1), (2,2) - , . , . COLOR zl, z2, zl- , z2- . , , , 32 24 , . - (z2=l), - (zl=14).
|
|
10 *********** *********************
20 SCREEN 9
30 WINDOW (-16,-12)-(16, 12)
40 COLOR 14,1
(,) PSET(x,y),z. z - . . , , , , . CIRCLE (\,y),r,z, , - , - , z - . PAINT (x,y),zl,z, zl - , z - .
. 4 )\ 10*10, (10), (12) (15).
61
10 '**************** *********************
20 SCREEN 9
30 WINDOW (-16,-12) - (16,12)
40 COLOR 14, 1
50 '********** *********************
60 CIRCLE (-5, -5)..25, 15: PAINT (-5, -5), 10, 15
70 CIRCLE (-5, 5),.25, 15: PAINT (-5, 5), 10, 15
80 CIRCLE (5, 5),.25, 15: PAINT (5, 5), 10, 15
90 CIRCLE (5, -5),.25, 15: PAINT (5, -5), 10, 15
100 CIRCLE (0, 0),.5, 15: PAINT (0, 0), 12, 15
, - . > . .
62
10 '*************** **********************
20 SCREEN 9
30 WINDOW (-16, -12) - (16, 12)
40 COLOR 14, 1
50 '*************** *******************
60 FOR 1=1 TO 5
70 CIRCLE (0. 0),.5, 15: PAINT (0, 0), 14, 15: DELAY.2
80 'FOR k=l TO 200: NEXT k
90 CIRCLE (0, 0),.5, 15: PAINT (0, 0), 12, 15: DELAY.5
100 'FOR k=l TO 500: NEXT k
110 NEXT I
, (12) (DELAY.5, ), (14) - . .
. . SOUND cl,t, cl - , t -.
63
10 ************** **************************
20 SCREEN 9
30 WINDOW (-16, -12) - (16,12)
40 COLOR 14, 1
110 '***** *******
120 FOR i=l TO 5
130 CIRCLE (-5, -5),.25, 15: PAINT (-5, -5), 6, 15
140 CIRCLE (-5, 5),.25. 15: PAINT (-5, 5), 6, 15
150 CIRCLE (5, 5),.25, 15: PAINT (5, 5). 6, 15
160 CIRCLE (5, -5),.25, 15: PAINT (5, -5), 6, 15
170 DELAY.2: BEEP
180 CIRCLE (-5, -5),.25, 15: PAINT (-5, -5), 10, 15
190 CIRCLE (-5, 5),.25, 15: PAINT (-5, 5), 10, 15
200 CIRCLE (5. 5),.25, 15: PAINT (5, 5), 10, 15
210 CIRCLE (5, -5),.25, 15: PAINT (5, -5). 10, 15
220 DELAY.5
230 NEXT i
240 '***** SOUND ******
250 FOR i=l TO 5
260 CIRCLE (0, 0),.5, 15: PAINT (0, 0), 14, 15
270 SOUND 600,.2: DELAY.2
280 CIRCLE (0,0),.5, 15: PAINT (0, 0), 12, 15
290 SOUND 300,.5: DELAY.5
300 NEXT i
, . CIRCLE.
64
'************0 **********************
20 SCREEN 9
30 WINDOW (-16,-12) - (16,12)
40 COLOR 14,1
50 *************** PI ****************
60 pi=4*atn(l)
iq >********** **********
80 CIRCLE (0, 0), 4, 15
90 CIRCLE (5. 5), 4, 14, 0, pi/2 '
100 CIRCLE (-5, 5). 4, 14. pi/2, pi '
110 CIRCLE (-5,-5),4, 14, 0, pi, 3*pi/2 '
120 CIRCLE (5,-5), 4, 14, 3*pi/2,2*pi '
LINE, . , . , .. . . :
|
|
LINE(-16.-.l)-(16,.l),15,bf LINE(-.l,-12)-(.l,12),15,bf
, , CIRCLE. , CIRCLE , :
FOR =-4 4 STEP.01
= 0.5*\''2
CIRCLE (x,y),.1,15 NEXTx
, CIRCLE PSET (\,y). z, z - , (,) - (PSET -). . .
65
I ********* ************
10 SCREEN 9
20 WINDOW (-16,-12) - (16,12)
30 COLOR 14,1
4 **************** ********************
50 FOR = -15 TO 15 STEP.01
60 = 3*sin(x/3)
70 PSET (, +7), 14
80 NEXT
90 **************** - 1 ***************
100 FOR = -15 TO 15 STEP.1
110 = 3*sin(x/3)
120 PSET (x,y), 11
130 IF x>-15 THEN LINE (x,y) - (xl.yl), 11
140 1=-: xl=x
150 NEXT
160 ***************** - 2 ***************
170 FOR = -15 TO 15.STEP.1
180 = 3*sin(x/3)
190 CIRCLE (, -7),.1, 15
200 IF x>-15 THEN LINE (, -7) - (xl, yl- 7), 10
210 CIRCLE (xl, yl- 7),.1, 15: PAINT (xl.yl - 7), 14, 15
220 1=: 1=
230 NEXT
340 '********************** ***********************
250 LINE (-16, 7) - (16, 7), 15
260 LINE (-16, 0) - (16, 0), 15
270 LINE (-16, -7) - (16, -7), 15
, , PAINT. LINE (\l,yl)-(x2,y2),z,bf . . , . , , . , ( ).
66
10 **************** **********************
20 SCREEN 9
30 WINDOW (-16, -12) -(16, 12)
40 COLOR 14, 1
50 '************ ************
60 LINE (-10.1, -5.1) - (10.1, 5.1), 15, b
70 FOR x = -10 TO 10 STEP.01
80 LINE (x, -5) - (x, 5), 12
90 NEXT x
100 DELAY 2: ' FOR k=l to 2000: NEXT k
110 CLS
120 '*************** *****************
130 FOR i = 1 2000
140 x =.5*INT(RND*64) - 16
150 = INT(RND*24) - 12
160 LINE (x, ) - (+.5, +1), 15, bf
170 NEXT i
31 , 6 : , , , , .
67 (. 31)
**************** ****************
20 SCREEN 9
30 COLOR 14, 1
40 DATA 11500, 2300, 9700, 5100, 12400, 8200
45 DATA "", "", "", "", "", ""
50 LINE (40, 300) - (550, 300): LINE (40, 300) - (40, 20)
60 FOR k = 1
70 READ m(k)
80 NEXT k
90 a = m(l)
100 FOR k = 2 TO 6
110 IF m(k) > a THEN a = m(k)
120 NEXT k
130 FOR k = 1 TO 6
140 READ name$(k)
150 NEXT k
160 FOR k = 1 TO 6
170 n = 10 * k + 3
180 LOCATE 23, n: PRINT name$(k)
190 m(k) = 300 - m(k) / a * 200
200 LINE (k * 80, 300) - (80 + k * 80, 300 - m(k)), k + 3, BF
210 NEXT k
220 c$ = HEX$(a)
230 LOCATE 3, 1: PRINT c$
240 c$ = HEX$(0)
250 LOCATE 22, 3: PRINT c$ 260 END
. LOCATE X,Y, , . LOCATE... PRINT , , . HEXS . WINDOW .
1.
.
2. SCREEN 9 (, 12). ? , .
3. , .
4. .