Помогите написать 2 программы в Pascal ABC

1. дана точка а с координатами x. y, и радиус окружности, центр которой лежит в точке о, как расположится точка и окружность

2. даны координаты вершины треугольника, является ли он прямоугольным

Question

Информатика

Вениаминыч

1 января, 12:25

Помогите написать 2 программы в Pascal ABC

1. дана точка а с координатами x. y, и радиус окружности, центр которой лежит в точке о, как расположится точка и окружность

2. даны координаты вершины треугольника, является ли он прямоугольным

+2

Ответы (1)

Знаете ответ?

Артемьюшка · Answer 1

Var Ax, Ay, Ox, Oy, R:real;

Begin

WriteLn ('Точка А:') ;

Write (' x = ') ; ReadLn (Ax) ;

Write (' y = ') ; ReadLn (Ay) ;

WriteLn ('Центр окружности:') ;

Write (' x = ') ; ReadLn (Ox) ;

Write (' y = ') ; ReadLn (Oy) ;

Write ('Радиус окружности: ') ; ReadLn (R) ;

if sqr (Ax-Ox) + Sqr (Ay-Oy) < R*R then WriteLn ('Точка лежит внутри окружности')

else if sqr (Ax-Ox) + Sqr (Ay-Oy) = R*R then WriteLn ('Точка лежит на окружности')

else WriteLn ('Точка находится вне окружности')

End.

Var

Ax, Ay, Bx, By, Cx, Cy, AB, BC, CA:real;

Begin

WriteLn ('Координаты первой вершины') ;

Write (' x = ') ; ReadLn (Ax) ;

Write (' y = ') ; ReadLn (Ay) ;

WriteLn ('Координаты второй вершины') ;

Write (' x = ') ; ReadLn (Bx) ;

Write (' y = ') ; ReadLn (By) ;

WriteLn ('Координаты третьей вершины') ;

Write (' x = ') ; ReadLn (Cx) ;

Write (' y = ') ; ReadLn (Cy) ;

AB:=Sqr (Ax-Bx) + Sqr (Ay-By) ;

BC:=Sqr (Bx-Cx) + Sqr (By-Cy) ;

CA:=Sqr (Cx-Ax) + Sqr (Cy-Ay) ;

if (AB+BC=CA) or (BC+CA=AB) or (CA+AB=BC) then WriteLn ('Треугольник - прямоугольный')

else WriteLn ('Данный треугольник не является прямоугольным')

End.