Информатика сколько весит сообщение: где родился, там и пригодился. если каждый символ весит 8 бит
129
497
Ответы на вопрос:
Type txy = record x, y: real end; function sqt(a, b, c: txy): real; begin sqt: =abs((a.x-b.x)*(c.y-b..y-b.y)*(c.x-b.x))/2; end; const eps=1e-4; o: txy = (x: 0; y: 0); var a, b, c: txy; s1, s2, s3: real; begin write('введите координаты вершин треугольника: '); readln(a.x,a.y,b.x,b.y,c.x,c.y); s1: =sqt(o,a,b); s2: =sqt(o,b,c); s3: =sqt(o,a,c); write('центр координат лежит '); if abs(s1)< eps then writeln('на стороне ab') else if abs(s2)< eps then writeln('на стороне bc') else if abs(s3)< eps then writeln('на стороне ac') else if abs(s1+s2+s3-sqt(a,b,c))< eps then writeln('внутри треугольника') else writeln('вне треугольника'); end.
Популярно: Информатика
-
larisaiventeva23.10.2021 06:06
-
adebora11.02.2020 21:35
-
Kats20305.10.2021 13:58
-
vitcke122.10.2022 08:02
-
KatyaDro20.08.2020 16:57
-
Лиза22110027.09.2022 20:03
-
тильняшка527.11.2022 01:37
-
Nalalisa25.06.2023 20:44
-
TennisDiyar05.08.2020 14:54
-
nickolaimatviip0c00u19.12.2021 12:08