Процедуры и функции. Процедуры с числовыми параметрами

@Nvidia · Регистрация: 04.10.2010

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

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

Добавлено через 50 минут
помогите пожалуйста

@Puporev · 25.10.2010, 18:28

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
procedure  RectPS(x1,y1,x2,y2:real; var p,s:real);
begin
p:=2*(abs(x1-x2)+abs(y1-y2));
s:=abs(x1-x2)*abs(y1-y2);
writeln('P=',p:0:2,'  S=',s:0:2);
end;
var x1,y1,x2,y2,p,s:real;
    i:byte;
begin
writeln('Vvedite koordinaty protivopoloznyh vershin x1,y1,x2,y2:');
for i:=1 to 3 do
 begin
  writeln('Pryamougolnik ',i);
  readln(x1,y1,x2,y2);
  RectPS(x1,y1,x2,y2,p,s);
 end;
readln
end.

@Nvidia · 25.10.2010, 18:48 **[ТС]**

Спасибо!)

Добавлено через 13 минут
а если например ввести х1=6,х2=8, у1=4, у2=5, то х1-х2 и у1-у2 равно -2 и -1, и по формуле p:=2*(-2+(-1))=-6, а программа пишет 6 просто, может я что-то не так понял? Посмотрите пожалуйста

@Puporev · 25.10.2010, 18:50

Сообщение от Puporev

p:=2*(abs(x1-x2)+abs(y1-y2));
s:=abs(x1-x2)*abs(y1-y2);

Ты вообще слышал про abs? Выкинул что ли?

@Nvidia · 25.10.2010, 22:13 **[ТС]**

это модуль, всё понял) Спс)

Добавлено через 3 часа 15 минут
у меня вопрос, а длина стороны по двум координатам считаеться случайно не по этой формуле -sqrt(sqr(x1-x2)+sqr(y1-y2))?

@Puporev · 26.10.2010, 07:34

Длина стороны считается по этой формуле при произвольном расположении отрезков относительно осей координат.
А когда по условию они параллельны осям координат, то зачем усложнять? Нарисуйте на бумаге прямоугольник со сторонами, параллельными осям и посмотрите как определить длины его сторон.

@Nvidia 1 / 1 / 0 Регистрация: 04.10.2010 Сообщений: 129
		1
	Процедуры и функции. Процедуры с числовыми параметрами 25.10.2010, 18:28. Показов 2740. Ответов 5 Метки нет (Все метки) Процедуры и функции. Процедуры с числовыми параметрами Всем привет, помогите пожалуйста сделать задание:" Описать процедуру RectPS (x1, y1, x2, y2, P, S),которая вычисляет периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1 , y1, x2, y2 - входящие, P и S - выходящие параметры действительного типа). С помощью этой процедуры найти периметры и площади трех прямокосинцив с данными противоположными вершинами." Добавлено через 50 минут помогите пожалуйста 0

@Nvidia 1 / 1 / 0 Регистрация: 04.10.2010 Сообщений: 129
	25.10.2010, 18:48 [ТС]	3
	Спасибо!) Добавлено через 13 минут а если например ввести х1=6,х2=8, у1=4, у2=5, то х1-х2 и у1-у2 равно -2 и -1, и по формуле p:=2*(-2+(-1))=-6, а программа пишет 6 просто, может я что-то не так понял? Посмотрите пожалуйста 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.10.2010, 18:50	4
	Сообщение от Puporev p:=2(abs(x1-x2)+abs(y1-y2)); s:=abs(x1-x2)abs(y1-y2); Ты вообще слышал про abs? Выкинул что ли? 1

@Nvidia 1 / 1 / 0 Регистрация: 04.10.2010 Сообщений: 129
	25.10.2010, 22:13 [ТС]	5
	это модуль, всё понял) Спс) Добавлено через 3 часа 15 минут у меня вопрос, а длина стороны по двум координатам считаеться случайно не по этой формуле -sqrt(sqr(x1-x2)+sqr(y1-y2))? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.10.2010, 07:34	6
	Длина стороны считается по этой формуле при произвольном расположении отрезков относительно осей координат. А когда по условию они параллельны осям координат, то зачем усложнять? Нарисуйте на бумаге прямоугольник со сторонами, параллельными осям и посмотрите как определить длины его сторон. 0