Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 5.00
Karlen
0 / 0 / 1
Регистрация: 04.07.2012
Сообщений: 22
#1

Определить, принадлежит ли точка области, ограниченной окружностью - Turbo Pascal

12.07.2012, 11:46. Просмотров 1631. Ответов 6
Метки нет (Все метки)

уравнение окружности (x-x0)^2+(y-y0)^2=R^2,
где точка (х0,у0) -центр окружности, R-её радиус.
Принадлежит ли точка с координатами (х;у) указанной области?
Значит ее координаты (х;у) должны удовлетворять условию (x-x0)^2+(y-y0)^2 < = R^2

нужно написать программу для этой задачи
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.07.2012, 11:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, принадлежит ли точка области, ограниченной окружностью (Turbo Pascal):

Определить принадлежит ли точка (x,y) области
Составить программу для вычисления функции, используя условный оператор

Определить, принадлежит ли точка области
Составить функцию f(x,y) c выходным параметром логического типа,определяющую,...

Определить, принадлежит ли точка заданной области
Помогите пожалуйста решить задачу. Условие: Проверить, принадлежит ли точка...

Определить, принадлежит ли точка выделенной области?
Напишите эффективную программу которая по введённым с клавиатуры значениям...

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

Определить, принадлежит ли точка (x;y) заштрихованной области
Даны два числа x и y. Определить точку (x;y) заштрихованной области. ...

6
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
12.07.2012, 11:57 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
 
var x0,y0,x,y,r: real;
 
 
begin clrscr;
write('x0 = '); readln(x0);
write('y0 = '); readln(y0);
write('r = '); readln(r);
write('x = '); readln(x);
write('y = '); readln(y);
 
if sqr(x - x0) + sqr(y - y0) <= sqr(r) then
 writeln('Tochka (',x:0:2,',',y:0:2,') prinadlejit dannoi okrujnosti')
else
 writeln('Tochka (',x:0:2,',',y:0:2,') ne prinadlejit dannoi okrujnosti');
readkey; end.
0
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,313
12.07.2012, 12:04 #3
Цитата Сообщение от Керра Посмотреть сообщение
prinadlejit dannoi okrujnosti')
Лучше в данном случае так не писать, точка не обязательно принадлежит самой окружности, правильнее писать
принадлежит области, ограниченной окружностью, или принадлежит данному кругу.
0
Karlen
0 / 0 / 1
Регистрация: 04.07.2012
Сообщений: 22
12.07.2012, 12:08  [ТС] #4
а как можно решать эту задачу для 5-и точек?определять пренадлежат или нет данной окружности. и если не пренадлежат нужно увеличить окружность, чтобы пренадлежал.
0
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
12.07.2012, 12:22 #5
Puporev, вы правы, немножко не подумала. ну 10 минут уже прошли, так что пусть Karlen сам исправит.

Добавлено через 13 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
 
const maxn = 50;
 
var x,y: array [0..maxn] of real;
    r: real;
    n,i: integer;
    vse: boolean;
 
 
begin clrscr;
write('Kolichestvo tochek = '); readln(n);
write('r = '); readln(r);
for i:=0 to n do
 begin
 write('x',i,' = '); readln(x[i]);
 write('y',i,' = '); readln(y[i]);
 end;
 
vse:=true;
for i:=1 to n do
 if sqr(x[i] - x[0]) + sqr(y[i] - y[0]) > sqr(r) then
  begin
  vse:=false;
  r:=sqrt(sqr(x[i] - x[0]) + sqr(y[i] - y[0]));
  end;
 
if vse then writeln('Vse tochki prinadlejat oblasti, ogranichennoi dannoi okrujnostiu')
else
 begin
 writeln('Ne vse tochki prinadlejat oblasti, ogranichennoi dannoi okrujnostiu.');
 writeln('Trebuemyi radius = ',r:0:2);
 end;
readkey; end.
0
Karlen
0 / 0 / 1
Регистрация: 04.07.2012
Сообщений: 22
12.07.2012, 14:27  [ТС] #6
Керра обяснишь написанную тобой программу?

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
12.07.2012, 20:19 #7
ох... тут так просто, что я не знаю что тут можно объяснять. лучше задавай вопросы.
0
12.07.2012, 20:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2012, 20:19
Привет! Вот еще темы с решениями:

Определить, принадлежит ли точка закрашенной области
Для Данный Областей составить линейную программу которая печатает true если...

Определить, принадлежит ли точка закрашенной области
Помогите с программой через процедуру. На плоскости задана точка с...

Определить, принадлежит ли точка закрашенной области
Для Данный Областей составить линейную программу которая печатает true если...

Определить, принадлежит ли точка заштрихованной области
Здравствуйте )) помогите составить программу которая определяет принадлежит ли...


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

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

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