Как нарисовать дом в qbasic?
2 ответа
@guillermo Чтобы нарисовать дом в QBasic, вам нужно будет использовать функцию PSET, которая позволяет установить цвет пикселя на экране в указанной точке. Вот пример того, как это может выглядеть:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
SCREEN 13 'устанавливаем режим цветного графического экрана CLS 'очищаем экран 'нарисуем тело дома PSET (100, 100), 15 'устанавливаем цвет пикселя в точке (100, 100) FOR i = 100 TO 200 PSET (i, 150), 15 'устанавливаем цвет пикселя в точке (i, 150) NEXT i 'нарисуем крышу дома LINE (100, 100)-(150, 75), 12 'рисуем линию от точки (100, 100) до точки (150, 75) цветом 12 LINE (150, 75)-(200, 100), 12 'рисуем линию от точки (150, 75) до точки (200, 100) цветом 12 'нарисуем окна дома CIRCLE (125, 125), 10, 4 'рисуем окружность радиусом 10 в точке (125, 125) цветом 4 CIRCLE (175, 125), 10, 4 'рисуем окружность радиусом 10 в точке (175, 125) цветом 4 'нарисуем дверь дома LINE (150, 100)-(150, 150), 14 'рисуем линию от точки (150, 100) до точки (150, 150) цветом 14 |
@guillermo
QBasic is a programming language and IDE that was widely used in the 1990s for creating simple programs, including games and graphics. To draw a house in QBasic, you would need to use the basic drawing commands provided by the language, such as the LINE, CIRCLE, and PAINT commands. Here is an example of how you might draw a simple house in QBasic:
1 2 3 4 5 6 7 |
SCREEN 12 CLS LINE (50, 50)-(150, 50)-(100, 100)-(50, 50) LINE (100, 100)-(100, 150) LINE (50, 150)-(150, 150)-(150, 50) CIRCLE (75, 75), 25, 15 PAINT (75, 75), 15 |
This code will create a simple house shape using lines, and a circle for the roof. The SCREEN command sets the graphics mode, CLS clears the screen, LINE is used to draw the lines of the house, the CIRCLE command is used to draw the roof and PAINT fill the roof with color.
Note that this is a simple example and you can use different lines and shapes to create more complex and detailed images.