Описать процедуру, вычисляющую периметр P и площадь S прямоугольника

@Delaforse · Регистрация: 04.05.2012

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

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

Visual Basic

Sub RectPS(x1 As Double, y1 As Double, x2 As Double, y2 As Double, P As Double, s As Double)
 
      P = 2 * (Abs(x1 - x2) + Abs(y1 - y2))
      s = Abs(x1 - x2) * Abs(y1 - y2)
      Loop
End Sub

@Казанский · 29.06.2012, 22:10

Хорошая, годная процедура.

Только Loop убрать. И другую написать, которая будет вызывать эту с заданными параметрами.

@Delaforse · 30.06.2012, 06:04 **[ТС]**

допишите программу пожалуйста

@Казанский · 30.06.2012, 09:37

Visual Basic

Sub rr()
Dim a$(), p#, s#
Do
    a = Split(Trim(InputBox("Введите через пробел x1, y1, x2, y2", , "3 -2 1 5")))
    If UBound(a) < 3 Then Exit Do
    RectPS (a(0)), (a(1)), (a(2)), (a(3)), p, s
    MsgBox "Периметр= " & p & "  площадь= " & s
Loop
End Sub

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	29.06.2012, 22:10	2
	Хорошая, годная процедура. Только Loop убрать. И другую написать, которая будет вызывать эту с заданными параметрами. 0

@Delaforse 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 64
	30.06.2012, 06:04 [ТС]	3
	допишите программу пожалуйста 0

	30.06.2012, 09:37

Опции темы