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

July 2022 1 2 Report

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

Answers & Comments

kristinaabdullaeva 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.

1 votes Thanks 1

kristinaabdullaeva 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.

kak okruglit drob 4581 do edenicy

Answer

danyakulazhenko August 2022 | 0 Ответы

okruglit do milliona chislo 2523438

Answer

Answers & Comments

kak okruglit drob 4581 do edenicy

okruglit do milliona chislo 2523438

рекомендуемые вопросы

Helpful Links

Helpful Social