Определить по координатам трех точек, что они являются вершинами прямоугольного трекгольника. pascal
291
305
Ответы на вопрос:
Var ax,ay,bx,by,cx,cy,ab,bc,ca: real; begin writeln('координаты точки a'); write(' x = '); readln(ax); write(' y = '); readln(ay); writeln('координаты точки b'); write(' x = '); readln(bx); write(' y = '); readln(by); writeln('координаты точки c'); 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 (sqrt(ab)< sqrt(bc)+sqrt(ca))and(sqrt(bc)< sqrt(ca)+sqrt(ab))and(sqrt(ca)< sqrt(ab)+sqrt(bc)) then if (ab+bc=ca)or(bc+ca=ab)or(ca+ab=bc) then writeln('треугольник abc - прямоугольный') else writeln('треугольник abc не является прямоугольным') else writeln('данные точки не являются вершинами треугольника') end.
s - площадь кольца взято число пи, равное 3,14.язык программирования: паскальvar s, r1, r2 : real; beginreadln (r1); readln (r2); s : = 3.14 * (sqr(r1) - sqr(r2)); ; writeln (s); end.
Популярно: Информатика
-
yibiuninmk08.12.2020 22:57
-
luzgina1127.04.2021 01:07
-
Yyyyyyyyy108.07.2021 07:36
-
люба35817.07.2020 22:31
-
ranilgalimzyanov28.09.2021 17:08
-
бабуся328.05.2023 23:15
-
vaynasmirnov02121.05.2020 06:34
-
Христина85426.05.2023 13:17
-
Ychenikpurple30.10.2021 10:46
-
zyvvic07.01.2020 22:03