1. , , .
  2. I. .
  3. III.
  4. VII.
  5. '
  6. Ͳ ֲ

. () "".

' () , $, , 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. .




в - | | ˲ ̲ | ̲, вͲ | | | Ѳ -- | Ѳ | ² | Ͳ Ҳ |

© um.co.ua -