Попадание точки в области окружности и эллипса

@mitua1221 · Регистрация: 07.11.2015

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

Есть 2 программы. Разные в них только формулы. Почему во втором случае компилятор паскальАБС выдает ошибку?

Второй день не могу понять, что не так, поэтому обращаюсь к знатокам.

Программа 1 работает, программа 2 - нет. Условия чуть-чуть разные, но это не суть важно.

Ошибка второй программы: нельзя преобразовать тип real к boolean. Строка 16.

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
Program p1;
uses crt;
var
X, Y : real;
begin
writeln ('Введите значение X');
readln (X);
writeln ('Введите значение Y');
readln (Y);
 
// Область 1:
if ((Y >= 31.8647 - 2.94677*X) and 
(X >=0) and 
(Y>=0) and
(sqr(X-2*(-15+4*Sqrt(17))) + sqr(Y+1) <= sqr(33)) and
((sqr(X-15))/(sqr(33)) + (sqr(Y - (-297+80*Sqrt(6))/11))/(sqr(20)) >= 1))
then
writeln ('Заданная точка принадлежит области')
else
// Область 2:
if ((X <= 0) and 
(Y <= 0) and
(sqr(X-2*(-15+4*Sqrt(17))) + sqr(Y+1) <= sqr(33)) and
((sqr(X-15))/(sqr(33)) + (sqr(Y - (-297+80*Sqrt(6))/11))/(sqr(20)) >= 1))
then
writeln ('Заданная точка принадлежит области')
else
writeln ('Заданная точка не принадлежит области');
end.

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
Program p2;
uses crt;
var
X, Y : real;
begin
writeln ('Введите значение X');
readln (X);
writeln ('Введите значение Y');
readln (Y);
 
// Область 1:
if ((Y >= 10.1336 - 0.4604*X) and 
(X >= 0) and 
(Y >= 0) and
(sqr(X-1) + sqr(Y-((-40+sqrt(3840))/2)) <= sqr(31)) and
((sqr(X - ((-3600 + sqrt(8057520))/90)))/(sqr(31))) + ((sqr(Y+7))/(sqr(38))) >= 1)
then
writeln ('Заданная точка принадлежит области')
else
// Область 2:
if ((Y <= 10.1336 - 0.4604*X) and 
(X <= 0) and 
(Y >= 0) and
(sqr(X-1) + sqr(Y-((-40+sqrt(3840))/2)) <= sqr(31)) and
((sqr(X - ((-3600 + sqrt(8057520))/90)))/(sqr(31))) + ((sqr(Y+7))/(sqr(38))) >= 1)
then
writeln ('Заданная точка принадлежит области')
else
writeln ('Заданная точка не принадлежит области');
end.

@Puporev · 07.11.2015, 15:27

Неверно записано выражение во второй программе, не соответствуют открывающие и закрывающие скобки, , чтобы поправить, нужен исходник этой формулы.

@mitua1221 · 09.11.2015, 14:49 **[ТС]**

Большое спасибо, что время уделили. Вот исходник формулы элипса.Вложение 598801

@Puporev · 09.11.2015, 15:40

Много раз видел эту картинку на форуме и ни разу не видел чтобы кто-то решил эту задачу полностью, ни в Паскале ни в Математике. Тут нужно решить уравнения и найти координаты всех нужных точек пересечений кривых между собой и с осями. Составить уравнения окружности и эллипса.
Ну а потом уже определить принадлежность точки заданной области.
Из этой картинки непонятно откуда взялся тот код.

@mitua1221 · 09.11.2015, 16:12 **[ТС]**

В математике-ничего сложного.

Попадание точки в области окружности и эллипса

Это уравнение прямого и элипса. Также напсиал уравнение прямой, но скидывать неоткуда(листок потерял).

12, 21 строчки-уравнение прямой
15, 24 строчки-уравнение окружности
16, 25 строчки-уравнение элипса

@mitua1221 · 09.11.2015, 16:56 **[ТС]**

В общем, я решил. Вы были правы, ошибка в скобках. Если интересно, как решил-пишите.

@Puporev · 09.11.2015, 16:58

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

Если интересно

Ну конечно интересно и не только мне. Публикуйте код.

@mitua1221 · 09.11.2015, 17: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
Program mitua1221;
var
X, Y : real;
begin
writeln ('Введите значение X');
readln (X);
writeln ('Введите значение Y');
readln (Y);
 
// Область 1:
if ((Y >= 10.1336 - 0.4604*X) and 
(X >= 0) and 
(Y >= 0) and
((sqr(X-1) + sqr(Y-((-40+sqrt(3840))/2))) <= sqr(31)) and
(((sqr(X - ((-3600 + sqrt(8057520))/90)))/(sqr(31))) + ((sqr(Y+7))/(sqr(38))) >= 1))
then
writeln ('Заданная точка принадлежит области')
else
// Область 2:
 
if ((Y <= 10.1336 - 0.4604*X) and 
(X <= 0) and 
(Y >= 0) and
(sqr(X-1) + sqr(Y-((-40+sqrt(3840))/2)) <= sqr(31)) and
(((sqr(X - ((-3600 + sqrt(8057520))/90)))/(sqr(31))) + ((sqr(Y+7))/(sqr(38))) <= 1))
then
writeln ('Заданная точка принадлежит области')
else
writeln ('Заданная точка не принадлежит области');
end.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии 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. . . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.11.2015, 15:27
	Неверно записано выражение во второй программе, не соответствуют открывающие и закрывающие скобки, , чтобы поправить, нужен исходник этой формулы. 0

@mitua1221 0 / 0 / 0 Регистрация: 07.11.2015 Сообщений: 5
	09.11.2015, 14:49 [ТС]
	Большое спасибо, что время уделили. Вот исходник формулы элипса.Вложение 598801 Миниатюры 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.11.2015, 15:40
	Много раз видел эту картинку на форуме и ни разу не видел чтобы кто-то решил эту задачу полностью, ни в Паскале ни в Математике. Тут нужно решить уравнения и найти координаты всех нужных точек пересечений кривых между собой и с осями. Составить уравнения окружности и эллипса. Ну а потом уже определить принадлежность точки заданной области. Из этой картинки непонятно откуда взялся тот код. 0

@mitua1221 0 / 0 / 0 Регистрация: 07.11.2015 Сообщений: 5
	09.11.2015, 16:12 [ТС]
	В математике-ничего сложного. Это уравнение прямого и элипса. Также напсиал уравнение прямой, но скидывать неоткуда(листок потерял). 12, 21 строчки-уравнение прямой 15, 24 строчки-уравнение окружности 16, 25 строчки-уравнение элипса 0

@mitua1221 0 / 0 / 0 Регистрация: 07.11.2015 Сообщений: 5
	09.11.2015, 16:56 [ТС]
	В общем, я решил. Вы были правы, ошибка в скобках. Если интересно, как решил-пишите. 0