Функция делфи

[Sweet-_-Orange]

Задано описание данных:var X1, Y1, X2, Y2 :real;
P, S, А, В :real;
Оформить функцию с именем Proc1, которая принимает координаты противоположных углов прямоугольника и возвращает его площадь и периметр Разработать работающую программу





у меня не вычисляет, помогите, не знаю как обратится к функции

var  P, S, a, b :real;
X1, Y1, X2, Y2 :real;
function Proc1:integer;
  begin
  b:=Y2-Y1;
  a:=X2-X1;
  p:=(2*(X2-X1))+(2*(Y2-Y1));
  s:=(Y2-Y1)*(X2-X1);
  end;
  begin
  write('Vvedite X2');
  readln(X2);
  write('Vvedite X1');
  readln(X1);
  write('Vvedite Y2');
  readln(Y2);
  write('Vvedite Y1');
  readln(Y1);
  readln(p);
  readln(s);
  end.

[whatever]

В самый конец добавь

  proc1;
  writeln(p);
  writeln(S);

Да, и будь я преподом, не принял бы. Глобальные переменные ни есть хорошо.

[Sweet-_-Orange]

ну а как сделать без глобальных переменных и чтобы обчисляла площадь и периметр?

[whatever]

Ну на счет формул подсчета думать лень, а чтобы избавиться от глобальных переменных вписывай их при объявлении процедуры.

[Sweet-_-Orange]

формулы правильные
делфи не шарю, поэтому не понимаю, как вписать при объявлении процедуры

[whatever]

Кстати, у тебя еще и в формулеровке задания ошибка

Оформить функцию с именем Proc1, которая принимает координаты противоположных углов прямоугольника и возвращает его площадь и периметр Разработать работающую программу

Функция не может возвращать два значения. Тут подходит процедура.

Procedure Proc1(y2,y1,x2,x1,p,s:real);
  begin
//  b:=Y2-Y1;//зачем?
//  a:=X2-X1;//тоже не надо
  p:=(2*(X2-X1))+(2*(Y2-Y1));
  s:=(Y2-Y1)*(X2-X1);
  end;

потом в теле программы (опять же в конце) пишешь.

Proc1(y2,y1,x2,x1,p,s:real);
  writeln(p);
  writeln(S);

Может показаться, что ничего не изменилось, но разница есть. Теперь для подсчета площади и периметра можно использовать ЛЮБЫЕ координаты и сохранять результат в ЛЮБЫЕ переменные.

[Sweet-_-Orange]

ну оно не вычисляет
ноли выводятся

[whatever]

Признаю, мой косяк

Procedure Proc1(y2,y1,x2,x1:real; var p,s:real);
  begin
//  b:=Y2-Y1;//зачем?
//  a:=X2-X1;//тоже не надо
  p:=(2*(X2-X1))+(2*(Y2-Y1));
  s:=(Y2-Y1)*(X2-X1);
  end;

[Sweet-_-Orange]

выдает
1.400000000000000Е+0.01
1.000000000000000Е+0.01

знаки после запятой,
readln(p:3:3);
readln(s:3:3);
так?