Question

Viết phương trình pascal tính đường cao của tam giác ( dạng hàm và thủ tục ) giúp em với ạ

Answer 1

Dạng thủ tục:

procedure duongcao(var x,y,z:real);
var p,s,dc:real;
begin
p:=(x+y+z)/2;
s:=sqrt(p*(p-x)*(p-y)*(p-z));
dc:=s/(x/2);
writeln('Do dai cua duong cao la: ',dc:4:2);
end;

Dạng hàm:

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