Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/12: Рейтинг темы: голосов - 12, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 04.10.2010
Сообщений: 129
1

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

25.10.2010, 18:28. Показов 2280. Ответов 5
Метки нет (Все метки)

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

Добавлено через 50 минут
помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2010, 18:28
Ответы с готовыми решениями:

Вызов процедуры из другой процедуры с параметрами
Не подскажете как вызвать процедуру StringGrid1KeyUp procedure TMainForm.StringGrid1KeyUp(Sender:...

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

Delphi. Процедуры и функции с параметрами строками
Описать процедуру UpCaseRus(S), преобразующую все строчные русские буквы строки S в прописные...

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

5
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
25.10.2010, 18:28 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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.
1
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
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
25.10.2010, 18:50 4
Цитата Сообщение от Puporev Посмотреть сообщение
p:=2*(abs(x1-x2)+abs(y1-y2));
s:=abs(x1-x2)*abs(y1-y2);
Ты вообще слышал про abs? Выкинул что ли?
1
1 / 1 / 0
Регистрация: 04.10.2010
Сообщений: 129
25.10.2010, 22:13  [ТС] 5
это модуль, всё понял) Спс)

Добавлено через 3 часа 15 минут
у меня вопрос, а длина стороны по двум координатам считаеться случайно не по этой формуле -sqrt(sqr(x1-x2)+sqr(y1-y2))?
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
26.10.2010, 07:34 6
Длина стороны считается по этой формуле при произвольном расположении отрезков относительно осей координат.
А когда по условию они параллельны осям координат, то зачем усложнять? Нарисуйте на бумаге прямоугольник со сторонами, параллельными осям и посмотрите как определить длины его сторон.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2010, 07:34

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

Задачник Абрамян. Процедуры и функции. Функции с числовыми параметрами
Описать функцию Even(K) логического типа, возвращающую TRUE, если целый параметр K является...

Процедуры с числовыми параметрами
Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа К...

Нужно заменить процедуры с параметрами, на процедуры без параметров
program p20A; uses CRT; type mas=array of integer; var X,Y: mas; N,i,m: integer;...

процедуры и функции с параметрами
Найти среднее арифметическое всех целых чисел от А до В двумя способами: используя процедуры и...

процедуры и функции с параметрами
Напечатать таблицу умножения на n используя процедуры и функции с параметрами.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.