|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
10.06.2011, 10:54
|
#1 |
|
Новичок
Джуниор
Регистрация: 10.06.2011
Сообщений: 2
|
Графический режим в QBasic
Уважаемые программисты - специалисты по QBasic_у, помогите пожалуйста.
У меня осталась последняя лабораторная "Работа в графическом режиме QB". А рисовать в QB я не научился. Мне надо нарисовать вот этот рисунок. Кому не лень, нарисуйте а???? 
|
|
|
|
11.06.2011, 01:07
|
#2 |
|
Новичок
Джуниор
Регистрация: 10.06.2011
Сообщений: 2
|
CLS
SCREEN 9 COLOR 1, 15 LINE (80, 180)-(220, 320), 1, B PAINT (100, 200), 15, 1 CIRCLE (130, 120), 15, 1 PAINT (130, 120), 15, 1 CIRCLE (170, 120), 15, 1 PAINT (170, 120), 15, 1 CIRCLE (135, 125), 8, 1 PAINT (135, 125), 1, 1 CIRCLE (165, 125), 8, 1 PAINT (165, 125), 1, 1 PSET (135, 125), 15 PSET (165, 125), 15 CIRCLE (150, 125), 75, 1 PAINT (150, 110), 15, 1 CIRCLE (150, 150), 40, 1 PAINT (150, 140), 15, 1 LINE (130, 135)-(170, 135), 1 LINE (130, 135)-(150, 165), 1 LINE (170, 135)-(150, 165), 1 CIRCLE (100, 70), 20, 1 PAINT (100, 70), 15, 1 CIRCLE (195, 70), 20, 1 PAINT (195, 70), 15, 1 CIRCLE (65, 200), 25, 1 PAINT (65, 200), 15, 1 CIRCLE (235, 200), 25, 1 PAINT (235, 200), 15, 1 CIRCLE (90, 316), 25, 1 PAINT (90, 316), 15, 1 CIRCLE (205, 316), 25, 1 PAINT (205, 316), 15, 1 END |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| не работает графический режим | Ledom | Общие вопросы C/C++ | 13 | 08.02.2011 19:00 |
| Графический режим | Dead Romantic | Помощь студентам | 0 | 14.12.2010 22:17 |
| Графический режим в FP | fire_on | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 17.01.2010 13:16 |
| Графический режим | galaid | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.05.2009 17:51 |
| Графический режим в С | Raz0r | Помощь студентам | 4 | 03.03.2008 16:49 |
