1. Ổn định lớp.2. Kiểm tra bài cũ: 2. Kiểm tra bài cũ:
Câu hỏi: Nêu cú pháp định nghĩa kiểu bản ghi và khai báo biến thuộc kiểu bản
ghi?
Trả lời: - Định nghĩa kiểu bản ghi:
Type <Tên kiểu bản ghi>=Record
<Tên trường 1>:<Kiểu trường 1>; <Tên trường 2>:<Kiểu trường 2>; ... <Tên trường n>:<Kiểu trường n>; End;
- Khai báo biến bản ghi:
Var <Tên biến bản ghi>:<Tên kiểu bản ghi>;
3. Vào bài mới:
HOẠT ĐỘNG CỦA GVVÀ HS VÀ HS
NỘI DUNGGV: Ghi đề bài lên bảng. GV: Ghi đề bài lên bảng.
GV: Cho biết cơng thức
tính tọa độ trọng tâm G của tam giác ABC.
HS:
xG:=(xA+xB+xC)/3; yG:=(yA+yB+yC)/3;
GV: Hãy định nghĩa một
kiểu bản ghi tên Diem gồm 2 trường x và y cĩ kiểu số thực.
HS: Lên bảng viết định
nghĩa kiểu bản ghi Diem.
Bài 1: Toạ độ điểm trên mặt phẳng được cho bởi cặp hai số thực tương ứng với hồnh độ và tung độ của điểm đĩ.
a) Mơ tả kiểu bản ghi để biểu diễn toạ độ điểm.
b) Viết chương trình cĩ sử dụng kiểu bản ghi trong mục a) để thực hiện:
- Nhập vào từ bàn phím toạ độ 3 đỉnh A,B,C của tam giác ABC.
- Tính và hiện thị ra màn hình toạ độ trọng tâm của tam giác đĩ. program baitap; Type diem=record hoanhdo:real; Tungdo:real; end; var A,B,C,G:diem; BEGIN clrscr;
GV: Viết đoạn chương
trình nhập giá trị cho 3 điểm A, B, C.
HS: Lên bảng viết đoạn
chương trình.
GV: Viết đoạn chương
trình tính tọa độ trung điểm G của tam giác ABC và in kết quả ra màn hình.
HS: Lên bảng viết đoạn
chương trình.
GV: Ghi đề bài lên bảng.
GV: Hãy mơ tả kiểu bản
ghi biểu diễn thơng tin học sinh và khai báo một mảng lop gồm 50 phần tử cĩ kiểu học sinh.
HS: Lên bảng viết khai
báo.
GV: Số học sinh mà ta
cần nhập thơng tin là bao nhiêu?
write('Nhap toa do diem
A:');readln(A.hoanhdo,A.tungdo); write('Nhap toa do diem
B:');readln(B.hoanhdo,B.tungdo); write('Nhap toa do diem B:');readln(C.hoanhdo,C.tungdo);
G.hoanhdo:=(A.hoanhdo+B.hoanhdo+C.hoanhdo)/3; G.Tungdo:=(A.tungdo+B.tungdo+C.tungdo)/3; Write('Toa do trong tam cua tam giac ABC la: (',G.hoanhdo:4,';',G.tungdo:4,')');
readln; END.
Bài 2: Lớp 11A cĩ khơng quá 50 học sinh. Bảng điểm mơn tin học của lớp cĩ 7 cột. Cột 1 là STT, cột 2 là Họ và tên, cột 3,4,5,6,7 là điểm Miệng, 15 phút, 1 tiết, hoc kỳ, TBKT (với miệng, 15 phút là hệ số 1, 1 tiết hệ số 2, học kì hệ số 3). Viết chương trình thực hiện:
a) Mơ tả kiểu bản ghi biểu diễn thơng tin của một học sinh đối với mơn tin học.
b) Nhập vào từ bàn phím các thơng tin sau đây cho từng học sinh. STT, các điểm thành phần.
c) Tính điểm TBKT cho từng học sinh.
d) Hiện thi ra màn hình thơng tin của các học sinh gồm STT, họ tên và TBKT (mỗi học sinh trên một hàng).
program baitap; uses Crt; Type hocsinh=record stt:byte; Hoten:string[30]; m,kt15p,kt1t,hk,tbkt:real; end;
var lop:array[1..50] of hocsinh; i,n:byte;
BEGIN
clrscr;
Write('Cho biet so hoc sinh cua lop:');readln(n); for i:=1 to n do
BEGIN
Writeln('Nhap thong tin cua hoc sinh thu ',i,':'); write('Nhap so TT:'); readln(lop[i].stt);
write('Nhap ho ten:'); readln(lop[i].hoten); Write('Nhap diem mieng:'); readln(lop[i].m); Write('Nhap diem 15 phut'); readln(lop[i].kt15p); write('Diem kiem tra 1 tiet:'); readln(lop[i].kt1t); Write('Diem kiem tra hoc ky:'); readln(lop[i].hk); lop[i].tbkt:=(lop[i].m+lop[i].kt15p+lop[i].kt1t*2+lop[i].hk*
HS: Số học sinh can nhập
là N (N<=50).
GV: Mỗi học sinh thì cần
nhập mấy thơng tin và đĩ là những thơng tin nào?
HS: Mỗi học sinh cần nhập 6 thơng tin đĩ là: STT, HoTen, M, kt15p, kt1t, HK. GV: Hãy nhắc lại cú pháp tham chiếu đến trường của biến bản ghi.
HS: <Tên biến bản
ghi>.<Tên trường>
GV: Viết đoạn chương
trình nhập thơng tin học sinh.
HS: Lên bảng viết đoạn
chương trinh.
GV: Nhận xét đánh giá
cho điểm.
GV:Chúng ta cần in
nhưng thơng tin nào ra màn hình của các học sinh?
HS: Lên bảng viết đoạn
chương trinh in danh sách học sinh ra màn hình.
GV: Nhận xét đánh giá
cho điểm.
3)/7; end;
Writeln('Bang diem mon tin cua lop:'); For i:=1 to N do
writeln(Lop[i].stt:5,lop[i].hoten:30,lop[i].tbkt:10:2); readln;
END.
4. Củng cố: Khi sử dụng kiểu bản ghi để biểu diễn thơng tin của một đối tượng nào
đĩ thì ta cần xác định đối tượng đĩ gồm những thơng tin nào?
Tuần 24 tiết 32.
Ngày soạn: 23/01/2011. Ngày dạy:
26/01/2011.
Đề bài dạy: THỰC HÀNH (kiểu bản ghi) I. Mục đích yêu cầu:
- Hiểu hơn về kiểu dữ liệu bản ghi.
- Rèn luyện kỹ năng viết chương trình trên máy tính.
II. Chuẩn bị của thầy và trị:
Thầy: SGK + Giáo án + phịng máy. Trị: SGK + chuẩn bị bài tập ở nhà.
III. Tiến trình tiết dạy:
1. Ổn định lớp.
2. Vào bài mới:
HOẠT ĐỘNG CỦAGV VÀ HS GV VÀ HS NỘI DUNG GV: Khởi động chương trình pascal soạn và chạy thử 2 chương trình đã được sửa ở tiết bài tập.
GV: Soạn và chạy thử chương trình ở bài tập 1. HS: Soạn chương trình và chạy thử chương trình. GV: Quan sát lớp và hướng dẫn học sinh thực hành. GV: Soạn và chạy thử chương trình ở bài tập 2. HS: Soạn chương trình và chạy thử
Hoạt động 1: Soạn và chạy thử chương trình sau:
program baitap; Type diem=record hoanhdo:real; Tungdo:real; end; var A,B,C,G:diem; BEGIN clrscr;
write('Nhap toa do diem A:');readln(A.hoanhdo,A.tungdo); write('Nhap toa do diem B:');readln(B.hoanhdo,B.tungdo); write('Nhap toa do diem B:');readln(C.hoanhdo,C.tungdo); G.hoanhdo:=(A.hoanhdo+B.hoanhdo+C.hoanhdo)/3; G.Tungdo:=(A.tungdo+B.tungdo+C.tungdo)/3; Write('Toa do trong tam cua tam giac ABC la: (',G.hoanhdo:4,';',G.tungdo:4,')');
readln; END.
Hoạt động 2: Soạn và chạy thử chương trình sau:
program baitap; {uses Crt;} Type hocsinh=record stt:byte; Hoten:string[30]; m,kt15p,kt1t,hk,tbkt:real; end;
var lop:array[1..45] of hocsinh; i,n:byte;
chương trình. GV: Quan sát lớp và hướng dẫn học sinh thực hành. BEGIN {clrscr;}
Write('Cho biet so hoc sinh cua lop:');readln(n); for i:=1 to n do
BEGIN
Writeln('Nhap thong tin cua hoc sinh thu ',i,':'); write('Nhap so TT:');readln(lop[i].stt);
write('Nhap ho ten:');readln(lop[i].hoten); Write('Nhap diem mieng:');readln(lop[i].m); Write('Nhap diem 15 phut');readln(lop[i].kt15p); write('Diem kiem tra 1 tiet:');readln(lop[i].kt1t); Write('Diem kiem tra hoc ky:');readln(lop[i].hk);
lop[i].tbkt:=(lop[i].m+lop[i].kt15p+lop[i].kt1t*2+lop[i].hk*3)/7; end;
Writeln('Bang diem mon tin cua lop:50'); For i:=1 to N do
writeln(Lop[i].stt:5,lop[i].hoten:30,lop[i].tbkt:10:2); readln;
END.
Tuần 25 tiết 33
Ngày soạn:12/02/2011 Ngày dạy:
15/02/2011.
Bài dạy: ƠN TẬP CHƯƠNG IV (tiết 1)
I. Mục tiêu:
1. Kiến thức
- Ơn tập lại kiến thức của chương cho học sinh
2. Kĩ năng
- Rèn luyện kỹ năng viết chương trình.
3. Thái độ