Составить программу которая печатает true если точка с координатами

Светило науки — 70 ответов — 0 раз оказано помощи

var
x, y: integer;
begin
read(x); read(y);
if (x>-10)and(x<10)and(y<4)and(y>-4) then
writeln(‘true») else writeln(‘false’);
end.

A1dar 7 лет назад

Светило науки — 936 ответов — 3900 раз оказано помощи

На рисунке часть окружности с центром в точке (0; 0) и радиусом 6.
Достаточно проверить, принадлежит ли точка этой окружности и ее положение относительно прямой x = 2.
Сама программа:
var
x, y: real;
begin
read(x, y);
writeln((x >= 2) and (x * x + y * y
end.

Источник: megaurok.com

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном
Можно,пожалуйста,подробно

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

Таблица-1.Дано натуральное число n.Напишите программу, которая печатает таблицу размером n×3 |Python

Вершины треугольника: (1; 4), (5; -4), (-5; -3).

Функция прямой по двум точкам:

Подставляем точки и получаем три функции:

Точка находится в области, если y > l2(x0) И y < l1(x) И y < l3(x).

На Python это выглядит так. (Выводить функции не надо, это делается автоматически)

def get_line_by_two_points(x0: float, y0: float, x1: float, y1: float):

return (x — x0)/(x1 — x0) * (y1 — y0) + y0

l1 = get_line_by_two_points(1, 4, 5, -4)

l2 = get_line_by_two_points(-5, -3, 5, -4)

l3 = get_line_by_two_points(1, 4, -5, -3)

x = int(input(«Enter an X value: «))

y = int(input(«Enter a Y value: «))

print(«Point is in the space!»)

print(«Point is NOT in the space!»)

Задание 2

Теперь у нас 4 прямые.

Составить программу которая печатает true если точка с координатами

Значит, вот такое задание:
Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит заштрихованной области, и false в противном случае.

Читайте также:
Какую программу использовать для записи видео на слабом ПК

P.S. Что-то накалякал, но то true пишет, когда точка не лежит, то наоборот

program graf;
var x,y,r:integer;
begin
write(‘Введите координаты точки: ‘); read(x,y);
r:=4;
if ((y*y)<=(r*r)-(x*x)) and (x>=0) and (y>=0)
and (x <=6) and (y<=6) then write(TRUE)
else write(FALSE);
end.

Понимаю, что задача простая, но никак в голову не придет правильное решение(

Если не трудно, подскажите что да как. Буду очень благодарен

Источник: www.programmersforum.ru

Рейтинг
( Пока оценок нет )
Загрузка ...
EFT-Soft.ru