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

@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

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

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@Nvidia 1 / 1 / 0 Регистрация: 04.10.2010 Сообщений: 129
		1
	Процедуры и функции. Процедуры с числовыми параметрами 25.10.2010, 18:28. Показов 2752. Ответов 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 Почетный модератор 64303 / 47600 / 32742 Регистрация: 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 Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	26.10.2010, 07:34	6
	Длина стороны считается по этой формуле при произвольном расположении отрезков относительно осей координат. А когда по условию они параллельны осям координат, то зачем усложнять? Нарисуйте на бумаге прямоугольник со сторонами, параллельными осям и посмотрите как определить длины его сторон. 0