|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 4
| Задача:
Дана окружность и точка на плоскости. Проверить, лежит точка внутри окружности, вне окружности или на окружности. С клавиатуры вводятся координаты центра окружности (X1,Y1), радиус окружности К и координаты точки (Х2,Y2). Результат вы водится на экран в удобном для восприятия виде.
|
| Решение: |
| >>Скачать<< |
program task4;
var x1,y1,x2,y2,r,r2:real;
begin
x1 := 0;
y1 := 0;
x2 := 0;
y2 := 0;
r := 0;
r2 := 0;
writeln('VVEDITE DANNIE:');
write('X1,Y1:');
readln(x1,y1);
write('R:');
readln(r);
write('X2,Y2:');
readln(x2,y2);
r2 := sqrt(sqr(abs(x2-x1))+sqr(abs(y2-y1)));
if r2 = r then writeln('Tochka leghit na okrughnosti');
if r2 < r then writeln('Tochka leghit vnutri okrughnosti');
if r2 > r then writeln('Tochka leghit za predelami okrughnosti');
readln;
end.
|
|
| |
