ВВЕРХ
ВНИЗ
  • Home
  • Boolean
  • Boolean 25 - 29

Точка (x, y) в координатной четверти

На этой странице мы решаем задачи Boolean25 - Boolean29 из задачника Абрамяна, где рассматриваем принадлежание точки с данными координатами той или иной координатной четверти.

Boolean25. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй координатной четверти».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
var
  x, y: real;

begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln;
  { Если точка с координатами (x,y) лежит во II координатной
  четверти, то выполняются условия: x<0 и y>0: }
  writeln(' ', (x < 0) and (y > 0));
  readln
end.

Boolean26. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в четвертой координатной четверти».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
var
  x, y: real; { <-- Координаты точки }

begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln;
  { Если точка с координатами (x,y) лежит в четвертой
  координатной плоскости, то одновременно x>0 и y<0: }
  writeln(' ', (x > 0)and(y < 0));
  readln
end.

Boolean27. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй или третьей координатной четверти».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
var
  x, y: real;

begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln;
  { Чтобы точка с координатами (x,y) лежала в II или
  III координатной плоскости, необходимо, чтобы x<0: }
  writeln(' ', x < 0);
  readln
end.

Boolean28. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в первой или третьей координатной четверти».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
var
  x, y: real;

begin
  writeln('Введите абсциссу и ординату точки (x и y):');
  readln(x, y);
  writeln;
  { Если точка с координатами (x,y) лежит в первой координатной
  плоскости, то x>0 и y>0; если точка лежит в третьей 
  координатной плоскости, то x<0 и y<0. То есть в обоих случаях 
  координаты имеют одинаковые знаки - обе положительные или обе 
  отрицательные. В таком случае их произведение всегда будет  
  положительно: }
  writeln(' ', x * y > 0);
  { Вместо проверки вышеуказанного условия (xy>0) можно использовать
  проверку на истинность условия (x>0)and(y>0) or (x<0)and(y<0).
  Вместо or также можно использовать xor, так как точка может попасть
  только в одну чверть, или не попадает вообще. }
  readln
end.

Boolean29. Даны числа x, y, x1, y1, x2, y2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя — (x2, y2), а стороны параллельны координатным осям».

Код 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  
var
  x, y, x1, y1, x2, y2: real;
  f, g: boolean;

begin 
  writeln('Введите x1, y1:');
  readln(x1, y1);
  writeln('Введите x2, y2:');
  readln(x2, y2);
  writeln('Введите x, y:');
  readln(x, y);
  { Выражение, означающее, что точка (x1,y1) является левой 
  верхней вершиной прямоугольника, а (x2,y2) - правой нижней: }
  f := (x1 < x2)and(y1 > y2);
  { Выражение, означающее, что точка с координатами (x,y) лежит
  внутри прямоугольника с вершинами (x1,y1), (x1,y2), (x2,y2) и
  (x2,y1): }
  g := (x > x1)and(x < x2)and(y > y2)and(y < y1);
  writeln;
  {Точка (x,y) будет лежать внутри указанного прямоугольника,
  если одновременно истинны выражения f и g: }
  writeln(' ', f and g);
  readln
end.

На страницах Координаты точек на оси и на плоскости и Proc23 вы можете найти решения аналогичных задач.




Яндекс.Метрика