Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
artem08011997
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 16
1

Сколько окружностей пересекают заданную

18.10.2013, 23:05. Просмотров 364. Ответов 3
Метки нет (Все метки)

Окружность с центром M в начале координат имеет радиус.Вводя последовательно координаты N точек, являющихся центрами других окружностей того же радиуса, определить сколько из этих окружностей пересекают заданную.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2013, 23:05
Ответы с готовыми решениями:

В массиве из N чисел - радиусов окружностей, выделить те, для которых площади окружностей S >= 100
В массиве из N чисел( N и числа вводятся с клавиатуры и представляют собой r окружностей)...

Вычислить длины двух окружностей и площадь кольца, образованного из этих окружностей
Очень нужна ваша помощь. Вычислите длины двух окружностей с радиусами R и r, а также площадь...

Сколько слов в тексте заканчивается на заданную букву
сколько слов в тексте заканчивается на заданную букву...

Подсчитать, сколько слов в тексте оканчивается на заданную букву
Подсчитать, сколько слов в тексте «Если для всех трех сторон произведение положительно»...

Определить, через сколько лет вклад превысит заданную сумму
Напишите программу для решения следующей задачи: Процентная ставка по вкладу – 15% годовых....

3
Stepler
14 / 14 / 1
Регистрация: 27.11.2007
Сообщений: 132
18.10.2013, 23:27 2
Pascal
1
if(sqrt(sqr(Xm-Xn) + sqr(Ym-Yn)) < radiusM) then writeln('Пересекает');
Уссловие: если растояние точки M к точке N меньше радиуса окружности с центром в точке M значит пересекает
Xm,Ym координаты центра окружности с центром в точке M
Xn,Yn координаты центра окружности с центром в точке N
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
19.10.2013, 13:10 3
Цитата Сообщение от Stepler Посмотреть сообщение
Уссловие: если растояние точки M к точке N меньше радиуса окружности с центром в точке M значит пересекает
Это неверно.
если расстояние от точки N до точки M меньше двух радиусов окружностей(они все одинаковы)
0
Kam_1995
32 / 32 / 22
Регистрация: 23.03.2013
Сообщений: 175
19.10.2013, 13:33 4
Цитата Сообщение от Puporev Посмотреть сообщение
если расстояние от точки N до точки M меньше двух радиусов окружностей(они все одинаковы)
Согласен!
Pascal
1
if(sqrt(sqr(Xm-Xn) + sqr(Ym-Yn)) <= rM+rN) then writeln('Пересекает');
Добавлено через 46 секунд
Так как они ровны, то 2*r

Добавлено через 12 минут
Основная прога:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var  r,n,i,x,y: integer;
 
BEGIN
clrscr;
write('Vvedite radius okrujnosti s centrom v nachale koordinat: ');
readln(r);
write('Skolko okrujnostey imeyetsa v sisteme? ');
readln(n);
for i:=1 to n do begin
write('Vvedite koordinati centra ',i,'-oy okrujnosti (x,y): ');
read(x,y);
if (sqrt(x*x + y*y)<=2*r) then writeln('Peresekayet!')
else writeln('Ne peresekayet!');
end;
 
repeat until keypressed;
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2013, 13:33

Определить сколько в отделе сотрудников, фамилии которых начинаются на заданную букву
Не хватает времени сделать, помогите, пожалуйста, &quot;Определить сколько в отделе сотрудников, ...

Даны две функции: y=ax^2+bx+c и z=x^3+dx^2+ex+f. Выяснить в каких точках их графики пересекают оси Ox и Oy , а также пересекаются между собой
Даны две функции: y=ax^2+bx+c и z=x^3+dx^2+ex+f. Выяснить в каких точках их графики пересекают оси...

Найдите заданную строку и заданную колонку двумерного массива А(4, 6). Напечатайте их
Найдите заданную строку и заданную колонку двумерного массива А(4, 6). Напечатайте их....


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

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