Chương trình con và lập trình có cấu trúc

Thúy Vy Dương

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)

Nguyễn Lê Phước Thịnh
7 tháng 7 2020 lúc 11:08

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;

Bình luận (0)

Các câu hỏi tương tự
09 Lê Quang HIếu
Xem chi tiết
27. Nguyễn Chí Thiện
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Minh Thư
Xem chi tiết
Nya arigatou~
Xem chi tiết
Nya arigatou~
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Đạt Tạ
Xem chi tiết
Phạm Thi Thúy My
Xem chi tiết