Принадлежит ли точка закрашенной области

@Максим_макс · Регистрация: 12.03.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста дописать программу!!!Результатом работы программы
должно быть сообщение "точка с координатами значения принадлежит заданной
области" или "точка с координатами значения не принадлежит заданной области"

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
35
program zzz;
uses crt,graph;
const r=150
var x,y:real;
grm,grd:integer;
begin
clrscr;
grd:=detect;
initgraph(grm,grd,'c:');
circle(200,225,150);
setfillstyle(LtSlashFill,15);
sector(200,225,45,90,150,150);
sector(200,225,225,270,150,150);
line(25,225,375,225);
line(360,220,375,225);
line(375,225,360,230);
line(200,50,200,400);
line(200,50,195,65);
line(200,50,205,65);
line(200,225,110,105);
line(110,105,105,120);
line(110,105,125,107);
outtextxy(175,50,'Y');
outtextxy(375,250,'X');
outtextxy(175,150,'R');
outtextxy(235,210,'45');
outtextxy(140,250,'45');
arc(200,225,0,45,30);
arc(200,225,180,225,30);
 
then writeln('Prinimaet')
else writeln('ne prinimaet');
readln;
closegraph;
end.

@Puporev · 17.03.2013, 18:27

А зачем графический режим? В условии этого нет.

Добавлено через 8 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var r,x,y:real;
begin
clrscr;
write('r=');
readln(r);
writeln('Координаты точки');
readln(x,y);
if(x*x+y*y<=r*r)and(((x>=0)and(y>=x))or((x<=0)and(y<=x)))
then write('принадлежит') else write('не принадлежит');
readln
end.

@Максим_макс · 17.03.2013, 19:59 **[ТС]**

Puporev,я не могу никак нормально сделать чтобы это программа работала,не могу совместить свою и твое решение.

@Puporev · 17.03.2013, 20:04

Я не понял зачем ты это рисуешь, в задании же нет этого. Но если приспичило, то сначала реши, до входа в граф. режим, а когда нужно, выведи ответ.

@Максим_макс · 17.03.2013, 20:06 **[ТС]**

Puporev,как я понял граф не писать,так?

@Puporev · 17.03.2013, 20:07

Сообщение от Максим_макс

я понял граф не писать,так?

Ну в условии же этого нет?

@Максим_макс · 17.03.2013, 20:12 **[ТС]**

Puporev,ну смотри я убоал граф и ничего не рисуется,но мне надо чтобы окружность и все остальное выводилось на экран.

@Puporev · 18.03.2013, 10:57

С графикой в принципе так

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
program zzz;
uses crt,graph;
var r,x,y,m:real;
    grm,grd,xc,yc,i,x1,y1:integer;
    s,s1:string;
begin
clrscr;
repeat
write('R ot 5 do 9 r=');
readln(r);
until (r>=5)and(r<=9);
repeat;
writeln('Koordinaty tochki ot -10 do 10');
readln(x,y);
until(x>=-10)and(x<=10)and(y>=-10)and(y<=10);
if(x*x+y*y<=r*r)and(((x>=0)and(y>=x))or((x<=0)and(y<=x)))
then s:='prinadlezit' else s:='ne prinadlezit';
grd:=detect;
initgraph(grm,grd,'c:');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=(yc-30)/10;
line(xc-round(11*m),yc,xc+round(11*m),yc);
line(xc,10,xc,2*yc);
line(xc+round(11*m),yc,xc+round(11*m)-10,yc+5);
line(xc+round(11*m),yc,xc+round(11*m)-10,yc-5);
line(xc,10,xc-5,20);
line(xc,10,xc+5,20);
outtextXY(xc+round(11*m)-10,yc-20,'X');
outtextXY(xc+10,10,'Y');
outtextXY(xc+5,yc+10,'0');
for i:=1 to 10 do
 begin
  line(xc+round(i*m),yc-3,xc+round(i*m),yc+3);
  line(xc-round(i*m),yc-3,xc-round(i*m),yc+3);
  line(xc+3,yc-round(i*m),xc-3,yc-round(i*m));
  line(xc+3,yc+round(i*m),xc-3,yc+round(i*m));
  str(i,s1);
  outtextXY(xc+round(i*m),yc+10,s1);
  outtextXY(xc-round(i*m),yc+10,'-'+s1);
  outtextXY(xc-20,yc-round(i*m),s1);
  outtextXY(xc-25,yc+round(i*m),'-'+s1);
 end;
setcolor(9);
circle(xc,yc,round(r*m));
setfillstyle(LtSlashFill,9);
sector(xc,yc,45,90,round(r*m),round(r*m));
sector(xc,yc,225,270,round(r*m),round(r*m));
x1:=xc-round(r*sin(pi/4)*m);
y1:=yc-round(r*sin(pi/4)*m);
line(xc,yc,x1,y1);
line(x1,y1,x1+5,y1+1);
line(x1,y1,x1,y1+5);
outtextXY((x1+xc) div 2+5,(y1+yc) div 2-5,'R');
arc(xc,yc,0,45,20);
arc(xc,yc,180,225,20);
outtextXY(xc+25,yc-15,'45'+#248);
outtextXY(xc-45,yc+10,'45'+#248);
x1:=xc+round(x*m);
y1:=yc-round(y*m);
setcolor(12);
circle(x1,y1,2);
setfillstyle(1,12);
floodfill(x1,y1,12);
outtextXY(xc+round(r*m),yc+round(r*m),s);
readln
end.

@Максим_макс · 18.03.2013, 19:32 **[ТС]**

Puporev,а ты для кого Паскаля писал Free Pascal или нет?

@Puporev · 18.03.2013, 20:08

А самому проверить религия не позволяет? У меня работает во Фрее Паскале

@Максим_макс · 18.03.2013, 21:50 **[ТС]**

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

@PaniCa. · 18.03.2013, 22:56

Задание для того и дано, чтобы ты не визуально выполнил его, а написал условие при котором точка попадает в закрашенную область, и ничего рисовать не надо

@Puporev · 19.03.2013, 10:06

Максим_макс, Нет толку самому писать код, скопируй готовый в Блокнот, сохрани с расширением .pas и запусти программу.

@Максим_макс · 19.03.2013, 16:07 **[ТС]**

Puporev,вот так выходит,почему?

@Puporev · 19.03.2013, 16:17

Сообщение от Максим_макс

вот так выходит,почему?

Или у тебя Паскаль глючный, или руки не оттуда растут.

@Максим_макс · 19.03.2013, 17:29 **[ТС]**

Puporev,спасибо пажет видимо у меня Паскаль плоховатый.
Сможешь сделать вот это?

@Puporev · 19.03.2013, 17:41

Сообщение от Максим_макс

видимо у меня Паскаль плоховатый.

Раз моя программа работает, значит все таки руки...

@Максим_макс · 19.03.2013, 17:52 **[ТС]**

Puporev,так что поможешь?

@Puporev · 20.03.2013, 09:47

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
uses crt,graph;
const r1=1;
      r2=2;
var x0,y0,i,p,y,x1,y1:integer;
    x,m:real;
    s,s1:string;
begin
clrscr;
repeat
write('x=[-8..4] x=');
readln(x);
until(x>=-8)and(x<=4);
if (x<-7)then
 begin
  s:='y ne opredeleno';
  p:=-8
 end
else if (x>3)then
 begin
  s:='y ne opredeleno';
  p:=3
 end
else if(x>=-7)and(x<-6) then
 begin
  s:='y=1';
  p:=-7
 end
else if(x>=-6)and(x<-4)then
 begin
  s:='y=-x/2-2';
  p:=-6
 end
else if(x>=-4)and(x<0) then
 begin
  s:='y=sqrt(r2^2-(x+2)^2)';
  p:=-4
 end
else if(x>=0)and(x<=2) then
 begin
  s:='y=-sqrt(r1^2-(x-1)^2)';
  p:=0
 end
else
 begin
  s:='y=x+2';
  p:=2
 end;
initgraph(x0,y0,'');
setcolor(15);
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
x0:=round(getmaxX*8/12)-20;
y0:=getmaxY div 2;
m:=(getmaxX-80)/12;
setcolor(0);
line(30,y0,getmaxX-16,y0);
line(getmaxX-10,y0,getmaxX-15,y0-2);
line(getmaxX-10,y0,getmaxX-15,y0+2);
line(getmaxX-15,y0+2,getmaxX-15,y0-2);
setfillstyle(1,0);
floodfill(getmaxX-13,y0,0);
outtextXY(getmaxX-20,y0+10,'X');
line(x0,35,x0,getmaxY-30);
line(x0,30,x0+2,35);
line(x0,30,x0-2,35);
line(x0+2,35,x0-2,35);
floodfill(x0,33,0);
outtextXY(x0-15,30,'Y');
for i:=1 to 4 do
 begin
  line(x0+round(i*m),y0-3,x0+round(i*m),y0+3);
  str(i,s1);
  outtextXY(x0+round(i*m),y0-15,s1);
 end;
for i:=1 to 8 do
 begin
  line(x0-round(i*m),y0-3,x0-round(i*m),y0+3);
  str(i,s1);
  outtextXY(x0-round(i*m),y0+10,'-'+s1);
 end;
for i:=1 to 2 do
  begin
   line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
   str(i,s1);
   outtextXY(x0+5,y0-round(i*m),s1);
  end;
line(x0-3,y0+round(m),x0+3,y0+round(m));
outtextXY(x0+5,y0+round(m),'-1');
setlinestyle(0,0,3);
arc(x0-round(2*m),y0,0,180,round(r2*m));
arc(x0+round(m),y0,180,360,round(r1*m));
line(x0-round(7*m),y0-round(m),x0-round(6*m),y0-round(m));
line(x0-round(6*m),y0-round(m),x0-round(4*m),y0);
line(x0+round(2*m),y0,x0+round(3*m),y0+round(m));
setlinestyle(0,0,1);
x1:=x0+round(m)-round(r1*sin(pi/4)*m);
y1:=y0+round(r1*sin(pi/4)*m);
line(x0+round(m),y0,x1,y1);
line(x1,y1,x1+5,y1-8);
line(x1,y1,x1+8,y1-5);
outtextXY(x1+20,y1-15,'R1');
x1:=x0-round(2*m)-round(r2*sin(pi/4)*m);
y1:=y0-round(r2*sin(pi/4)*m);
line(x0-round(2*m),y0,x1,y1);
line(x1,y1,x1+8,y1+4);
line(x1,y1,x1+5,y1+8);
outtextXY(x1+25,y1+15,'R2');
setlinestyle(1,0,1);
line(x0-round(7*m),y0-round(m),x0-round(7*m),y0);
line(x0-round(6*m),y0-round(m),x0-round(6*m),y0);
line(x0-round(2*m),y0-round(2*m),x0-round(2*m),y0);
line(x0+round(3*m),y0+round(m),x0+round(3*m),y0);
line(x0-round(6*m),y0-round(m),x0,y0-round(m));
line(x0-round(2*m),y0-round(2*m),x0,y0-round(2*m));
line(x0+round(3*m),y0+round(m),x0,y0+round(m));
setcolor(12);
setfillstyle(1,12);
circle(x0+round(x*m),y0,2);
floodfill(x0+round(x*m),y0,12);
if p<-4 then y:=y0-round(m)-20
else if p=-4 then y:=y0-round(2*m)-20
else y:=y0+round(m)+20;
if p=3 then outtextXY(x0+round(p*m)-40,y,s)
else outtextXY(x0+round(p*m),y,s);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	17.03.2013, 19:59 [ТС]
	Puporev,я не могу никак нормально сделать чтобы это программа работала,не могу совместить свою и твое решение. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.03.2013, 20:04
	Я не понял зачем ты это рисуешь, в задании же нет этого. Но если приспичило, то сначала реши, до входа в граф. режим, а когда нужно, выведи ответ. 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	17.03.2013, 20:06 [ТС]
	Puporev,как я понял граф не писать,так? 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	17.03.2013, 20:12 [ТС]
	Puporev,ну смотри я убоал граф и ничего не рисуется,но мне надо чтобы окружность и все остальное выводилось на экран. 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	18.03.2013, 19:32 [ТС]
	Puporev,а ты для кого Паскаля писал Free Pascal или нет? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.03.2013, 20:08
	А самому проверить религия не позволяет? У меня работает во Фрее Паскале 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	18.03.2013, 21:50 [ТС]
	Puporev,я проверял не знаю почему-то только радиус выскакивает,и все,идет ввод радиуса в каждой строчке и не понимаю почему. 0

@PaniCa. 38 / 38 / 22 Регистрация: 29.10.2011 Сообщений: 95
	18.03.2013, 22:56
	Задание для того и дано, чтобы ты не визуально выполнил его, а написал условие при котором точка попадает в закрашенную область, и ничего рисовать не надо 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.03.2013, 10:06
	Максим_макс, Нет толку самому писать код, скопируй готовый в Блокнот, сохрани с расширением .pas и запусти программу. 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	19.03.2013, 16:07 [ТС]
	Puporev,вот так выходит,почему? Миниатюры 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	19.03.2013, 17:29 [ТС]
	Puporev,спасибо пажет видимо у меня Паскаль плоховатый. Сможешь сделать вот это? Миниатюры 0

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
	19.03.2013, 17:52 [ТС]
	Puporev,так что поможешь? 0