БЕЙСИК ШАГ ЗА ШАГОМ
Этот раздел для начинающих подготовлен нашим читателем из г. Дубна тов. Скитевым Б.Н. Мы планируем сделать эту рубрику постоянной и приносим ему благодарность за предоставленный материал.
10 PRINT "*"; 20 GO TO 10
Попробуйте вместо точки с запятой ввести запятую или вообще ничего не вводить.
10 FOR A = 1 ТО 704 20 PRINT "*"; 30 NEXT A
Экран может содержать не более 704 символов, так как 32х22=704
40 PAUSE
50 FOR S = 5 ТО 16
60 PRINT AT S, 10; " "
70 NEXT S
Добавим к предыдущей программе эту, вырежем на экране окно. Отметим, что в строке 60- 12 пробелов.
10 BORDER 1 20 INK RND * 7 30 PRINT "SPECTRUM"; 40 GO TO 10
Выбираем цвета бордюра (возможны цифры от 0 до 7). Компьютер случайным образом выбирает цвет знаков.
10 LET A = RND*255 20 LET B = RND*175 30 PLOT INK RND*6;A^ 40 GO TO 10
Заполняем экран точками, координаты точек генерируются случайным образом командой RND.
Мозаика из разноцветных квадратов.
20 BORDER 1 30 INK RND * 6 40 PRINT "(": 70 GO TO 20
Квадрат в строке 40 рисуем в графическом режиме.
10 LET C = 0
50 IF C = 703 THEN STOP
60 LET C = C + 1
Если Вы хотите, чтобы программа остановилась сразу после заполнения экрана, то введите эти строки просто дописав их.
10 BORDER 0 20 PAPER 5 30 CLS
40 LET X = 1
50 FOR L = 0 ТО 21
60 FOR C = 1 TO 7
70 PRINT INK C; AT L,C+X;" |
80 NEXT C
90 LET X = X + 1
95 NEXT L
Рисуем "лесенку", цвет бордюра и экрана можно выбрать любым.
10 CLS
20 FOR N = 1 ТО 1000
30 LET C = RND*6
40 LET X = RND*21
50 LET Y = RND*31
60 LET A$ = CHR$(RND*133)+32)
70 PRINT AT X,Y; INK C: A$
80 NEXT N
Заполнение экрана случайным образом, случайными символами (конфетти). Программа остановится после того, как выведет на экран 1000 символов.
Бегущая буква.
10 FOR F = 0 ТО 3; 20 PRINT AT 10, F; "A 30 PAUSE 5 35 BEEP .01,20
40 PRINT AT 10,F:" " 50 NEXT F
Буква пробегает только одну строку 10. Попробуйте заставить букву пробегать другую строчку или несколько строк.
Горизонтальные цветные полосы.
10 FOR N = 1 ТО 2
20 FOR M = 0 TO 7
30 DIM P$ (32)
40 PRINT PAPER M; P$
50 NEXT M
60 NEXT N
Вертикальные цветные полосы.
10 FOR F = 7 ТО 0 STEP -1 20 PRINT INK F: "ЦЦ" 30 NEXT F 40 GO TO 10
Вводим 4 квадрата в графическом режиме.
Геометрические узоры.
10 FOR A = 127 ТО 254 STEP 4
20 CLS
30 INK RND * 6
40 PLOT 60,40
50 DRAW 126,88, PI*(2*A-1)
60 NEXT A
Звук и цвет.
10 FOR F = 1 TO 30 20 BEEP .1, RND * 20 + 20 30 BORDER RND * 7 40 NEXT F
Звуки.
10 FOR X = 12 TO 36 20 BEEP .O1.X 30 BEEP .01,24-X 40 NEXT X
Клавиатура - музыкальный инструмент.
10 LET P = CODE INKEY$ 20 IF P = 0 THEN GO TO 10 30 BEEP .04, (P-30)/2 40 GO TO 10
Эта программа позволяет Вам самим рисовать на экране.
10 CLS
20 PLOT 25,25 30 LET X = 5 40 INPUT K$
|
50 IF K$ = "Q" |
THEN |
DRAW |
0,X |
|
60 IF K$ = "А" |
THEN |
DRAW |
0,-X |
|
70 IF K$ = "P" |
THEN |
DRAW |
Х,0 |
|
8O IF K$ = "О" |
THEN |
DRAW |
-X,0 |
|
90 IF K$ = "С" |
THEN |
CLS |
|
|
100 GO TO 40 |
|
|
|
Клавиша Q - вверх, клавиша A - вниз, клавиша P - вправо, клавиша O - влево, клавиша C - стереть все.