D. TIẾN TRÌNH LÊN LỚP: I.ỔN ĐỊNH LỚP(1’):
15. Giáo viên: Giáo án, SGK, máy chiếu, giấy A0 và bút.
16. Học sinh: Chuẩn bị bài ở nhà.
D. TIẾN TRÌNH LÊN LỚP: I.ỔN ĐỊNH LỚP(1’): I.ỔN ĐỊNH LỚP(1’):
Lớp 11A1 11B1 11B2 11B3 11B4 Vắng
II.KIỂM TRA BÀI CŨ(5'):
1.Hãy nêu cú pháp về khai báo biến bản ghi? 2.Hãy khai báo biến bản ghi của ví dụ sau:
BẢNG ĐIỂM TRUNG BÌNH NĂM HOC 2007-2008
TT Họ tên năm sinh Toán Lý Hoá Văn TB Xếp loại
1 ... n
III.BÀI MỚI:a.Đặt vấn đề(1’): a.Đặt vấn đề(1’):
Kiểu dữ liệu bản ghi được dùng để mô tả các đối tượng có cùng một số thuộc tính mà các thuộc tính có thể có các kiểu dữ liệu khác nhau, chúng ta đã nghiên cứu lý thuyết về kiểu bản ghi ở tiết trước. Hôm nay chúng ta vận dụng kiểu bản ghi để làm một số bài tập.
b.Triển khai bài mới:
HOẠT ĐỘNG CỦA THẦY VÀ TRÒ NỘI DUNG KIẾN THỨC
Hoạt động 1(10’)
(Giới thiệu cách truy xuất đến trường) Gv:
-Yêu cầu Hs đọc câu hỏi bài tập 11/80
-Yêu cầu Hs xem lại ví dụ và trả lời câu hỏi sau: Hãy xem ví dụ 3 trong SGK bổ sung thêm đoạn chương trình và đưa ra màn danh sách những học sinh chỉ có xếp loại A?
Hs:Đọc đề bài kết hợp với ví dụ trong SGK để sửa lại chương trình
Gv:
-Phân tích từng câu lệnh của Hs đưa ra=>Kết luận chương trình cụ thể
-Đưa toàn bộ chương trình lên máy chiếu và chạy một vài bộ test để kiểm chứng thuật toán.
Bài tập 11/80(SGK):
Lưu ý vận dụng bài tập tiết 34
Hãy bổ sung thêm vào chương trình Xeploai (ở bài 13) những lệnh cần thiết để chương trình đưa ra danh sách học sinh xếp loại A.
Writeln(' TT ',' Ho va Ten ', ' Xloai '); For i:=1 to n do If lop[i].xeploai='A' Then Begin Write(i:4); Write(Lop[i].ten:30); Write(Lop[i].Xeploai); Writeln; End;
Hoạt động 2(24’) (Rèn luyện tư duy lập trình)
Gv:Đưa câu hỏi bài tập 2 lên máy chiếu và Y/c học sinh đọc.
Hãy nêu cách tổ chức dữ liệu cho bài tập 2?
Hs:Lên bảng viết cách khai báo biến bản ghi
Gv:Tổ chức hoạt động nhóm như sau:
+Nhóm 1: Viết đoạn chương trình nhập Họ và tên, DTBHK1 và DTBHK2 của từng học sinh. +Nhóm 2:Viết đoạn chương trình tính TBCN và xếp loại
+Nhóm3:Viết đoạn chương trình sắp xếp theo thứ tự tăng dần của cột điểm TBCN
+Nhóm 4:Xuất kết quả theo bảng như sau:
TT Họ tên DHK1 DHK2 DCN XL
1 2 ... n
Hs: Thảo luận theo nhóm đã phân công
Gv:
-Y/c các nhóm trình bày trên giấy A0
-Sau khi thảo luận nhóm xong thì từng nhóm lên bảng trình bày, các nhóm khác bổ sung.
-Sau các nhóm bổ sung thi Gv nhận xét và phân tích từng đoạn chương trình=>Đưa chương tình cụ thể sau lên máy chiếu và chạy thử một vài bộ Test để kiểm chứng thuật toán.
Bài tập 2/145(SBT Pascal5.5):
Viết chương trình nhập họ tên, điểm DHK1 và DHK2 của từng Hs trong lớp.
a.Tính TBCN và xếp loại.
b. Xếp hạng theo thứ tự tăng dần của cột điểm TBCN của từng học sinh.
c.Thông báo theo bảng sau theo thứ tự sắp xếp cột điểm TBCN TT Họ tên DHK1 DHK2 DCN XL 1 2 ... n *Chương trình: Type Bdiem=Record Hoten:String; DHK1,DHK2,TBCN:Real; Xeploai:String[5]; End;
Var Hs:Array[1..60] Of Bdiem; I,j,n:Byte;
Tg:Bdiem; Begin
Write('Nhap so luong Hs n='); Readln(n); For i:=1 To n Do
With Hs[i] Do Begin
Write('Nhap Ho ten',i); Readln(Hoten); Write('NhapTBHK1',i); readln(DHK1); Write('NhapTBKT2',i); Readln(DHK2); End;
{Tinh TB Ca nam va Xep loai}
Hs[i].TBCN:=(Hs[i].DHK1+Hs[i].DHK2*2)/3; For i:=1 To n Do
With Hs[i] Do Begin
If TBCN>=8.0 Then Xeploai:='Gioi';
if (TBCN>=6.5)and(TBCN<8.0) Then Xeploai:='Kha'; If (TBCN>=5) and (TBCN<6.5) Then Xeploai:='TB'; If (TBCN>=3.5) and (TBCN<5) Then Xeploai:='Yeu'; If TBCn<3.5 Then Xeploai:='kem'; End; For i:=1 to n-1 Do For j:=i+1 to n Do If Hs[i].TBCN> Hs[j].TBCN Then Begin tg:=Hs[i]; Hs[i]:=Hs[j]; Hs[j]:=tg; End;
{Thong bao ket qua nhu sau}
Writeln('...');
Writeln('| TT |','| Ho ten |','| TBCN |','| xeploai |'); Writeln('...'); For i:=1 to n do With Hs[i] Do Writeln(i:5,hoten:20,TBCN:10:2,Xeploai:10); Readln; End.
IV.CỦNG CỐ(3'): Đưa lên máy chiếu ví dụ như sau: -Cần nắm:
+Cách khai báo biến bản ghi
+Cách truy xuất vào giá trị của trường
+Cách nhập và xuất các trường trong bản ghi. +Một số câu lệnh cơ bản
-Hai thuật toán: Sắp xếp, tính toán
V.DẶN DÒ(1’): Đưa lên màn hình máy chiếu như sau: -Tiết sau học tiết: Tiết 36: Kiểm tra 1 tiết
- Câu hỏi ôn tập: