Даны координаты двух противоположных вершин прямоугольника:(x1,y1),(x2,y2).Стороны...

Question

Даны координаты двух противоположных вершин прямоугольника:(x1,y1),(x2,y2).Стороны прямоугольника параллельны осям координат.Найти периметр и площадь прямоугольника.

Answer 1

Program pryamougolnik;
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.

Comments

program Begin19;

var
X1, X2, Y1, Y2, P, S, a, b: real;

begin
write('Введите координаты двух точек х1 у1 х2 у2 : ');
read(X1, Y1, X2, Y2);
a := abs(X2 - X1);
b := abs(Y2 - Y1);
P := 2 * (a + b);
S := a * b;
writeln('Периметр прямоугольника -- ', P:5:2);
writeln('Площадь прямоугольника -- ', S:5:2);
end.