 Рисование окружности символами “$” |
Прочтите прежде чем задавать вопрос!
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 |
17.05.2004 12:06
Сообщение
#2
|
|
Гость |
Геометрия в школе была?
Sqr(x-x0)+Sqr(y-y0)=Sqr® - уравнение окружности. Можно попробывать что-то типа рисования окружностей с радиусами от начаьного до конечного воспользовавшись тем, что y1 = y0 + Sqrt(Sqr®-Sqr(x-x0)) y2 = y0 - Sqrt(Sqr®-Sqr(x-x0)) |
|
|
|
Сообщений в этой теме
plafon Рисование окружности символами “$” 17.05.2004 11:23
plafon можно по подробнее а то я не догоняю 18.05.2004 10:47 BlackShadow В цикле перебираешь радиусы от минимального до мак... 18.05.2004 11:22
plafon Попробовал чё то не получается 19.05.2004 16:30 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.06.2025 10:41 |