Описать прцедуру RectPS (x1,y1,x2,y2,P,S) вычисляющую периметр P и пощадь S прямоугольника

@catwomen · Регистрация: 31.03.2010

Студворк — интернет-сервис помощи студентам

описать прцедуру RectPS (x1,y1,x2,y2,P,S) вычисляющую периметр P и пощадь S прямоугольника со сторонамиб,параллельным осям координат, по координатам (x1,y1), (x2,y2), его противоположных вершин (x1y1,x2,y2)-входные, PиS выходные пераметры вещественного типа. С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами

@Жека-старший · 31.03.2010, 15:43

Pascal

procedure  RectPS(x1,xy1,x2,y2:real; var p,s:real);
var dl1,dl2:real;
begin
   dl1:=(x2-x1);//длина первой стороны, относительно Ox
   dl2:=(y2-y1);//длина второй стороны, относительно Oy
   p:=2*(dl1+dl2);//периметр
   s:=dl1*dl2;//площадь
end;

оно, нет?

@catwomen 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 7
		1
	Описать прцедуру RectPS (x1,y1,x2,y2,P,S) вычисляющую периметр P и пощадь S прямоугольника 31.03.2010, 15:33. Показов 1762. Ответов 1 Метки нет (Все метки) описать прцедуру RectPS (x1,y1,x2,y2,P,S) вычисляющую периметр P и пощадь S прямоугольника со сторонамиб,параллельным осям координат, по координатам (x1,y1), (x2,y2), его противоположных вершин (x1y1,x2,y2)-входные, PиS выходные пераметры вещественного типа. С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами 0

Опции темы

Описать прцедуру RectPS (x1,y1,x2,y2,P,S) вычисляющую периметр P и пощадь S прямоугольника

Решение