Function leng(var x,y,x1,y1: real): real; begin leng:=sqrt(sqr(x-x1)+sqr(y-y1)); end;
// основная программа var x1,y1,x2,y2,x3,y3,p: real; begin write('координаты вершин x1 y1 x2 y2 x3 y3 через пробел: '); readln(x1,y1,x2,y2,x3,y3); if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then writeln('точки лежат на одной прямой') else begin p:=leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1); writeln('периметр: ',p:7:3); end; end.
1 Скорее всего это кедр атласский с плакучей кроной "искусственно выведенная форма плакучего кедра атласского. Имеются несколько экземпляров этого редкого дерева, и все они выращены в Никитском ботаническом сад 2машин марки "Тойота".--В данной же книге события происходят в 1979г, нашему герою уже 46 лет, он по-прежнему со своей женой Дженис. И, неожиданно для себя, Кролик разбогател, за счет того, что умер его тесть и его жена стала наследницей салона по продаже машин марки "Тойота". 4Русский вариант имени Диего - Яков5ЛАМАНТИН! И он является родственником слона(как это ни странно)6 ДИСКО
begin
leng:=sqrt(sqr(x-x1)+sqr(y-y1));
end;
// основная программа
var x1,y1,x2,y2,x3,y3,p: real;
begin
write('координаты вершин x1 y1 x2 y2 x3 y3 через пробел: ');
readln(x1,y1,x2,y2,x3,y3);
if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or
(leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or
(leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then
writeln('точки лежат на одной прямой')
else
begin
p:=leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);
writeln('периметр: ',p:7:3);
end;
end.
координаты вершин x1 y1 x2 y2 x3 y3 через пробел: 3 4 7 2 6 5
периметр: 10.797
координаты вершин x1 y1 x2 y2 x3 y3 через пробел: 1 2 3 4 5 6
точки лежат на одной прямой
2машин марки "Тойота".--В данной же книге события происходят в 1979г, нашему герою уже 46 лет, он по-прежнему со своей женой Дженис. И, неожиданно для себя, Кролик разбогател, за счет того, что умер его тесть и его жена стала наследницей салона по продаже машин марки "Тойота".
4Русский вариант имени Диего - Яков5ЛАМАНТИН! И он является родственником слона(как это ни странно)6
ДИСКО