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

@maks2396 · Регистрация: 17.10.2013

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

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

@erl27 · 17.10.2013, 22:11

Pascal

var
  x1, y1, x2, y2: real;
  
procedure pramoug(a1, b1, a2, b2: real);  
var
  a, b, P, S: real;
  
begin
  a := abs(x1 - x2);
  b := abs(y1 - y2);
  P := 2 * (a + b);
  S := a * b;
  writeln('P = ', P:0:2, ',  S = ', S:0:2)
end;  
 
begin
  writeln('Введите координаты прямоугольников (x1, y1, x2, y2):');
  writeln('Первый прямоугольник:');
  readln(x1, y1, x2, y2);
  pramoug(x1, y1, x2, y2);
  writeln;
  writeln('Второй прямоугольник:');
  readln(x1, y1, x2, y2);
  pramoug(x1, y1, x2, y2);
  writeln;
  writeln('Третий прямоугольник:');
  readln(x1, y1, x2, y2);
  pramoug(x1, y1, x2, y2);
end.

@maks2396 · 18.10.2013, 00:34 **[ТС]**

Спасибо!

@maks2396 1 / 1 / 0 Регистрация: 17.10.2013 Сообщений: 53
		1
	Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника 17.10.2013, 21:40. Показов 2080. Ответов 2 Метки нет (Все метки) Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1 , y1, x2, y2 - входные, P и S - выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямокосинцев данным противоположными вершинами. 0

@maks2396 1 / 1 / 0 Регистрация: 17.10.2013 Сообщений: 53
	18.10.2013, 00:34 [ТС]	3
	Спасибо! 0

Опции темы

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

Решение