. () " ".
() , $, , AS, Fl$, MaxS. ( ); .
, .
68 (. 11)
10 ' ******* ************
20 $ = ""
30 INPUT " "; $
40 n
50 FOR k = 1 LEN(c$)
6t> b$ = MID$(c$, k, 1)
70 FOR i = 1 TO LEN(a$)
80 IF b$ = MID$(a$, i, 1) THEN n = n + 1
90 NEXT i
100 NEXT k
110 PRINT " ", n
120 END
MID(a$,ij) - $, - , - , - . LEN(aS) - .
LEFT$(a$,i) - i RIGHT$(a$,i) - , .
69 (. 12)
10 ' ******* sqr ************
20 INPUT " "; $
30 FOR i = 1 LEN(a$) - 2
40 IF MID$(a$, i, 3) "THEN GOTO 60
50 a$ = LEFT$(a$, i -1) + "+ RIGHT$(a$, LEN(a$) - i - 2)
60 NEXT i
70 PRINT a$
80 END
.
70
10 ' ******* ************
12 DATA "", "",".23*45/56", letter, pc-ibm
15 DATA "-home", "", "", "", ""
20 FOR i = 1 10
30 READ a$(i)
40 NEXT i
60 FOR i = 1 TO 10
70 CLS: PRINT: PRINT TAB(IO); a$(i);
100 PRINT: PRINT: PRINT
110 PRINT " <>";
120 LOCATE 8, 5: TIMER: INPUT b$: CLS
130 = TIMER: PRINT: n =LEN(a$(i))
140 IF a$(i) <> b$ THEN 190
150 PRINT USING "###.#<"; (y - x) / ;
160 PRINT ". ": GOTO 200
170 PRINT: PRINT " "
180 FOR m = 1 5000: NEXT m
190 NEXT i
TIMER . 180 .
LEFTS(aS,n) MID$(a$,n,k) . INT(x) - , RND(x) - 0 1. ( DIM aS(k)) , DATA (30 40 ). .
|
|
71
5 ' *************** *********************
10 k = 5
15 DIM a$(k)
30 DATA "","",""
40 DATA "","--"
50 FOR i = 1 k
60 READ a$ (i)
70 NEXT i
80 CLS
90 r = INT(k * RND(-TIMER)) + 1
100 n = LEN(a$(r))
110 PRINT " "; n; ""
120 LOCATE 5, 20: PRINT LEFT$(s$, n)
130 t =
140 DO 150 LOCATE 8, 12: PRINT " "
160 INPUT h$
170 =
180 FOR i = 1 n ] 190 IF h$ = MID$(a$(r), i, 1) THEN | 200 LOCATE 5, 19 + i: PRINT h$: | 210 t=t+l:y=l | 220 END IF |
230 NEXT i
240 LOCATE 8, 12: PRINT " "
250 IF 1 THEN LOCATE,10, 15: PRINT " "
260 FOR m = 1 5000: NEXT m 270 LOCATE 10, 15: PRINT " " |
280 LOOP WHILE t 0 n I 290 LOCATE 13, 13: PRINT ", !" f
DO-LOOP-WHILE, (QBASIC, Turbo-BASIC).
1. .
, , -\ . : GOSUB < > - : RETURN - .
ON k GOSUB 100,200,300. k 1.2.3, , 100. 200, 300.
, , .
72 (. 17).
10 ' ****** *********************
15 CLS / 20 " 35: $ = "-"
30 GOSUB 1000 40 PRINT: PRINT " "
50 GOSUB 1000
55 PRINT
60 FOR x = 1 TO 10
70 PRINT USING "x = ## sqr(x) = t.##<"; x; SQR(x):
80 NEXT x
90 GOSUB 1000
100 PRINT: PRINT " ";
110 GOSUB 1000 120 PRINT
130 FOR x = 1 TO 5 140 PRINT USING "x = log(x) =."; X; LOG(x)
150 NEXT x
:60 $ = "*" 170 GOSUB 1000 180 END
1000 FOR i = 1 TO a: PRINT c$: NEXT i
1010 RETURN
, . . , .
.
73
'*********** ***********
10 CLS: PRINT: PRINT
20 PRINT " "
30 PRINT
40 PRINT ". "
50 PRINT ". "
60 PRINT ". "
70 PRINT: PRINT
80 INPUT " "; j
90 SCREEN 2
100 LINE (200, 0) - -(200, 200): LINE (0, 100) - (400, 100)
110 PSET (0, 0), 4
120 FOR x = - 4 TO 4 STEP 1/32
|
|
130 ON j GOSUB 500, 600, 700
140 PSET (200 + 32 * x, 100 - 32 * )
150 NEXT x
160 r$ = INPUT$(1)
170 IF r$ = "" OR r$ = "" THEN END ELSE SCREEN 0: GOTO 10
500 = SIN(x): RETURN
600 = COS(x): RETURN
700 = TAN(x): RETURN
, GOSUB, , , , . , ( Qbasic) SUB - - FUNCTION - -. SUB kvur(a,b,c) . DECLARE, CALL.
74
5 ' ********** ********
10 DECLARE SUB kvur (!, !, !)
20 INPUT " , , "; , , 30 CALL kvur (a, , )
40 END SUB kvur (a, b, c)
1000 d.=b*b-4*a*c
1010 IF d < 0 THEN PRINT " ": GOTO 1050
1020 xl = (- b + SQR(d)) / 2 / a
1030 x2 = (- b - SQR(d)) / 2 / a
1040 PRINT ="; xl, ="; x2
1050 END SUB
1. ?
. "aaa3.dat" (OPEN-FOR OUTPLT-AS ff). PRINT WRITE ( 30). CLOSE.
5 ' ********* *********
10 OPEN ". FOR OUTPUT AS ^3
20FORi=1TO10
30 PRINT #3, i:' WRITE #3, i
40 NEXT i
50 CLOSE #3
. OPEN INPUT, INPUT .
' *(******** **********
60 OPEN "aa3.dat" FOR INPUT AS #2 '
70 FOR i = 1 TO 10
80 INPUT #2, a(i)
90 PRINT a(i)
100 NEXTi
110 CLOSE #2
, APPEND.
'
120 OPEN "aa3.dat" FOR APPEND AS #1
130 WRITE #1, 13
140 CLOSE #1
, . 10. , "" 11, "" - 12 .. 26 , 3, .
75 (. 27 sekret)
5 ' ******-** **************
10 INPUT " "; $ 23 5 = " "
30 $ = " "
40 FOR i = 1 LEN(a$)
50 FOR j = 1 TO LEN(c$)
60 IF MID$(a$, i, 1) - MID$(c$, j, 1) THEN k = j: GOTO 90
70 NEXT j
80 PRINT " ": GOTO 160
90 kk = k + 10
100 x$ = x$ + STR$(kk)
110 NEXT i
120 OPEN "letter.txt" FOR OUTPUT AS #1
130 PRINT #1, x$
140 CLOSE1
150 PRINT " - "; x$
160 END
, letter.txt.
, .
|
|
76 (. 27 retsek)
5 '********** ***********
10 OPEN "letter.txt" FOR INPUT AS #1
20 INPUT tl, a$
30 CLS
40 PRINT a$
50 c$ = " "
60 x$ = " "
70 FOR i = 1 TO LEM(a$) STEP 3
SO k = VAL(MID$(a$, i, 2))
90 k = k - 10
100 x$ = x$ + MID$(c$, k, 1)
110 NEXT i
120 CLOSE #1
130 PRINT " - "; x$
140 END