Паскаль, по координатам трех вершин некоторого треугольника найдите его периметр,если такой треугольник существует

237

242

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

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

ТинкиВинкиДанки

Информатика

4,6(33 оценок)

Program n1; var kord: array[1..6] of real; st: array [1..3] of real; i: integer; begin i: =1; while i< =6 do begin write('введите координаты точки через пробел: '); readln(kord[i],kord[i+1]); i: =i+2; end; st[1]: =sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2])); st[2]: =sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2])); st[3]: =sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4])); if (st[1]< (st[2]+st[3])) and (st[2]< (st[1]+st[3])) and (st[3]< (st[1]+st[2])) then write('p=',st[1]+st[2]+st[3]) else write('треугольник не существует'); end.