На этой странице мы решаем задачи Boolean25 - Boolean29 из задачника Абрамяна, где рассматриваем принадлежание точки с данными координатами той или иной координатной четверти.
Boolean25. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй координатной четверти».
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.
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Boolean26. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в четвертой координатной четверти».
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.
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Boolean27. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит во второй или третьей координатной четверти».
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.
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Boolean28. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в первой или третьей координатной четверти».
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.
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Boolean29. Даны числа x, y, x1, y1, x2, y2. Проверить истинность высказывания: «Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя — (x2, y2), а стороны параллельны координатным осям».
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.
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308**type** boolean;: Представляет логическое значение.