Question

1. viết chương trình con tính diện tích hình vuông có cạnh a là số nguyên ? ( sử dụng hàm hoặc thủ tục)

2. viết chương trình con tính diện tích tam giác , khi biết độ dài 3 cạnh a,b,c là số nguyên ? s=sqrt (p(p-a)(p-b)(p-c)) p=(a+b+c)/2

3.Viết chương trình con hoán đổi giá trị của 2 biến số nguyên a ,b?

4.Viết chương trình con tính chu vi hình tròn nội tiếp tam giác đều , biết cạnh của tam giác là a ( số nguyên ) ? r= asqrt(3)/6.

giúp em với ạ 😢😢 ( làm trên pascal sử dingj thủ tục)

Answer 1

Bài 1:

*Hàm

function dientich(var x:integer):real;

begin

dientich:=sqr(x);

end;

*Thủ tục:

procedure dientich(var x:integer);

var dt:real;

begin

dt:=sqr(x);

writeln('Dien tich hinh vuong la: ',dt:0:0);

end;

Bài 2:

*Thủ tục:

procedure dientich(var a,b,c:real);

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end;

*Hàm

function dientich(var a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dientich:=s;

end;

Bài 3:

*Thủ tục

procedure hoandoi(var a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;