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

@Amir97 · Регистрация: 28.11.2015

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

Условие:

Составить программу, которая печатает true, если точка с координатами (x, y) принадлежит заштрихованной области, и false в противном случае

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x,y: real;
    x1,y1: string;
    p: integer;
begin
repeat
write('Введи координату по оси x:');
readln(x1);
val(x1,x,p);
until p=0;
repeat
write('Введи координату по оси y:');
readln(y1);
val(y1,y,p);
until p=0;
if (x>=-8) and (x<=8) and (y>=-8) and (y<=8) and (NOT ((x>=0) and (x<=6) and (y>=0) and (y<=-x+6) and (sqr(x-4)+sqr(y-4)=9))) then 
writeln('Точка принадлежит')
else writeln('Точка не принадлежит');
end.

@Puporev · 28.11.2015, 10:10

Параметры круга на картинке вообще не видны.
Если предположить что координаты центра (-4,4) и радиус=3, то так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x,y: real;
    x1,y1: string;
    p: integer;
begin
repeat
write('Введи координату по оси x:');
readln(x1);
val(x1,x,p);
until p=0;
repeat
write('Введи координату по оси y:');
readln(y1);
val(y1,y,p);
until p=0;
if(sqr(x+4)+sqr(y-4)<=9)or((x>=0)and(y>=0)and(y<=-x+6))
then writeln('Точка принадлежит')
else writeln('Точка не принадлежит');
end.

Добавлено через 2 минуты
Если точно по условию, то так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x,y: real;
    x1,y1: string;
    p: integer;
    f:boolean;
begin
repeat
write('Введи координату по оси x:');
readln(x1);
val(x1,x,p);
until p=0;
repeat
write('Введи координату по оси y:');
readln(y1);
val(y1,y,p);
until p=0;
f:=(sqr(x+4)+sqr(y-4)<=9)or((x>=0)and(y>=0)and(y<=-x+6));
writeln(f)
end.

@Amir97 · 28.11.2015, 10:14 **[ТС]**

Прошу прощения, точка должна принадлежать закрашенно

@Puporev · 28.11.2015, 10:15

Pascal
1
f:=not (sqr(x+4)+sqr(y-4)<=9)or((x>=0)and(y>=0)and(y<=-x+6));

@Amir97 · 28.11.2015, 10:16 **[ТС]**

Прошк прощения, точка должна принадлежать закрашенной области и не принадлежать белой,
т.е. закрашеная - true, белая - false.
тут то и проблемы, на белой у меня выдает true.

@Puporev · 28.11.2015, 10:17

Точнее

Pascal
1
f:=not ((sqr(x+4)+sqr(y-4)<=9)or((x>=0)and(y>=0)and(y<=-x+6)));

@Amir97 · 28.11.2015, 10:20 **[ТС]**

ок, с кругом работает, но с теругольноком нет. Задаешь к примеру, [1,1] и говорит принадлежит.

@Puporev · 28.11.2015, 10:23

Пишите внимательнее, у меня так

@Puporev · 28.11.2015, 10:26

Вот полностью правильный код.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var x,y: real;
    x1,y1: string;
    p: integer;
    f:boolean;
begin
writeln(' ');
repeat
write('Ââåäè êîîðäèíàòó ïî îñè x:');
readln(x1);
val(x1,x,p);
until p=0;
repeat
write('Ââåäè êîîðäèíàòó ïî îñè y:');
readln(y1);
val(y1,y,p);
until p=0;
f:=not ((sqr(x+4)+sqr(y-4)<=9)or((x>=0)and(y>=0)and(y<=-x+6)));
writeln(f)
end.

@Amir97 · 28.11.2015, 10:30 **[ТС]**

хах, заменил свою строчку на такую же вашу и все заработало) видимо не заметил какую-то мелочь.
Большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Amir97 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 6
	28.11.2015, 10:14 [ТС]
	Прошу прощения, точка должна принадлежать закрашенно 0

@Amir97 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 6
	28.11.2015, 10:16 [ТС]
	Прошк прощения, точка должна принадлежать закрашенной области и не принадлежать белой, т.е. закрашеная - true, белая - false. тут то и проблемы, на белой у меня выдает true. 0

@Amir97 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 6
	28.11.2015, 10:20 [ТС]
	ок, с кругом работает, но с теругольноком нет. Задаешь к примеру, [1,1] и говорит принадлежит. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	28.11.2015, 10:23
	Пишите внимательнее, у меня так Миниатюры 0

@Amir97 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 6
	28.11.2015, 10:30 [ТС]
	хах, заменил свою строчку на такую же вашу и все заработало) видимо не заметил какую-то мелочь. Большое спасибо! 0