Принадлежность точки заштрихованной области. Турбо Паскаль 7.0

neio · 08.10.2014, 01:48

Необходима программа, которая будет получать введенную координату (x и y ) и сравнивать эту координату с координатами заштрихованной области фигуры и на основании этого делать вывод о принадлежности/не принадлежности точки к заштрихованной области. Написал, программа корректно работает в пределах рисунка, но если, к примеру ввести x=100 и y=1000, она выдаст, что точка принадлежит

Как задать приделы границ квадрата? Скажем, чтобы программа считала все координаты больше 3 по y и по x как невходящие. Помогите, уже идей совсем нет, похоже,что перемудрил с условиями

Код:

Program example1;
Uses crt;
Var x,y: real;
Begin
Clrscr;
Writeln('vvedite x,y');
Readln (x,y);
If ((sqr(x)+sqr(y))<=4) and (x>=-3) and (x<=3) and (y>=0) and (y<=3) then
writeln('ne vxodit')
else
writeln('vxodit');
readln;
end.

Фото фигуры:

Vladimir_S · 08.10.2014, 10:22

Цитата:

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

Помогите, уже идей совсем нет, похоже,что перемудрил с условиями

Разумеется, перемудрил! Условие сформулировано абсолютно неверно. Надо так:

Код:

If ((sqr(x)+sqr(y))<=4) or (x<=-3) or (x>=3) or (y<=-3) or (y>=3) then
writeln('ne vxodit') 
else 
writeln('vxodit');

neio · 08.10.2014, 16:48

Цитата:

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

Разумеется, перемудрил! Условие сформулировано абсолютно неверно. Надо так:

Код:

If ((sqr(x)+sqr(y))<=4) or (x<=-3) or (x>=3) or (y<=-3) or (y>=3) then
writeln('ne vxodit') 
else 
writeln('vxodit');

Огромное спасибо!

08.10.2014, 01:48	#1 (permalink)
neio Стандартный Регистрация: 30.11.2008 Сообщений: 619 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 571	Принадлежность точки заштрихованной области. Турбо Паскаль 7.0 Необходима программа, которая будет получать введенную координату (x и y ) и сравнивать эту координату с координатами заштрихованной области фигуры и на основании этого делать вывод о принадлежности/не принадлежности точки к заштрихованной области. Написал, программа корректно работает в пределах рисунка, но если, к примеру ввести x=100 и y=1000, она выдаст, что точка принадлежит Как задать приделы границ квадрата? Скажем, чтобы программа считала все координаты больше 3 по y и по x как невходящие. Помогите, уже идей совсем нет, похоже,что перемудрил с условиями Код: Program example1; Uses crt; Var x,y: real; Begin Clrscr; Writeln('vvedite x,y'); Readln (x,y); If ((sqr(x)+sqr(y))<=4) and (x>=-3) and (x<=3) and (y>=0) and (y<=3) then writeln('ne vxodit') else writeln('vxodit'); readln; end. Фото фигуры: Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

08.10.2014, 01:48
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего в схожих темах вы найдете много полезной информации Турбо паскаль Турбо Паскаль. Задание на анимацию

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070