Смотри картинку
Объяснение:
После выполнения команды сместиться на вектор (a, b), Чертёжник оказывается в точке (x + a, y + b), относительно начальных координат (x, y).
начальные координаты (1, 1)
сместиться на вектор (4, 0) - Чертёжник оказывается в точке (5, 1)
начальные координаты (5, 1)
сместиться на вектор (0, 4) - Чертёжник оказывается в точке (5, 5)
начальные координаты (5, 5)
сместиться на вектор (-4, -4) - Чертёжник оказывается в точке (1, 1)
Смещения по оси x вправо и по оси y вверх - положительные.
Смещения по оси x влево и по оси y вниз - отрицательные.
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.
Поделитесь своими знаниями, ответьте на вопрос: