Напишите программу «Светофор»: на экране три круга. При нажатии клавиши «К» верхний круг закрашивается красным цветом, при нажатии клавиши «Ж» средний круг закрашивается желтым цветом, при нажатии клавиши «3» нижний круг закрашивается зеленым цветом- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
SCREEN 9
1 LOCATE 1, 37: PRINT "SVETOFOR"
PRINT "krasniy (najmite < k > ili < r >"
PRINT "jeltiy (najmite < J > ili < ; >"
PRINT "zeleniy (nejmite < z > ili < 3 >"
INPUT h$
IF h$ = "k" OR h$ = "r" THEN GOTO 2
IF h$ = "j" OR h$ = ";" THEN GOTO 3
IF h$ = "z" OR h$ = "p" THEN GOTO 4
2 CLS
CIRCLE (400, 75), 50, 4, , , 1
PAINT (400, 75), 4, 4
GOTO 1
3 CLS
CIRCLE (400, 180), 50, 14, , , 1
PAINT (400, 180), 14, 14
GOTO 1
4 CLS
CIRCLE (400, 285), 50, 2, , , 1
PAINT (400, 285), 2, 2
GOTO 1

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment