Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.02.2011, 20:31   #1
malenkaya
Пользователь
 
Регистрация: 03.02.2011
Сообщений: 15
По умолчанию процедуры в паскале

Описать процедуру, вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1 , y1), (x2 , y2) его противоположных вершин. (x1 , y1, x2 , y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметр и площадь прямоугольника с данными противоположными вершинами.
malenkaya вне форума
Старый 03.02.2011, 20:45   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,830
По умолчанию

Проблема в чем? До раздела фриланса не прокрутили?
p51x вне форума
Старый 03.02.2011, 20:52   #3
0479
Форумчанин
 
Аватар для 0479
 
Регистрация: 27.09.2009
Сообщений: 153
По умолчанию

Задача то лёгкая.Найди математическое обоснование.В Паскале или c++ накатать потом 10 минут.
0479 вне форума
Старый 03.02.2011, 21:00   #4
malenkaya
Пользователь
 
Регистрация: 03.02.2011
Сообщений: 15
По умолчанию

да математическое решение есть, почит все написаноЮ, только не идет программа
malenkaya вне форума
Старый 03.02.2011, 21:03   #5
0479
Форумчанин
 
Аватар для 0479
 
Регистрация: 27.09.2009
Сообщений: 153
По умолчанию

Выложите тогда свои соображения и исходник.Поможем.
0479 вне форума
Старый 03.02.2011, 21:16   #6
malenkaya
Пользователь
 
Регистрация: 03.02.2011
Сообщений: 15
По умолчанию

Код:
uses crt;
var x1,x2,y1,y2:real; p,s,f1,f2,f:longint;
procedure pr(m:byte; var l:longint);
var i:byte;
begin
f:=1;
for i:=1 to m do
f:=f*i;
end;
begin
clrscr;
write('x1='); readln(x1);
write('y1='); readln(y1);
write('x2='); readln(x2);
write('y2='); readln(y2);
pr(x2-x1,f1);
pr(y2-y1,f2);
p:=2*f1+2*f2;
s:=f1*f2;
writeln('p=',p);
writeln('s=',s);
writeln
end.

Последний раз редактировалось Stilet; 03.02.2011 в 21:53.
malenkaya вне форума
Старый 03.02.2011, 21:53   #7
0479
Форумчанин
 
Аватар для 0479
 
Регистрация: 27.09.2009
Сообщений: 153
По умолчанию

Код:
uses crt;
var x1,x2,y1,y2:real; p,s,f1,f2,f:longint;
procedure pr(m:byte; var l:longint);
var i:byte;
begin
f:=1;
for i:=1 to m do
f:=f*i;
end;
begin
clrscr;
write('x1='); readln(x1);
write('y1='); readln(y1);
write('x2='); readln(x2);
write('y2='); readln(y2);
pr(x2-x1,f1);
pr(y2-y1,f2);
p:=2*f1+2*f2;
s:=f1*f2;
writeln('p=',p);
writeln('s=',s);
writeln
end.
У вас проблема с процедурой.В процедуру передаются значения. Здесь например pr(x2-x1,f1); Вы передаёте в процедуру x2-x1 а f1 то у вас ещё не существует чтобы его передавать.
for i:=1 to m do //Это с реаловыми не прокатывает.Он напишет ошибку 39 что мол нужен порядковый тип то есть типа integer например.
Также выдаст ошибку о несовпадении типов m:byte;var x1,x2,y1,y2:real;
А передаёте вы разности x1 и x2. А они реаловые m и x1,x2 не совпадают.
0479 вне форума
Старый 03.02.2011, 22:25   #8
malenkaya
Пользователь
 
Регистрация: 03.02.2011
Сообщений: 15
По умолчанию

спасибо, с типами разобралась,сейчас дальше подумаю=)
malenkaya вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры в паскале Денис999 Помощь студентам 1 18.12.2010 12:31
Процедуры в Паскале bwitcher Помощь студентам 12 04.12.2010 12:19
Процедуры в Паскале venomdanger Помощь студентам 5 05.07.2010 09:20
Процедуры в паскале swedalena Помощь студентам 3 02.06.2010 23:06
Процедуры на паскале tanek Помощь студентам 0 03.05.2009 00:26