Ngày soạn: 18/2/2009
Tiết : 31
§ BÀI TẬP

A. Mục tiêu
1. Về kiến thức :
- Biết xâu là một dãy kí tự (có thể coi xâu là mảng 1 chiều).
- Biết cách khai báo xâu, truy cập phần tử của xâu.
2. Về kỹ năng :
- Sử dụng được một số thủ tục, hàm thông dụng về xâu.
- Cài đặt được một số chương trình đơn giản có sử dụng xâu.
3. Về thái độ:
- Ham thích môn học, có tính kỷ luật cao và tính thần làm việc theo nhóm.
- Tiếp tục rèn luyện các phẩm chất cần thiết của người lập trình như: xem xét vấn đề
một cách cẩn thận, chu đáo, sáng tạo, không thỏa mãn với các kết quả ban đầu đạt được,…
B. Chuẩn bị
- Phương pháp : thuyết trình, vấn đáp
- Phương tiện : máy chiếu, máy tính.
C. Tiến trình bài dạy
1. Ổn định lớp: Kiểm tra sĩ số
2. Kiểm tra bài cũ:
Cú pháp khai báo biến kiểu xâu, mảng 1 chiều? Ý nghóa hàm upcase(s) ?
3. Giảng bài mới
HOẠT ĐỘNG GV HOẠT ĐỘNG HS NỘI DUNG
Nêu câu hỏi và gợi ý để
HS viết chương trình.
Bài 1: Viết chương trình nhập và hai
xâu Hodem và xâu Ten sau đó in ra
xâu mới với họ và tên đầy đủ
Chương trình
Var

- Bước đầu biết mô tả một đối tượng bằng một số thuộc tính cần quản lí.
- Khai báo kiểu bản ghi.
- Nhận biết được trường (thuộc tính) của một biến bản ghi và bước đầu viết được một
vài thao tác xử lí trên từng trường của bản ghi.
3. Về thái độ:
- Ham thích môn học, có tính kỷ luật cao và tính thần làm việc theo nhóm.
- Tiếp tục rèn luyện các phẩm chất cần thiết của người lập trình như: xem xét vấn đề
một cách cẩn thận, chu đáo, sáng tạo, không thỏa mãn với các kết quả ban đầu đạt được,…
II. Phương pháp, phương tiện dạy học
- Phương pháp : thuyết trình, vấn đáp
- Phương tiện : máy chiếu, máy tính.
III. Tiến trình bài dạy
1. Kiểm tra bài cũ:
Cú pháp khai báo biến kiểu xâu, mảng 1 chiều? Ý nghóa hàm upcase(s) ?
2. Giảng bài mới
HOẠT ĐỘNG GV HOẠT ĐỘNG HS NỘI DUNG
-Để khai báo lý lòch
của một học
sinh,người ta phải
khai báo họ tên
người (kiểu chuỗi),
phái (nam:=1, nữ:=0
theo kiểu Boolean),
ngày sinh,đòa
chỉ,...Với các kiểu
dữ liệu cơ bản khác
nhau như vậy trong
Pascal ta có thể sử
dụng kiểu mảng
được không? Vì sao?

-Yêu cầu học sinh
đọc ví dụ SGK
-Yêu cầu học sinh
đònh nghóa bản ghi
để mô tả lý lòch học
sinh gồm: Họ tên ,
điểm , loại
-Yêu cầu học sinh
khai báo 3 biến
hs1,hs2,hs3 có kiểu
lylich
-Yêu cầu học sinh
thực hiện theo yêu
cầu của ví dụ 2.
phải cùng kiểu.
-Học snh chú ý
theo dõi
-Học sinh nghiên
cứu SGK, trình bài
theo yêu cầu của
giáo viên.
-Học sinh chú ý
lắng nghe
-Học sinh đọc ví
dụ SGK
-Học sinh đònh
nghó theo yêu cầu
của học sinh
-Học sinh khai báo
theo yêu cầu

Type Huuty = Record
Ms : Integer ;
Ts : Integer ;
End ;
2. Truy xuất mẩu tin
a) Truy xuất trực tiếp
Để truy xuất vào một trường của kiểu
Record,ta cần dùng tên biến kiểu Record sau
-4-
-Để nhập hay xuất
dữ liệu kiểu bản ghi
ta có thể sử dụng
lệnh như sau được
không?
Readln(hs1,hs2,hs
3);
Write(hs1,hs2,hs2
)
-Trình bài cách truy
xuất bản ghi theo
cách trực tiến.
-Vậy để nhập họ
tên, điểm, loại cho
hs1 tha thực hiện
như thế nào?
-Chúng ta có thể
viết như như sau
được không?
hs1<hs2
hs2 =hs3

Hoten : String[25] ;
Diem : 0..10 ;
Loai : String[10] ;
End ;
Var hs1,hs2,hs3 : Lylich ;
Begin
Write(‘Nhập họ tên học sinh
1:’);readln(hs1.hoten);
Write(‘Nhập diểm học sinh
1:’);readln(hs1.diem);
Write(‘Nhập loai học sinh
1:’);readln(hs1.loai);
Write(‘Nhập họ tên học sinh
2:’);readln(hs2.hoten);
Write(‘Nhập diểm học sinh
2:’);readln(hs2.diem);
Write(‘Nhập loai học sinh
2:’);readln(hs2.loai);
..........................................................................
Readln ;
End.
* Chú ý :
+ Các biến Record cùng kiểu có thể gán
cho nhau.
+ Không được viết ra màn hình hoặc đọc
vào từ bàn phím một biế record như :
write(hs1) hoặc readln(hs1).
+ Không thể so sánh các record bằng các
phép toán : < , > , <= , >= .
+ Hai phép toán so sánh = và <> thì có thể