Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 09.02.2020
Сообщений: 2

Проверить, лежит ли точка внутри графика

09.02.2020, 07:20. Показов 3587. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
составить программу, определяющую принадлежность точки заштрихованной области.
Название: h9yhv8vumrA.jpg
Просмотров: 31

Размер: 12.0 Кб
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.02.2020, 07:20
Ответы с готовыми решениями:

Дана точка М( х,у ). проверить, лежит ли данная точка внутри закрашенной области, представленной на рисунке
Дана точка М( х,у ). проверить, лежит ли данная точка внутри закрашенной области, представленной на рисунке в виде круга. х=-3 до 3 у=-3 до...

Проверить, что точка с координатами (x,y)принадлежащий R лежит внутри кольца
решите пожалуйста Даны (x,y)принадлежащий R . Проверить, что точка с координатами (x,y)принадлежащий R лежит внутри кольца с общим...

Даны числа х, у, х1, у1, х2, у2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоуголь
Даны числа х, у, х1, у1, х2, у2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая...

7
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
09.02.2020, 08:22
Картинка очень плохая, хотите ответ, приложите что-то более понятное.
0
0 / 0 / 0
Регистрация: 09.02.2020
Сообщений: 2
09.02.2020, 13:06  [ТС]
0
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,411
09.02.2020, 17:28
Лучший ответ Сообщение было отмечено DOnbass132 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  x, y: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if (x > 0) and ((y >= 1 / x) and (y <= 10 - x * x) or (y <= 10 - x * x) and (y <= x * x - 10))) then
    write('В заштрихованной области')
  else write('Вне заштрихованной области');
  readln
end.
Вариант:
Pascal
8
  if (x > 0) and ((y >= 1 / x) and (y <= 10 - x * x) or (y <= -abs(10 - x * x))) then
Вариант без if, с печатью логического значения:
Pascal
8
9
10
  write('In area: ', (x > 0) and ((y >= 1 / x) and (y <= 10 - x * x) or (y <= -abs(10 - x * x))));
  readln
end.
0
Заблокирован
09.02.2020, 17:29
Pascal
1
if(y<=10-x*x)and((x>0)and(y>=1/x)or(x>=0)and(y<=-x*x-10))then...
0
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,411
09.02.2020, 19:06
Holiday13, неверно. Откуда Вы вообще взяли -x*x-10?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
10.02.2020, 16:06
DOnbass132,
по нижней части не видно, она до оси Oy (как сделано выше) или все же до 1/x.
0
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,411
10.02.2020, 22:18
bormant, я разглядел: штриховка распространяется до оси абсцисс, значит, и до оси ординат. Естественно, должно быть до функции 1/x, если это не так, то 1/x нарисована исключительно из-за любви к искусству. Или для ровного счёта, например.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.02.2020, 22:18
Помогаю со студенческими работами здесь

Лежит ли точка внутри треугольника?
Помогите!!!!!! Скоро сессия, а я не могу задачу решить. Ничего не понимаю в Паскаль. Буду очень благодарна,если кто-нибудь мне решит её....

Лежит ли точка с координатами (x,y) внутри треугольника.
Вершины треугольника имеют координаты (0,0) ,(0,a), (b,0). Определить, лежит ли точка с координатами (x,y) внутри треугольника

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

Определить лежит ли точка внутри или вне треугольника.
Помогите пожалуста !!!!!решить хоть одну задачу! №1 задано натуральное число .Записать его в обратном порядке.Например 12345 должно...

точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2)
Как Написать следующее выражение на языке Pascal: точка с координатами x и y лежит внутри круга радиуса 5 с центром в точке (5, 2). ...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru