 Рисование окружности символами “$” |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| plafon |
 17.05.2004 11:23
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 17 Репутация:  0   |
Помогите решить ПОЖАЛУЙСТА
Задавая с клавиатуры начальные координаты, начальный, конечный радиус и цвет, нарисовать окружность начального радиуса, символами “$” и увеличивать ее до конечного радиуса. Рисование окружности (с заданными параметрами) выполнить в процедуре. Для установки курсора в заданные координаты, использовать GotoXY(Y,X) из модуля Crt. |
   |
 
|
  |
Ответов
| BlackShadow |
18.05.2004 11:22
Сообщение
#2
|
|
Гость |
В цикле перебираешь радиусы от минимального до максимального. Для каждого радиуса двигаясь от точки x0-r до x0+r вычисляешь y1 и y2. Делаешь GoToXY(x,y1), малюешь там $, затем в (,y2) тоже самое. Двойной цикл получится.
|
|
|
|
Сообщений в этой теме
plafon Рисование окружности символами “$” 17.05.2004 11:23
BlackShadow Геометрия в школе была?
Sqr(x-x0)+Sqr(y-y0)=Sqr... 17.05.2004 12:06 plafon можно по подробнее а то я не догоняю 18.05.2004 10:47
plafon Попробовал чё то не получается 19.05.2004 16:30 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.06.2025 2:15 |