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

Ответ Создать новую тему
 
23.12.2010, 02:09   #1
hdrd
Новичок
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 6
Окружности / 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
Форумчанин
175 / 175 / 5
Регистрация: 18.12.2010
Сообщений: 346
Окружности

Цитата Сообщение от 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
Новичок
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 6
Окружности

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

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

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

Похожие темы
Тема Раздел Автор Дата
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
Pascal ABC Вывести массив в виде окружности. Радиус окружности ввести с клавиатуры
Вывести массив в виде окружности . причём радиус этой окружности вводится с клавы.
Pascal ABC BooR 28.03.2012 21:08
Pascal ABC написать программу для описанной окружности вокруг квадрата и вписанной окружности в квадрат
написать программу для описанной окружности вокруг квадрата и вписанной окружности в квадрат
Pascal ABC Андрей89 17.02.2012 22:32
Pascal ABC Постройте две окружности, имитируя движение одной окружности по другой
Постройте на экране компьютера две окружности радиусов R1, R2 разных цветов, имитируя движение одной окружности по другой.
Pascal ABC Шарик 19.12.2011 16:47
Опции темы

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

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