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

Turbo Pascal

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

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

12.07.2012, 11:46. Просмотров 1580. Ответов 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):

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

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

Определить, принадлежит ли точка закрашенной области - Turbo Pascal
Помогите с программой через процедуру. На плоскости задана точка с координатами (x, y). Определить, принадлежит ли она заштрихованной...

Определить, принадлежит ли точка заштрихованной области - Turbo Pascal
Здравствуйте )) помогите составить программу которая определяет принадлежит ли точка с координатами (x,y)заштрихованной области.Координаты...

Определить, принадлежит ли точка (x;y) заштрихованной области - Turbo Pascal
Помогите написать программу определения принадлежности точки М(x,y) заштрихованной области изображенной на рисунке( уравнение окружности...

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

6
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
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
Модератор
52823 / 40634 / 13883
Регистрация: 18.05.2008
Сообщений: 94,253
12.07.2012, 12:04 #3
Цитата Сообщение от Керра Посмотреть сообщение
prinadlejit dannoi okrujnosti')
Лучше в данном случае так не писать, точка не обязательно принадлежит самой окружности, правильнее писать
принадлежит области, ограниченной окружностью, или принадлежит данному кругу.
0
Karlen
0 / 0 / 0
Регистрация: 04.07.2012
Сообщений: 22
12.07.2012, 12:08  [ТС] #4
а как можно решать эту задачу для 5-и точек?определять пренадлежат или нет данной окружности. и если не пренадлежат нужно увеличить окружность, чтобы пренадлежал.
0
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
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 / 0
Регистрация: 04.07.2012
Сообщений: 22
12.07.2012, 14:27  [ТС] #6
Керра обяснишь написанную тобой программу?

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
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
Привет! Вот еще темы с ответами:

Определить, принадлежит ли точка выделенной области - Turbo Pascal
Помогите пожалуйста выполнить это задание: Требовалось написать программу, при выполнении которой с клавиатуры считывается...

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

Определить, принадлежит ли точка заданной области - Turbo Pascal
Помогите пожалуйста решить задачу. Условие: Проверить, принадлежит ли точка M(x;y) заданной области. Изображения загружайте на форум в...

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


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

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

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