Определить, находится ли точка с произвольно заданными координатами в заштрихованной области

@вавап12 · Регистрация: 27.10.2021

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

Составить программу, позволяющую определить, находится ли точка с произвольно заданными координатами в заштрихованной области. Если точка принадлежит заштрихованной области, то переменной q присвоить значение True, в противном случае – False.

@vrvrvrvr1234 · 12.12.2021, 18:40

Pascal

begin
  var q:boolean;
  var (x,y):=readinteger2('Введите координаты точки: ');
  q:= abs(y/x)>=1 ? true : false;
end.

@XzzzX · 12.12.2021, 18:42

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

q:= abs(y/x)>=1 ? true : false;

прикольная проверка. ваше выражение abs(y/x)>=1 и так вернёт булево значение

@vrvrvrvr1234 · 12.12.2021, 18:48

А, ну я понял... Сейчас исправлю...

Добавлено через 46 секунд

Pascal

begin
  var q:boolean;
  var (x,y):=readinteger2('Введите координаты точки: ');
  q:= abs(y/x)>=1;
end.

Вот так лучше)

@XzzzX · 12.12.2021, 19:00

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

Вот так лучше)

а если совместить объявление q с присвоением ей значения, то ещё лучше

@Sun Serega · 12.12.2021, 19:20

1. Формула неправильная:
https://www.desmos.com/calculator/4r7j2gdt45
1.1. + то что границы показаны пунктиром - значит что точки на границе не походят.
1.2. Все точки при x=0 не будет засчитывать, потому что результатом будет бесконечность или NaN.

2. Почему integer? Так не одного подходящего значения не получится ввести.

3. После строки, переданной в readinteger2 - пробел и так ставит.

Pascal

1
2
3

## var (x,y) := ReadReal2('Введите координаты точки:');
var res := (Abs(x)<Abs(y)) and (Abs(y)<1);
res.Print;

@вавап12 1 / 1 / 0 Регистрация: 27.10.2021 Сообщений: 45
		1
	Определить, находится ли точка с произвольно заданными координатами в заштрихованной области 23.11.2021, 17:40. Показов 412. Ответов 5 Метки Pascal (Паскаль), pascal abc net (Все метки) Составить программу, позволяющую определить, находится ли точка с произвольно заданными координатами в заштрихованной области. Если точка принадлежит заштрихованной области, то переменной q присвоить значение True, в противном случае – False. Изображения 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	12.12.2021, 18:42	3
	Сообщение от vrvrvrvr1234 q:= abs(y/x)>=1 ? true : false; прикольная проверка. ваше выражение `abs(y/x)>=1` и так вернёт булево значение 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	12.12.2021, 19:00	5
	Сообщение от vrvrvrvr1234 Вот так лучше) а если совместить объявление `q` с присвоением ей значения, то ещё лучше 1

	12.12.2021, 19:20