Bài 18: BIẾN CỤC BỘ VÀ BIẾN TOÀN BỘ Tiết 3 Nội dung: I. Khái niệm: – Biến cục bộ. – Biến toàn bộ. II. Ví dụ. Program Vi_dụ; Var a: Integer ; (*…………………………………….*) Procedure CT_con; Var b :Integer; Begin .…………… End; (*……………………………………*) BEGIN (*Chương trình chính*) END. Biến toàn bộ Biến cục bộ 1. Biến cục bộ:là biến được khai báo trong chương trình con chỉ có tác dụng trong phạm vi chương trình con đó. 2. Biến toàn bộ: là biến được khai báo trong chương trình chính , các chương trình con được phép sử dụng các biến này. I. Khái niệm II. Ví dụ 1. Ví dụ 2: Program vd2; Var x:integer; Procedure proc1; var y: integer; begin end; Begin End. {tại đây có thể sử dụng biến x và y} {tại đây chỉ có thể sử dụng biến x} {Sử dụng biến y sẽ báo lỗi } Có thể khai báo biến toàn bộ và biến cục bộ cùng tên không ? 2. Ví dụ : Program vd; Var i: integer; Procedure proc; Var i: integer; Begin i:=100; End; Begin i:=1; proc; Writeln(i); End. Biến toàn bộ Biến cục bộ Program vd3; Var i: integer; Procedure proc; Var i: integer; Begin i:=100; End; Begin i:=1; proc; Writeln(i); End. Câu hỏi: hãy cho biết kết quả của chương trình này: 2. Ví dụ 3: Ket qua Vậy: Trong chương trình con có biến cục bộ i và trong chương trình chính có biến toàn bộ cũng có tên là i. Khi đó trong chương trình con thì biến i cục bộ có tác dụng, còn khi chương trình con kết thúc thì biến toàn bộ lại lấy lại tác dụng của nó. 2. Ví dụ 3.2: Program vd3; Var i: integer; Procedure proc; Var i: integer; Begin i:=7; writeln(i:6); End; Begin i:=5; proc; Writeln(i:6); End. Câu hỏi: hãy cho biết kết quả của chương trình này: Ket qua Thủ tục writeln trong chương trình chính sẽ đưa ra xâu được nhập vào từ bàn phím bởi thủ tục getname. Giải thích 3. Ví dụ 4: Program vd4; Name: string[10]; Procedure GetName; Begin write(‘hay cho biet ten cua ban:’); readln(Name); End; Begin GetName; writeln(Name); End. . Bài 18: BIẾN CỤC BỘ VÀ BIẾN TOÀN BỘ Tiết 3 Nội dung: I. Khái niệm: – Biến cục bộ. – Biến toàn bộ.. con kết thúc thì biến toàn bộ lại lấy lại tác dụng của nó. 2. Ví dụ 3. 2: Program vd3; Var i: integer; Procedure proc; Var i: integer; Begin i:=7; writeln(i:6);