uses crt;
var
x1, x2, y1, y2, r: real;
begin;
clrscr;
writeln('Введите координаты первой точки (X и Y) после каждой коор. ENTER');
readln(x1);
readln(y1);
writeln('Введите координаты второй точки (X1 и Y1) после каждой коор. ENTER');
readln(x2);
readln(y2);
writeln('Введите радиус окружности(если нет, то r=0)');
readln(r);
{ Т.к. координаты должны браться по модулю, то: }
x1 := SQR(x1 * x1);
x2 := SQR(x2 * x2);
y1 := SQR(y1 * y1);
y2 := SQR(y2 * y2);
IF r * r > x1 * x1 + y1 * y1 THEN
writeln('Первая точка лежит в пределах окружности');
IF r * r > x2 * x2 + y2 * y2 THEN
writeln('Вторая точка лежит в пределах окружности');
IF x1 * x1 + y1 * y1 > x2 * x2 + y2 * y2 THEN
begin
writeln('первая точка находится дальше.');
end
else
writeln('вторая точка находится дальше.');
IF x1 * x1 + y1 * y1 > x2 * x2 + y2 * y2 THEN
begin
writeln('Первая точка лежит дальше от окружности');
end
else
writeln('Вторая точка лежит дальше от окружности');
end.
Похожие записи/страницы:
- Заданы координаты двух точек (x1;y1) и (x2;y2). Определить лежат ли они на одной окружности с центром в начале…
- Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат -…
- Дана окружность радиуса R с центром в начале координат. Написать программу, определяющую, лежит ли точка с…
- Построение треугольника по трем точкам - Pascal(Паскаль)
- Заданы координаты двух точек на плоскости. Составьте программу, определяющую, какая из точек удалена от начала…
- Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с…
- Определить, пересекаются ли окружности, в этом случае вычислить координаты точек их пересечения Pascal(Паскаль)
- Написать программу, которая определяет – какая из двух точек, заданных на плоскости своими координатами,…