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

[Ivanacats]

Pascal ABC

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

[Serge_Bliznykov]

во-первых, не вижу тут просьбы о помощи. Вы же не команды тут отдаёте, и не просто так сообщаете нам текст своего задания!

во-вторых. ОМГ! и что у вас не получается? Не знаете как описать процедуру, которая возвращает два значения? Или не знаете, как по координатам противоположных вершин прямоугольника, стороны которого параллельны осям координат, найти длины сторон ?!! Или не знаете, как для прямоугольника со сторонами а и b найти периметр и площадь?
В чём суть вашего поста тут?!!

[Ivanacats]

дак нельзя же писать помогите там и т.д. вот я и не написала

[Stilet]

дак нельзя же писать

Что нельзя писать?

[Serge_Bliznykov]

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

дак нельзя же писать помогите там и т.д. вот я и не написала

точно. в заголовке (названии) темы нельзя писать "спасите", "помогите" и т.д. и т.п.

Но это не означает, что в тексте сообщения не надо соблюдать правила вежливости, приличия и вежливо ПОПРОСИТЬ о помощи.

по сути то темы какие проблемы?!

[Ivanacats]

мда обратилась за помощью не написала "помогите не могу справиться" раскритиковали с ног до головы...и потом не надо смеяться над тем, что я не могу самостоятельно справиться над столь легкой как вам кажется задачей. Найдутся люди, которым будет тоже смешно, когда вы не сможете справиться с любой другой задачей.

[Serge_Bliznykov]

Вам охота порефлексировать и попереживать?

или всё таки решить задачу?!

я задал Вам чётко и недвусмысленно вопросы, отвечая на которые (самой себе в первую очередь) Вы смогли бы разобраться в том, что именно у Вас вызывает затруднение и с чем Вам помочь.

переписка Ваша и затраты Вашего времени на подобные дискуссии занимают НАМНОГО больше времени, чем пять-семь строчек простейшего кода на Паскаль..

Хотите продолжать в том же духе? Воля Ваша! Успехов!

[Ivanacats]

благодарю за помощь "Форум программистов" - помощь студентам

[Ivanacats]

я же написала, что меня смущает процедура Rect я впервые с ней сталкиваюсь - это Reset??

[Serge_Bliznykov]

процедура Rect - это Reset??

Нет! АБСОЛЮТНО ничего общего.
RectPS - это просто ИМЯ (наименование, название, идентификатор).

вам нужно написать:

procedure (x1,y1,x2,y2 : real; var P,S : real );
begin
  P := (abs(x2-x1) + abs(y2-y1)) * 2;
  S := abs(x2-x1) * abs(y2-y1);
end;

И ВСЁ! Это ПОЛНОЕ РЕШЕНИЕ!