Как оформить подпрограмму?

Question

[Dazai228]

Здравствуйте! Хотел бы попросить помощь, нужно оформить вычисление площади треугольника по формуле Герона в виде подпрограммы

var 
a,b,c,p,l,f,p1,p2,s1,s2, sum, razn: real;

begin
writeln('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
writeln('p='); readln(p);
writeln('l='); readln(l);
writeln('f='); readln(f);
p1:=(a+b+c)/2;
p2:=(p+l+f)/2;
s1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
s2:=sqrt(p2*(p2-p)*(p2-l)*(p2-f));
sum:=s1+s2;
razn:=s1-s2;
writeln('Сумма=', sum);
writeln('Разница= ', razn);
readln;
end.

Comments

[Василий Банников]

Где отступы? Почему переменные так называются?

Answer 1

[Василий Банников]

https://wiki.freepascal.org/Function
В твоём случае можно что-то типа:

program geron;

function triangleArea(const a, b, c: real): real;
var p: real;
begin
 p:=(a+b+c)/2; {периметр}
 triangleArea:=sqrt(p*(p-a)*(p-b)*(p-c)); {площадь}
end;

var a, b, c, s1, s2: real;
begin
 writeln('Стороны первого треугольника:');
 write('a='); readln(a);
 write('b='); readln(b);
 write('c='); readln(c);
 s1 := triangleArea(a, b, c);

 writeln('Стороны второго треугольника:');
 write('a='); readln(a);
 write('b='); readln(b);
 write('c='); readln(c);
 s2 := triangleArea(a, b, c);
 
 writeln('Сумма=', s1+s2:0:5); {5 знаков после запятой}
 writeln('Разность=', s1-s2:0:5);
end.

Comments

[Dazai228]

Я в этом не смогу разобраться за вечер, задали в института, хотя учусь не на программиста.

[Василий Банников]

Dazai228, Но ведь у вас же были какие-то уроки перед тем, как вам дали задание? Почему не учились?
В целом программирование - это нужный навык во всех современных научных и технических профессиях.

[Dazai228]

Выдает ошибку в первой строчке Встречено ',', а ожидалось ';'

[Dazai228]

Василий Банников, Да уроки и правда были, а я упустил материал из-за проблем со здоровьем, а вскоре из-за лени догонять. Но сейчас буду стараться что-то понять.

[Василий Банников]

Dazai228, поправил код, была ошибка в синтаксисе аргументов функции. Сейчас должен работать

[Dazai228]

Василий Банников, Все работает, спасибо большое вам за помощь.

[Dazai228]

Василий Банников, наверное это нагло, но прошу вас помочь мне с последней задачей. Если вы откажите, то тогда не знаю как я буду с этим разбираться.

[Василий Банников]

Dazai228, у вас есть ссылка на Вики. Можете там читать

[Dazai228]

Василий Банников, ладно. все равно большое спасибо вам за помощь.