Question

Решите в паскале)) даны координаты вершин прямоугольника А(X1, Y1), B(X2,Y2), C(X3,Y3), D(X4,Y4). Вычислите периметр и площадь прямоугольника.

Answer 1

program umn;
var  X1,Y1,x2,y2,x3,y3,x4,y4, P,S,l1,l2:real;
begin
write('Введите координаты вершин треугольника ( A, B, C, D): '); read(X1,Y1,x2,y2,x3,y3,x4,y4);
l1 := Sqrt(sqr(x2 - x1) + Sqr(y2-y1));
l2 := Sqrt(sqr(x3 - x2) + Sqr(y3-y2));
S := l1 * l2;
P := 2 * (l1+l2);
write(S:3:2,' ',P:3:2);
end.

Если есть вопросы задавайте.

Answer 2

Var x1,x2,x3,x4,y1,y2,y3,y4:integer;
AB,BC,p,s:real;
begin
read(x1,y1,x2,y2,x3,y3,x4,y4);
AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));
BC:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=2*(ab+bc);
s:=ab*bc;
write('p=',p,' s=',s);
end.

Answer 3

Для решения данной задачи воспользуемся языком программирования Паскаль.

program Rectangle; var X1, Y1, X2, Y2, X3, Y3, X4, Y4: integer; side1, side2, perimeter, area: real; begin write('Введите координаты вершины A (X1 Y1): '); readln(X1, Y1); write('Введите координаты вершины B (X2 Y2): '); readln(X2, Y2); write('Введите координаты вершины C (X3 Y3): '); readln(X3, Y3); write('Введите координаты вершины D (X4 Y4): '); readln(X4, Y4);

side1 := sqrt(sqr(X2 - X1) + sqr(Y2 - Y1)); side2 := sqrt(sqr(X3 - X2) + sqr(Y3 - Y2));

perimeter := 2 * (side1 + side2); area := side1 * side2;

writeln('Периметр прямоугольника: ', perimeter:0:2); writeln('Площадь прямоугольника: ', area:0:2); end.

После ввода координат вершин прямоугольника программа вычислит его периметр и площадь, и выведет результат на экран.