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

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