nhau.
- GV: nhận xột kết quả và đưa ra kết luận (cú thể cho điểm cỏc nhúm nếu bài làm tốt) GV: Trong chương trỡnh chớnh ta vẽ tất cả bao nhiờu thủ tục.
GV: Giới thiệu và tham số giỏ trị bvà tham số biến.
Writeln;
For j:=1 to chrong-2 do write(‘ ’); Begin
Write(‘*’);
For i:=1 to chdai-2 do write(‘ ’); Writeln(‘*’);
End;
For i:=1 to chdai do write(‘*’); Writeln;
End;
BEGIN {Bat dau chuong trinh chinh} Clrscr; Ve_HCN(25,10); Writeln; Writeln; Ve_HCN(5,10); Readln; Clrscr; a:=4; b:=2; For i:=1 to 4 do Begin Ve_HCN(a,b); Readln; clrscr; a:=a*2; b:=b*2; end; Readln; END.
* Tham số giỏ trị: cú hai chức năng - Đưa dữ liệu vào cho chương trỡnh con; - Đưa dữ liệu chương trỡnh con tỡm được ra.
* Tham số biến: trong lệnh gọi thủ tục, cỏc tham số hỡnh thức được thay bằng cỏc tham số thực sự tương ứng là tờn cỏc biến chứa dữ liệu ra được gọi là cỏc tham số biến. Hoạt động 3: (Chung cả lớp) (10p)
GV: Chiếu VD_thambien1 len bảng. Hỏi: thủ tục trờn thực hiện cụng việc gỡ;
HS: Hoỏn đổi giỏ trị hai biến dữ liệu vào cho nhau.
GV: Chạy chương trỡnh và thực hiện đổi phần khai bỏo thành: Procedure Hoan_doi (x: integer; var y: integer);
để HS quan sỏt và nhận xột sự khỏc nhau giữa tham biến và tham trị.
Program VD_thambien1; Uses crt;
Var a, b: integer;
Procedure Hoan_doi (var x, y: integer); Var TG: integer; Begin TG:=x; x:=y; y:=TG; End; BEGIN Clrscr; A:= 5; b:=10; Writeln(a:6, b:6); Hoan_doi(a,b); Writeln(a:6,b:6); END. IV. Củng cố (5p)
Procedure Hoan_doi (var x, y: integer); Var TG: integer; Begin TG:=x; x:=y; y:=TG; End; BEGIN Clrscr; A:= 5; b:=10; Writeln(a:6, b:6); Hoan_doi(a,b); Writeln(a:6,b:6); END. IV. Củng cố (5p) V. Dặn dũ (1p)
- Xem tiếp nội dung cũn lại của bài.
- Viết thủ tục tỡm và thụng bỏo ra màn số lớn nhất giữa ba số a, b, c.