Написать программу определения факта попадания точки M

@Александрtuz · Регистрация: 03.03.2014

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

Написать программу определения факта попадания точки М(x,y) в заштрихованную область ,изображенного на рисунке , где х и y -рациональные числа.
Вот рисунок. Паскаль АВС.
Помогите пожалуйста)

@Francleene · 07.03.2014, 16:20

что за график на рисунке?

@Александрtuz · 07.03.2014, 16:40 **[ТС]**

В смысле ? Вот, дан график, по нему нужно решить

Не открывается картинка ?)

@aex · 07.03.2014, 16:46

я предполагаю, что график - парабола $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}-1$
тебе надо лишь сделать проверку, что $https://www.cyberforum.ru/cgi-bin/latex.cgi?0 \leq y\leq 3$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}-1 \geq y$
если включать границы, то надо знаки $https://www.cyberforum.ru/cgi-bin/latex.cgi?\leq$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?\geq$ , если не включать, то просто $https://www.cyberforum.ru/cgi-bin/latex.cgi?<$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?>$ соответственно

@Puporev · 07.03.2014, 16:48

Вроде как y=exp(ln(abs(x))*ln(6)/ln(3))

@Александрtuz · 07.03.2014, 16:48 **[ТС]**

Напишите пожалуйста полностью программу)

@aex · 07.03.2014, 16:51

вот код

Pascal
1
2
3
4
5
6
var x,y:real;
begin
readln(x,y);
if ((y>=0)and(y<=3)and(x*x-1>=y)) then writeln('принадлежит')
else writeln('не принадлежит')
end.

@Александрtuz · 07.03.2014, 16:53 **[ТС]**

Спасибо огромное )

@Puporev · 07.03.2014, 16:55

aexА сколько будет 3*3-1? По условию на графике 5

@aex · 07.03.2014, 17:05

ну вообще да...
просто обычно не дают какие то сложные функции

@Puporev · 07.03.2014, 17:07

Pascal
1
2
3
4
5
6
var x,y:real;
begin
readln(x,y);
if (abs(x)>=1)and(y>=0)and(y<=5)and(y<=exp(ln(abs(x))*ln(6)/ln(3))-1)
then writeln('принадлежит')else writeln('не принадлежит')
end.

Вот график

@Puporev · 07.03.2014, 17:08

Сообщение от aex

просто обычно не дают какие то сложные функции

Ну вот, и дождались...

@aex · 07.03.2014, 17:08

тогда так

Pascal
1
2
3
4
5
6
var x,y:real;
begin
readln(x,y);
if ((y>=0)and(y<=5)and(exp(ln(abs(x))*ln(6)/ln(3))>=y)) then writeln('принадлежит')
else writeln('не принадлежит')
end.

@Puporev · 07.03.2014, 17:10

Кстати ходит задача с пересечением эллипса и окружности, так я как-то еле решил, там еще те расчеты...

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

Сообщение от aex

тогда так

нет не так, запусти свой код при х=0. Да и еще неточности есть.

@aex · 07.03.2014, 17:13

Puporev, ах да, точно..
без (abs(x)>=1) никак

@Puporev · 07.03.2014, 17:15

Ну и без -1

Pascal
1
y<=exp(ln(abs(x))*ln(6)/ln(3))-1

тоже неверно

@Александрtuz · 07.03.2014, 21:18 **[ТС]**

Ребят, а можно решить эту задачу без "abs, exp и ln". А то мы это даже не проходили(

@Francleene · 08.03.2014, 07:30

Сообщение от Александрtuz

Ребят, а можно решить эту задачу без "abs, exp и ln". А то мы это даже не проходили(

Попробуй вот так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
x,y:real;
begin
readln(x,y);
if (y<0) or (y>5) then
writeln('не принадлежит')
else
if (sqr(x)-1<y) then
writeln('не принадлежит')
else
writeln('принадлежит')
end.

@Puporev · 08.03.2014, 07:39

Pascal
1
if (sqr(x)-1<y) then

но при х=3 это равно 8, а не 5 как на приведенном графике. Или график на картинке неверный или это

Сообщение от Александрtuz

А то мы это даже не проходили(

просто вранье...

@Francleene · 08.03.2014, 08:30

Сообщение от Puporev

Или график на картинке неверный

Скорее всего. Просто этот человек даже не назвал что это за график.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

Написать программу определения факта попадания точки M

Решение

Решение

@Александрtuz 0 / 0 / 0 Регистрация: 03.03.2014 Сообщений: 6

	Написать программу определения факта попадания точки M 07.03.2014, 16:00. Показов 6464. Ответов 20 Метки нет (Все метки) Написать программу определения факта попадания точки М(x,y) в заштрихованную область ,изображенного на рисунке , где х и y -рациональные числа. Вот рисунок. Паскаль АВС. Помогите пожалуйста) Миниатюры 0

@Francleene 9 / 9 / 13 Регистрация: 23.02.2014 Сообщений: 37
	07.03.2014, 16:20
	что за график на рисунке? 1

@Александрtuz 0 / 0 / 0 Регистрация: 03.03.2014 Сообщений: 6
	07.03.2014, 16:40 [ТС]
	В смысле ? Вот, дан график, по нему нужно решить Не открывается картинка ?) 0

@aex 89 / 78 / 62 Регистрация: 06.03.2014 Сообщений: 230
	07.03.2014, 16:46
	я предполагаю, что график - парабола $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}-1$ тебе надо лишь сделать проверку, что $https://www.cyberforum.ru/cgi-bin/latex.cgi?0 \leq y\leq 3$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}-1 \geq y$ если включать границы, то надо знаки $https://www.cyberforum.ru/cgi-bin/latex.cgi?\leq$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?\geq$ , если не включать, то просто $https://www.cyberforum.ru/cgi-bin/latex.cgi?<$ и $https://www.cyberforum.ru/cgi-bin/latex.cgi?>$ соответственно 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	07.03.2014, 16:48
	Вроде как y=exp(ln(abs(x))*ln(6)/ln(3)) 1

@Александрtuz 0 / 0 / 0 Регистрация: 03.03.2014 Сообщений: 6
	07.03.2014, 16:48 [ТС]
	Напишите пожалуйста полностью программу) 0

@Александрtuz 0 / 0 / 0 Регистрация: 03.03.2014 Сообщений: 6
	07.03.2014, 16:53 [ТС]
	Спасибо огромное ) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	07.03.2014, 16:55
	aexА сколько будет 3*3-1? По условию на графике 5 0

@aex 89 / 78 / 62 Регистрация: 06.03.2014 Сообщений: 230
	07.03.2014, 17:05
	ну вообще да... просто обычно не дают какие то сложные функции 0

@aex 89 / 78 / 62 Регистрация: 06.03.2014 Сообщений: 230
	07.03.2014, 17:13
	Puporev, ах да, точно.. без (abs(x)>=1) никак 0

@Александрtuz 0 / 0 / 0 Регистрация: 03.03.2014 Сообщений: 6
	07.03.2014, 21:18 [ТС]
	Ребят, а можно решить эту задачу без "abs, exp и ln". А то мы это даже не проходили( 0