|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.07.2008, 08:08 | #1 |
Пользователь
Регистрация: 01.07.2008
Сообщений: 11
|
есть программа помогите исправить
Нарисовать на экране катящееся по наклонной вида Y=kX колесо с че-тырьмя спицами.
Код:
Последний раз редактировалось Stilet; 08.07.2008 в 08:16. |
08.07.2008, 08:24 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну и зачем ты смешал ReadLn и WriteLn с графикой? Хоть бы режим выставил чтоб эти "консольные" команды работали в графическом режиме.
I'm learning to live...
|
08.07.2008, 12:17 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Исключи из процедуры Paint всю текстовую часть(начало), оформи в другой процедуре и вызывай ее сразу в начале программы, после begin и до initgraph. Тогда у тебя сначала в текстовом окне будет презентация, а затем в графическом режиме демонстрация. При повторных запусках все будет в графическом режиме.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить код | Tanuska___:) | БД в Delphi | 4 | 07.08.2008 17:40 |
Помогите исправить | L_M | Помощь студентам | 3 | 08.06.2008 01:06 |
Помогите исправить | NeiL | Общие вопросы C/C++ | 1 | 31.05.2008 13:31 |
Помогите исправить код | student_63 | Помощь студентам | 5 | 13.12.2007 18:20 |