Программа
{
покажись;
в_точку ( -125 ,-100 );
опусти_перо;
вперед ( 100 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 100 );
подними_перо;
в_точку ( -55 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
подними_перо;
в_точку ( -10 ,-100 );
опусти_перо;
вправо ( 105 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
подними_перо;
в_точку ( 35 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 150 );
вперед ( 54 );
вправо ( 150 );
вперед ( 50 );
подними_перо;
в_точку ( 80 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 180 );
вперед ( 25 );
вправо ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 25 );
влево ( 180 );
вперед ( 50 );
подними_перо;
в_точку ( 125 ,-100 );
опусти_перо;
вправо ( 195 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
влево ( 90 );
подними_перо;
в_точку ( 125 ,-75 );
опусти_перо;
вперед ( 27 );
подними_перо;
в_точку ( 175 ,-100 );
}
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
