Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 14, средняя оценка - 4.79
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
#1

Круг и нахождение точки - Free Pascal

03.03.2009, 00:18. Просмотров 1794. Ответов 4
Метки нет (Все метки)

ммм ... прошу помощи.
Я как таковые круги и т.д. не изучал,но требуется сделать так как на картинке. но без графического режима с простой проверкой где точки внутри а где снаружи. при введении координат внутри - выдавал ('Точка внутри') и наоборот.
Помогите
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2009, 00:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Круг и нахождение точки (Free Pascal):

Нахождение точки в прямоугольнике. - Pascal
че то у меня не чего не выходит. ту ли я специальность выбрал?( вот три задачи. 1)Напишите программу простого тестирования....

Круг задается радиусом и координатами центра. Определить, найдется ли среди данных десяти кругов круг, лежащий внутри данного круга - Pascal
Народ, помогите кто может. Не могу никак написать эту программу. Буду очень благодарен.

Реализовать функции получения точки пересечения прямых, прямой, проходящей через две точки - Free Pascal
Здравствуйте, программисты! Мне снова попалась задача, условие которой я не могу понять и очень нуждаюсь в Вашем совете. Коды программы...

Даны координаты точки (x,y). Определить принадлежность заданной точки заштрихованной области, включая ее границы - Pascal
Ребята, помогите, пожалуйста, решить эти задачи. Желательно, ещё и объяснить,что именно найти. Заранее спасибо. p.s Плюс вложенные файлы...

На плоскости заданы три точки. вычислить площадь треугольника , вершинами которого являются эти точки - Free Pascal
на плоскости заданы три точки. вычислить площадь треугольника , вершинами которого являются эти точки. проверить , что эти точки лежат не...

Вывести номера строки и столбца какой-нибудь седловой точки или число 0, если такой точки нет - Pascal
Процедуры и функции на использовать. Задан числовой массив A размером N × M. Некоторый элемент этого массива называется седловой...

4
Yurii_74
paladin
283 / 183 / 3
Регистрация: 25.02.2009
Сообщений: 592
03.03.2009, 06:58 #2
Ну и в чем проблема?
Пусть r - радиус, cx, cy - центр круга,
x, y - координаты проверяемой точки,
тогда для проверки вхождения в область нужно выполнить сравнение:

sqrt( (cx - x)^2 + (cy - y)^2) < r

Сдесь sqrt - корень квадратный (с паскалем давно не общался).

Для твоего рисунка также необходимо выполнить сравнение y с положением линии (пусть она находится на высоте h). В окончательном виде должно получиться что-то такое:

ЕСЛИ ( sqrt( (cx - x)^2 + (cy - y)^2) < r И y < h) ТО внутри.
1
schdub
3013 / 1358 / 265
Регистрация: 19.01.2009
Сообщений: 3,602
Завершенные тесты: 1
03.03.2009, 07:04 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses CRT;
 
var x, y : REAL;
    f    : boolean;
 
begin
  ClrScr;
 
  WriteLn('Введите X Y'); ReadLn(x, y);
 
  f := False;
 
  if (y<=1) and (sqrt(sqr(x)+sqr(y))<=2) then f:=True;
 
  if f then
    WriteLn('Точка внутри.')
  else
    WriteLn('Точка снаружи.');
 
  ReadLn;
end.
1
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
03.03.2009, 10:20  [ТС] #4
Yurii_74,xitNightMare
Ребята,выручили !!!
0
marty0701
43 / 10 / 3
Регистрация: 20.04.2009
Сообщений: 32
20.04.2009, 18:07 #5
Сорри, что вмешиваюсь, парни, подскажите как бы сделать нечто похожее, только у меня нет радиуса, а найти нужно радиус и центр окружности, на которой лежит наибольшее число точек заданного на плоскости множества точек. Соответственно также без графического режима. Уже голову поломал.
0
20.04.2009, 18:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2009, 18:07
Привет! Вот еще темы с ответами:

Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки, наиболее удаленной от начала координат - Pascal
Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки, наиболее удаленной от начала координат,...

круг - Pascal
необходимо сделать чтобы * звездочка ходила кругами...появляется...исчезает и передвигается ниже по траектории круга...через gotoxy...

круг квадрат - Pascal
задан круг площыдью А и квадрат площадью В написать программу проверяющуюпоместится ли круг в квадрат или наоборот

Нарисовать круг - Free Pascal
Мне надо нарисовать круг точками. Чтобы у него верхняя Левая часть круга - красные точки, Левая нижняя - зелеными, правая верхняя - синяя,...


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

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

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