Безотлагательно ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 30 БАЛЛОВЗадача: "Написать модуль для вычисления площади

Безотлагательно ПОМОГИТЕ Поправить ОШИБКУ. 30 БАЛЛОВ

Задачка: "Написать модуль для вычисления площади треугольника по формуле Герона(она ниже представлена).

Основная ПМ:

program GERON;
uses crt,formula;
var S,p:real;
a,b,c:real;
begin clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
resh(S,p,a,b,c);
write('S=',S:12:2);
readkey
end.

Модуль:

unit formula;
interface
procedure resh(a,b,c:real;var p,S:real);
implementation
procedure resh(a,b,c:real;var p,S:real);
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
end.

Сущность в том что написанно все правельно но при вводе чисел ничего нет (S=0) программа не работает,помогите поправить ошибку.

Елизавета Шабальцева 2019-08-12 03:26:08

Неправильный порядок следования доводов в вызове процедуры resh(S,p,a,b,c)  поменять на resh(a,b,c,p,S)  тогда выведет значение S.