Question

СРОЧНО ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 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) программа не работает,помогите исправить ошибку.

Answer 1

p:=(a+b+c)/2; это модуль
resh(S,p,a,b,c); это пм

Answer 2

Проблема возникает из-за некорректной передачи переменных "p" и "S" в процедуру "resh" модуля "formula". Вместо передачи переменных по значению, необходимо передавать их по ссылке.

Вот исправленный код модуля "formula":

pascalCopy code
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.

Теперь код должен работать правильно.