Для создания парковой зоны

[maxim1592]

помогите составить программу, плиз!!!

Для создания парковой зоны предполагается объединить три земельных участка. Определить, какова будет площадь зоны отдыха, если границы участков заданы (данные корректны).
Дано: a, b, c, d, e, f, g – границы участков.
Найти: S – суммарная площадь участков.
S = S1 + S2 + S3 , где S1, S2, S3 – площади участков.
Решение задачи сводится к трехкратному вычислению площадей треугольников по формуле Герона. Имеет смысл вычисление площади оформить в виде подпрограммы пользователя. Входные данные для подпрограммы: x, y, z – длины сторон треугольника, результат , где . Так как результатом выполнения подпрограммы является единственное значение (площадь), относящееся к простому типу, целесообразно использовать функцию пользователя

[ZX Spectrum-128]

Формулу Герона знаете? Тогда ничего сложного:
Ввод данных, вычисления по формулам и вывод результата.

[maxim1592]

ф-лу не знаю...может скините образец?

[ZX Spectrum-128]

http://ru.m.wikipedia.org/wiki/%D4%E...E5%F0%EE%ED%E0
Участки земли треугольной формы?

[maxim1592]

да, треугольной формы

[maxim1592]

что здесь не так????

program pr;
var a,b,c,d,e,f,g:real;
p1,p2,p3,s1,s2,s3,s:real;
begin
write('введите числа a,b,c,d,e,f,g =');
  readln(a,b,c,d,e,f,g);
    p1:=(a+b+f)/2;
    p2:=(f+c+g)/2;
    p3:=(e+g+d)/2;
s1:= sqrt(p1*(P1-a)*(p1-b)*(p1-f));
s2:= sqrt(P2*(P2-f)*(p2-c)*(p2-g));
s3:= sqrt(P3*(P3-e)*(p3-g)*(p3-d));
s:=s1+s2+s3;
   writeln ( 's = ' , s);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[maxim1592]

что здесь не так?????

program pr;
var a,b,c,d,e,f,g:real;
p1,p2,p3,s1,s2,s3,s:real;
begin
write('введите числа a,b,c,d,e,f,g =');
  readln(a,b,c,d,e,f,g);
    p1:=(a+b+f)/2;
    p2:=(f+c+g)/2;
    p3:=(e+g+d)/2;
s1:= sqrt(p1*(P1-a)*(p1-b)*(p1-f));
s2:= sqrt(P2*(P2-f)*(p2-c)*(p2-g));
s3:= sqrt(P3*(P3-e)*(p3-g)*(p3-d));
s:=s1+s2+s3;
   writeln ( 's = ' , s);
end.

[ZX Spectrum-128]

program pr;

function Geron(x,y,z:real):real;
var
  p:real;
begin
  p:=(x+y+z)/2;
  geron:=sqrt(p*(p-x)*(p-y)*(p-z));
end;

var
  a,b,c,d,e,f,g:real;
begin
  write('введите числа a,b,c,d,e,f,g =');
  readln(a,b,c,d,e,f,g);
  writeln ( 's = ' , Geron(a,b,f)+Geron(f,c,g)+Geron(e,g,d));
end.