Подпрограмма процедура

  • Автор темы advokat92
  • Дата начала
A

advokat92

Гость
#1
Заданы стороны двух треугольников АВС (стороны а, в, с) и DEF (сто-роны d, e, f). Найти сумму и разность площадей треугольников АВС DEF. Площадь треугольника NKM со сторонами n, k, m
вычисляется по формуле: W=sqrt(r*(r-n)*(r-k)*(r-m))
r - полупериметр треугольника NKM. Исходные данные: а=3; b=2,5; c=1,7; d=2; e=7,8; f=7
Используя подпрограмму- процедуру.
 
09.11.2009
665
1
23
Киев
#2
:happy:
Код:
procedure get_S(a,b,s:real; var S:real):real;
var p:real;
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

procedure get_P(a,b,s:real; var P:real):real;
begin
P:=(a+b+c);
end;