Иллюстрированный самоучитель по Basic, вводный курс

Оператор цикла WHILE… WEND

161. Программа:

DATA 10, 100, 1000
READ А, В
? В -А
READ С
RESTORE
READ X, Y, Z
IF C=Y THEN 1
IF B=Y THEN 2
GOTO 3
1:? "плюс"
GOTO 3
2:? "МИНУС"
3: END

162. Программа:

X=13
Y=17
Z=2
2: IF Z >=5 THEN 1
? X, Y, Z
X=X -1
Y=X+Y
Z=Z+1
GOTO 2
1: END

163. Программа:

FOR R=l TO 4 9 STEP 6
W=W+R*2 NEXT R? R

164. Программа:

FOR K=7 TO 28 STEP 7
? "УРА!!!" NEXT К? "ВПЕРЕД!!!"

165. Программа:

x=i
1:? X
Х=Х+2
IF X <= 13 THEN 1
END

166. Программа:

FOR B=l TO 4
D=B*2
? D, В NEXT В

167. Программа:

FOR C=2 TO 11 STEP 2
? C, C"2 NEXT С? "ВЗРЫВ!"

168. Программа:

X=13 Y=52 Z=99 FOR U=100 TO 1 STEP – 2
IF U=X THEN? U
IF U=Y THEN? U
IF U=Z THEN? О NEXT U

169. Программа:

WHILE S < 10
? S WEND

170. Программа:

WHILE D$ О "ИНФОРМАТИКА"
READ D$, В
? "ПРЕДМЕТ"; D$
? В WEND DATA МАТЕМАТИКА, 4, ФИЗИКА, 3, ИНФОРМАТИКА, 5, ХИМИЯ, 3