Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

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



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

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

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

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

Цитата Сообщение от hdrd Посмотреть сообщение
Радиус маленьких окружностей можно вычислить так:
l/2n, где n - количество окружностей, а l длина исходной окружности, радиус которой мы задаем (l=2*pi*R)
А откуда это взялось? О_о
Сдается мне, что сие неверно..
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь студентам и школьникам в решении задач.
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
Форумчанин
 
Аватар для 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Pascal ABC Вывести массив в виде окружности. Радиус окружности ввести с клавиатуры
Вывести массив в виде окружности . причём радиус этой окружности вводится с клавы.
BooR
Pascal ABC написать программу для описанной окружности вокруг квадрата и вписанной окружности в квадрат
написать программу для описанной окружности вокруг квадрата и вписанной окружности в квадрат
Андрей89
Delphi для начинающих Пересечение прямой и окружности. Прямая проходит через центр окружности
Есть окружность с центром О. Известны координаты ее центра. Известен радиус. Есть Точка А (которая выбирается мышью) Можно как-нибудь найти координаты точки пересечения окружности О с прямой AO (у меня AO - отрезок, сути это наверное не меняет). Если можно так, то как это сделать..? var ...
daslex
Pascal ABC Постройте две окружности, имитируя движение одной окружности по другой
Постройте на экране компьютера две окружности радиусов R1, R2 разных цветов, имитируя движение одной окружности по другой.
Шарик
Turbo Pascal составить программу вычисления площади окружности и длины окружности
Помогите,пожалуйста,составить программу Turbo Pascal 1.ввести с клавиатуры велечину радиуса,на экран выдать длину окружности 2.задать с клавиатуры натуральное число N.Найти среднее арифметическое чисел ряда 1,2...N,котрые делятся на 4.На экран выдать эти числа и их среднее арифметическое....
Динарк
Опции темы

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

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