Pascalabc. составьте программу рисования ряда треугольников с использованием процедуры triangle.

202

429

Посмотреть ответы 1

Ответы на вопрос:

ярик471

Информатика

4,8(35 оценок)

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.