Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Принадлежит ли точка (x,y) круговому кольцу, не могу составить алгоритм 
:(
    Опции темы
GaGu
  Дата 24.3.2008, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 22.7.2007

Репутация: нет
Всего: нет
Всем доброго времени суток! Вообщем передо мной стоит следующая задача: определить, принадлежит ли точка (x,y) круговому кольцу с центром в начале координат и внутренним радиусом r, а внешним радиусом R. Самому никак не дается решить эту задачку. Всем кто сможет помочь заранее спасибо.
P.S Желательно поподробней объяснить, а то я в программировании на Паскале новичок. Если можно, то приведите плиз полный листинг проги. smile 
PM MAIL   Вверх
profispb
Дата 24.3.2008, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 27.12.2005
Где: Санкт - Петербург

Репутация: нет
Всего: 1
Для начала тут не программирование надо, а чистая математика!
И вообще существует Центр-Помощи для подобных задач.... извени что так критично, но эт действительно глупо!))
--------------------
В жизни, я люблю делать, то что я люблю. А не то что модно, престижно и выгодноЛюблю когда начинает работать, то что без меня не работало!
PM MAIL ICQ   Вверх
Alix
Дата 24.3.2008, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: нет
Всего: 23
ну разъясню что ли математику, прогу лень писать. Вот есть точка начала координат - (x0, y0). Может она у Вас будет (0, 0), но для общности не буду так делать. Надо выяснить расстояние от точки (x, y) до (x0, y0). Получаем:
d = Sqrt(Sqr(x - x0) + Sqr(y - y0)); 
Sqrt - это корень квадратный, а Sqr - это возведение в квадрат. Соответственно все что осталось - проверить, чтобы (d >= r) and (d <= R). 


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
profispb
Дата 24.3.2008, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 27.12.2005
Где: Санкт - Петербург

Репутация: нет
Всего: 1
Цитата(Alix @ 24.3.2008,  17:06)
ну разъясню что ли математику, прогу лень писать. Вот есть точка начала координат - (x0, y0). Может она у Вас будет (0, 0), но для общности не буду так делать. Надо выяснить расстояние от точки (x, y) до (x0, y0). Получаем:
d = Sqrt(Sqr(x - x0) + Sqr(y - y0)); 
Sqrt - это корень квадратный, а Sqr - это возведение в квадрат. Соответственно все что осталось - проверить, чтобы (d >= r) and (d <= R).

Ну что же, тогда я прогу напишу, пускай человек радуется!
Код

Program tochka;
uses crt;
var x0,y0,x,y,d,R,r:real;
BEGIN
clrscr;
Writeln('Попадет ли точка в кольцо');
Wriite('Введите координаты точки: ');
Read(x,y);
x0:=0;
y0:=0;
R:={Здесь задать внешний радиус};
r:={Здесь задать внутренний радиус};
d = Sqrt(Sqr(x - x0) + Sqr(y - y0));
if (d>=r) and (d<=R) then
begin
Write('Заданная точка попадает в кольцо');
end
else 
begin
Write('Заданная точка не попадает в кольцо');
end;
writeln;
Write('Нажмите любую клавишу');
END.


Добавлено через 1 минуту и 19 секунд
Должна работать вроде как правильно написал, просто Паскаль давно изучал.... писал соответственно без компилятора со смартфона!))
--------------------
В жизни, я люблю делать, то что я люблю. А не то что модно, престижно и выгодноЛюблю когда начинает работать, то что без меня не работало!
PM MAIL ICQ   Вверх
Alix
Дата 24.3.2008, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: нет
Всего: 23
Может вру, но Sqrt в паскале есть, а Sqr - нет. Но вроде есть Pow.


--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
profispb
Дата 24.3.2008, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 27.12.2005
Где: Санкт - Петербург

Репутация: нет
Всего: 1
Цитата(Alix @ 24.3.2008,  21:49)
Может вру, но Sqrt в паскале есть, а Sqr - нет. Но вроде есть Pow.

Врешь Pow эт в С/С++.
--------------------
В жизни, я люблю делать, то что я люблю. А не то что модно, престижно и выгодноЛюблю когда начинает работать, то что без меня не работало!
PM MAIL ICQ   Вверх
Alix
Дата 24.3.2008, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


L45
**


Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: нет
Всего: 23
Цитата(profispb @  24.3.2008,  22:47 Найти цитируемый пост)
Врешь Pow эт в С/С++.
Ага, точно. В паскале для возведения в степень x^y использовался фокус Exp(y * Ln(x)).
А Sqr в паскале есть. Что-то я попутал.



--------------------
Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0666 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.