СРОЧНО ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 30 БАЛЛОВ Задача: "Написать модуль для вычисления площади треугольника по формуле Герона(она ниже представлена). Основная ПМ: program GERON; uses crt,formula; var S,p:real; a,b,c:real; begin c...
СРОЧНО ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 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) программа не работает,помогите исправить ошибку.
Гость
Ответ(ы) на вопрос:
Гостьp:=(a+b+c)/2; это модуль
resh(S,p,a,b,c); это пм
Не нашли ответ?
Похожие вопросы