Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
23.12.2010, 02:09   #1
hdrd
Новичок
Регистрация: 23.12.2010
Сообщений: 6
Репутация: 0 (0)
Окружности / Pascal (Паскаль)

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

http://savepic.org/1027968.png

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

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

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

Заранее спасибо.
23.12.2010, 02:09
AdAgent
Объявления
23.12.2010, 06:05   #2
use
Форумчанин
Регистрация: 18.12.2010
Сообщений: 346
Репутация: 175 (175)
Лучшие ответы: 5
Окружности

Цитата Сообщение от hdrd Посмотреть сообщение
Радиус маленьких окружностей можно вычислить так:
l/2n, где n - количество окружностей, а l длина исходной окружности, радиус которой мы задаем (l=2*pi*R)
А откуда это взялось? О_о
Сдается мне, что сие неверно..
Другие темы раздела
Pascal Дана строка 'математика 5', как 5-ку занести в численную переменную x?
cоnst mystr = 'математика 5'; var x:integer; как 5-ку занести в x!???
Метод Якоби Pascal
Ребят, помогите пж-ста найти ошибку в программке( вместо корней заранее расчитанной системы выводит нули) Program Jacobi; label 11; Const N=3; Type dmatr=array of real; Type mas=array of real; Var A:dmatr; b,r,x:mas; i,j,iter,maxiter,retcode:integer; eps,rmax:real;
23.12.2010, 10:14  [ТС]   #3
hdrd
Новичок
Регистрация: 23.12.2010
Сообщений: 6
Репутация: 0 (0)
Окружности

ну это я так думаю
раз неверно то забудем
23.12.2010, 10:46   #4
use
Форумчанин
Регистрация: 18.12.2010
Сообщений: 346
Репутация: 175 (175)
Лучшие ответы: 5
Окружности

Радиус малой окр. 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.
Вот типа и все
23.12.2010, 13:30  [ТС]   #5
hdrd
Новичок
Регистрация: 23.12.2010
Сообщений: 6
Репутация: 0 (0)
Окружности / Pascal (Паскаль)

написал, спасибо большое
23.12.2010, 13:30
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C# WinForms Начертить окружность по координатам середины окружности и точки лежащей на окружности
Добрый вечер. Подскажите, как начертить окружность по координатам середины окружности и точки лежащей на окружности?
C# Windows Forms John_Sheppard 19.02.2013 01:12
Visual Basic По номеру элемента окружности вывести значения остальных элементов данной окружности
Задача №2, условие : Составить программу для решения задачи. Элементы окружности пронумерованы следующим образом: 1 – радиус R, 2 – диаметр D = 2R, 3 – длина L = 2πR (π = 3.14) , 4 – площадь круга S = πR2. Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов...
Visual Basic Георгий1994 06.12.2012 15:59
VBA Определить какая из точек лежит на окружности, какая внутри окружности, а какая вне окружности
Не могу не как понять какую формулу писать Вот задания Заданы координаты двух точек А(х,у) и В(х,у) и радиус окружности r. Определить какая из точек лежит на окружности, какая внутри окружности, а какая вне окружности. Сделал набросок...но формула явно не правильная e Sub...
VBA Neturing 21.11.2012 04:23
Delphi Пересечение прямой и окружности. Прямая проходит через центр окружности
Есть окружность с центром О. Известны координаты ее центра. Известен радиус. Есть Точка А (которая выбирается мышью) Можно как-нибудь найти координаты точки пересечения окружности О с прямой AO (у меня AO - отрезок, сути это наверное не меняет). Если можно так, то как это сделать..? var ...
Delphi для начинающих daslex 20.12.2011 19:04
Pascal ABC Постройте две окружности, имитируя движение одной окружности по другой
Постройте на экране компьютера две окружности радиусов R1, R2 разных цветов, имитируя движение одной окружности по другой.
Pascal ABC Шарик 19.12.2011 16:47
Опции темы

Текущее время: 09:21. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.