Bài giảng Tin học Lớp 11 - Tiết 6+7, Bài 17: Chương trình con và phân loại (Biến và tham số)

 Chủ đề: Chương trỡnh con ( tiếp) 
 biến và tham số
 Giáo án điện tử tin học lớp 11 Program tong_luy_thua;
Uses crt;
Var a,b,c,d,S : real;
 n,m,p,q :integer; 
Function luythua(x: real,k:integer): real;
Var j: integer; Lt:Real;
 begin 
 Lt:=1;
 For j:=1 to k do Lt:=Lt*x;
 Luythua:=Lt;
 end;
BEGIN
Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(a,b,c,d);
write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(n,m,p,q);
s:= luythua(a,m)+luythua(b,n)+luythua(c,p)+luythua(d,q);
Writeln(‘ Tong luy thua =’, S:7:2);
Readln;
END. Ví dụ 2: Lập chơng trình vẽ các hình chữ nhật bằng dấu * có kích thớc khác nhau.
 Theo bạn để viết  Dùng chơng trình con thủ tục 
 chơng trình cho ví 
 dụ trên ta nên Ve_HCN(dai,rong) để vẽ một hình chữ 
 dùng loại chơng nhật.
 trình con nào?
  Trong chơng trình chính, dùng lời gọi 
 thủ tục và truyền các tham số với giá 
 trị khác nhau để vẽ các hình chữ 
 nhật khác.
 Ví dụ: Ve_HCN(25,20); Ve_HCN(3,7) Program VD; Biến toàn cục
var a,b: byte; Biến cục bộ
Procedure Ve_HCN( chdai,chrong:integer);
 Var i,j: integer;
 Begin 
 For i:=1 to chdai do write(‘ * ’); 
 Writeln; Tham số 
 For j:=1 to chrong-2 do hình thức
 begin
 write(‘ * ’);
 for i:=1 to chdai-2 do write(‘ ‘);
 writeln(‘ * ’);
 end;
 For i:=1 to chdai Do write(‘ * ’); 
 writeln;
 end;
BEGIN Tham số thực sự 
 Ve_HCN(25,10); (tham trị) 
 Writeln; a:=5 ; b:=10; 
 Ve_HCN(a,b);
readln;
END. Hãy nhớ!
➢ Biến: 
 - Khai báo trong chơng trình 
 chính là biến toàn cục. 
 - Khai báo trong chơng trình 
 con là biến cục bộ. 
➢ Tham số
 - Biến khai báo cho dữ liệu vào 
 ra trong chơng trình con gọi là 
 tham số hình thức. 
 - Biến chứa trong lời gọi CTC ở 
 chơng trình chính là các tham 
 số thực sự.