Вводятся координаты (x;y) точки и радиус круга (r). Определить принадлежит ли данная точка кругу, если его центр находится в начале координат.
Будем считать, что точка принадлежит кругу, если находится внутри его или на его окружности.
Из любой точки координатной плоскости можно провести отрезок к началу координат. Если длина этого отрезка больше радиуса круга, то точка лежит за пределами круга и, следовательно, не принадлежит ему. Если же отрезок, соединяющий точку и начало координат, меньше радиуса круга с центром в начале координат или равен ему, то точка будет принадлежать кругу.
1. Палочки
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (2,0)
поднять перо
сместиться в точку (1,2)
нц 23 раз
опустить перо
сместиться на вектор (2,-2)
поднять перо
сместиться на вектор (-1,2)
кц
опустить перо
сместиться на вектор (1,-1)
поднять перо
сместиться в точку (-1,-1)
кон
2. Уголки
использовать Чертежник
алг
нач
сместиться в точку (5,7)
нц 5 раз
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,1)
кц
сместиться в точку (0,0)
кон
3. Треугольники
использовать Чертежник
алг
нач
нц 4 раз
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,-2)
сместиться на вектор (-2,-2)
поднять перо
сместиться на вектор (2,0)
кц
кон
Объяснение:
картинки
PascalABC.NET 3.5.1 build 2290 (28.12.2019) "Новая версия"
begin
var negs := ReadSeqIntegerWhile(p -> p <> 0).Where(p -> p < 0).ToList;
negs.Sum.Println;
negs.Average.Println;
end.
Объяснение: