 Рисование окружности символами “$” |
Прочтите прежде чем задавать вопрос!
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 |
18.05.2004 10:47
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 17 Репутация: 0 |
можно по подробнее а то я не догоняю
|
|
|
|
| BlackShadow |
18.05.2004 11:22
Сообщение
#4
|
|
Гость |
В цикле перебираешь радиусы от минимального до максимального. Для каждого радиуса двигаясь от точки x0-r до x0+r вычисляешь y1 и y2. Делаешь GoToXY(x,y1), малюешь там $, затем в (,y2) тоже самое. Двойной цикл получится.
|
|
|
|
| plafon |
19.05.2004 16:30
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 17 Репутация: 0 |
Попробовал чё то не получается
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.06.2025 8:28 |