Даны координаты двух противоположных вершин прямоугольника(х1,у1),(х2,у2).
Стороны прямоугольника параллельны осям координат.Найти периметр и площадь
Ответы
Ответ дал:
2
var x1,x2,y1,y2,p,s:integer;
beginwrite('Введите x1 и y1');Readln(x1 , y1);write('Введите x2 и y2');Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write('Введите x1 и y1',x1:4 , y1:4);write(' ');writeln('Введите x2 и y2',x2:4 , y2:4);writeln('Периметр = ',p);writeln('Площадь = ',s);end.
beginwrite('Введите x1 и y1');Readln(x1 , y1);write('Введите x2 и y2');Readln(x2 , y2);p:= abs((x2 - x1))*2 + abs((y1 -y2))*2;s:= abs((x2 - x1))* abs((y1 -y2));write('Введите x1 и y1',x1:4 , y1:4);write(' ');writeln('Введите x2 и y2',x2:4 , y2:4);writeln('Периметр = ',p);writeln('Площадь = ',s);end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад