Pascal

[Ervach]

помогите прошу в TurboPascal..
Опишите функцию и процедуру вычисления площади треугольника по трём сторонам)
срочненько...

[domovou]

И вам здрасте)
Это вам формула:

p:=(a+b+c)/2;
S=sqrt(abs(p*(p-a)*(p-b)*(p-c)));

в основной программе запрашиваешь а,b,c и пересылаешь в процедуру
pr(a,b,c);

procedure  pr(a,b,c:real);
var  p,S:  real ;
begin
{вставляеш формулу}
end.

а вот функция

function  rp(a,b,c):real;
var p,S:real;
begin
{вставляеш формулу}
rp:=S;
end.

И извиняете за срочность как смогли)

[Ervach]

Огромнейшее спасибо)

[domovou]

Сообщение от spani

Дорогие форумчани, помогите сделать похожее задание: Описать функцию и процедуру вычисления периметра треугольника по координатам вершин. Заранее благодарен

var x1,x2,x3,y1,y2,y3:real;
procedure perimetr_treygol(x1,x2,x3,y1,y2,y3:real);
var a,b,c,d,k,l,m,q,n,P:real;
begin
d:=y2-y1;
k:=x2-x1;
a:=sqrt(k*k+d*d);
l:=y3-y2;
m:=x3-y2;
b:=sqrt(l*l+m*m);
q:=y3-y1;
n:=x3-x1;
c:=sqrt(q*q+n*n);
P:=a+b+c;
Writeln ('Перимитр треугольника = ' , p );
End;

function per(x1,x2,x3,y1,y2,y3:real):real;
var a,b,c,d,k,l,m,q,n,P:real;
begin
d:=y2-y1;
k:=x2-x1;
a:=sqrt(k*k+d*d);
l:=y3-y2;
m:=x3-y2;
b:=sqrt(l*l+m*m);
q:=y3-y1;
n:=x3-x1;
c:=sqrt(q*q+n*n);
P:=a+b+c;
per:=p;
End;
begin
Writeln ('Введиите кординаты углов');
Write ('x1, y1 ->'); readln (x1, y1);
Write ('x2, y2 ->'); readln (x2, y2);
Write ('x3, y3 ->'); readln (x3, y3);
perimetr_treygol(x1,x2,x3,y1,y2,y3);
writeln('Perimetr treygol = ',per(x1,x2,x3,y1,y2,y3));
end.

[Poma][a]

spani, создайте собственную тему, а не пользуйтесь темой, никак не относящейся к Вашему вопросу.
И как Вам помочь? Научить Паскаль открывать? Или что? Если даны координаты вершин, то Вам надо лишь вычислить расстояния, а как это сделать? - Тема геометрии 9 класса. (AB = корень из ((х1-х2)^2 + (y1-y2)^2))

[spani]

Сообщение от domovou

var x1,x2,x3,y1,y2,y3:real;
procedure perimetr_treygol(x1,x2,x3,y1,y2,y3:real);
var a,b,c,d,k,l,m,q,n,P:real;
begin
d:=y2-y1;
k:=x2-x1;
a:=sqrt(k*k+d*d);
l:=y3-y2;
m:=x3-y2;
b:=sqrt(l*l+m*m);
q:=y3-y1;
n:=x3-x1;
c:=sqrt(q*q+n*n);
P:=a+b+c;
Writeln ('Перимитр треугольника = ' , p );
End;

function per(x1,x2,x3,y1,y2,y3:real):real;
var a,b,c,d,k,l,m,q,n,P:real;
begin
d:=y2-y1;
k:=x2-x1;
a:=sqrt(k*k+d*d);
l:=y3-y2;
m:=x3-y2;
b:=sqrt(l*l+m*m);
q:=y3-y1;
n:=x3-x1;
c:=sqrt(q*q+n*n);
P:=a+b+c;
per:=p;
End;
begin
Writeln ('Введиите кординаты углов');
Write ('x1, y1 ->'); readln (x1, y1);
Write ('x2, y2 ->'); readln (x2, y2);
Write ('x3, y3 ->'); readln (x3, y3);
perimetr_treygol(x1,x2,x3,y1,y2,y3);
writeln('Perimetr treygol = ',per(x1,x2,x3,y1,y2,y3));
end.

спасибо большое!