СРОЧНО ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 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) программа не работает,помогите исправить ошибку.
Ответы
Ответ дал:
0
p:=(a+b+c)/2; это модуль
resh(S,p,a,b,c); это пм
resh(S,p,a,b,c); это пм
Ответ дал:
0
учитель над тобой поржать хочет либо умнож на число пи пм и модуль
Ответ дал:
0
нет
Ответ дал:
0
мне нужно ввести стороны
Ответ дал:
0
и по этой формулы надо что бы вывелась площадь
Ответ дал:
0
но выводится 0
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад