Chương trình con

CHƯƠNG TRÌNH CON
Bài 1: Viết chương trình tính tổng 2 số nguyên a và b được nhập từ bàn phím.

Program B1;
Var a, b: integer;
Function Tong (x, y: integer): Integer;
Var S: integer;
Begin
S:= x + y;
Tong:= S;
End;
Begin
Write (‘Cho 2 so nguyen ‘);
Readln (a,b);
Writeln (‘Tong hai so da cho bang : ‘,Tong(a,b));
Readln
End.



Bài 2: Tính tổng luỹ thừa:
+
+
+



Program B2;
Var Tonglt: integer;
Function lthua (x, k: integer): Integer;
Var i, LT: integer;
begin
LT:= 1;
For i:=1 to k do
LT:= LT * x;
lthua:= LT;
end;
begin
write (‘Cho cac gia tri: ‘);
readln (a, b, c, d, m, n, p, q);
Tonglt:= lthua (a, m) + lthua (b, n) + lthua (c, p) + lthua (d,q);
Writeln (‘Tong luy thua bang: ‘,Tonglt);
Readln
End.



Bài 3: Viết chương trình tính chu vi và diện tích hình tròn với bán kính được nhập từ bàn phím (Có sử dụng chương trình con hàm).




Program Hinh_tron;
Var r: real;
Function Chuvi (d: real): real;
Const pi:=3.14;
Var P: real;
Begin
P:= 2 * pi * d;
Chuvi:= P;
End;
Function Dientich (x: real): real;
Const pi:=3.14;
Var S: real;
Begin
S:= x * x * pi;
Dien tich:= S;
End;
Begin
Write (Cho gia tri ban kinh: ‘,r);
Readln (r);
Writeln (‘Chu vi cua hinh tron bang: ‘,Chuvi(r));
Writeln (‘Dien tich cua hinh tron la: ‘,Dien tich(r));
Readln
End.