Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
hdrd
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 6
#1

Окружности - Pascal

23.12.2010, 02:09. Просмотров 428. Ответов 4
Метки нет (Все метки)

Требуется написать программу, которая рисует примерно такое:

http://savepic.org/1027968.png

Изначально задается только радиус внутренней окружности и количество маленьких окружностей. Маленькие окружности в идеале должны соприкасаться друг с другом, просто рисунок кривоват.

Радиус маленьких окружностей можно вычислить так:
l/2n, где n - количество окружностей, а l длина исходной окружности, радиус которой мы задаем (l=2*pi*R)

А каким образом их расположить - хз

Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2010, 02:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Окружности (Pascal):

Вычислить радиус окружности по введённой с клавиатуры площади окружности - Pascal
Напишите программу, которая вычисляет радиус окружности по введённой с клавиатуры площади окружности. Результат выводится на монитор.

площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d - Pascal
Помогите пожалуйста с задачей Вычислите площадь кольца, ширина которого равна h, а отношение радиуса большей окружности к радиусу...

Окружности - Pascal
Здравствуйте! Помогите, пожалуйста. Задача: ввести с клавиатуры число окружностей и нарисовать их. А как сделать так чтобы все окружности...

Радиус окружности - Pascal
Радиус окружности, вписанной в равносторонний треугольник, равен R. Составить программу для вычисления стороны (признак N=1), высоты...

Пересекаются ли окружности. - Pascal
1 Даны целые числа N и M. Найти на интервале <от меньшего из них до большего из них> все целые числа, модули которых являются кубами целых...

Движение закрашенной окружности - Pascal
Как сделать так , чтобы закрашенная окружность двигалась по контуру другой окружности (т.е как по орбите)

4
use
178 / 178 / 33
Регистрация: 18.12.2010
Сообщений: 346
23.12.2010, 06:05 #2
Цитата Сообщение от hdrd Посмотреть сообщение
Радиус маленьких окружностей можно вычислить так:
l/2n, где n - количество окружностей, а l длина исходной окружности, радиус которой мы задаем (l=2*pi*R)
А откуда это взялось? О_о
Сдается мне, что сие неверно..
0
hdrd
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 6
23.12.2010, 10:14  [ТС] #3
ну это я так думаю
раз неверно то забудем
0
use
178 / 178 / 33
Регистрация: 18.12.2010
Сообщений: 346
23.12.2010, 10:46 #4
Радиус малой окр. r можно найти из уравнения:

sin(Pi/n) = r/(R+r)
(тут Pi=3/14... , если нужно объяснить - скажи)

Если задано n, то известна вся левая часть (синус). Обозначу ее через S. Тогда

R+r = r/S

R = r*(1/S-1)

r = R*S/(1-S)

Вычисляешь это значение r (по известным R и S). Потом вычисляешь координаты центров окружностей:

цикл по i от 0 до n-1 :
Xi = (R+r) * cos(i*2*Pi/n)
Yi = (R+r) * sin(i*2*Pi/n)

Ну и проводишь окружности радиусом r.
Вот типа и все
0
hdrd
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 6
23.12.2010, 13:30  [ТС] #5
написал, спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2010, 13:30
Привет! Вот еще темы с ответами:

Радиус и центр окружности. - Pascal
Задача: Определите радиус и центр окружности, проходящей по крайней мере через три различные точки заданного множества точек на плоскости и...

Вычислить длину окружности - Pascal
Брату в универе нужно написать задачки по программированию (лабы) на паскале. Помогите кто знает, спасибо. 2. Составить программу,...

Перемещение окружности по экрану - Pascal
Помогите пожалуйста разработать программу, которая отображает процесс перемещения окружности по экрану, при нажатии соответствующих клавиш...

Координаты прямой и окружности - Pascal
Здравствуйте!Помогите решить задачу.Всю голову уже сломал. Найти координаты пересечения прямой y=kx+b и окружности с радиусом R с центром...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Yandex
Объявления
23.12.2010, 13:30
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru