kieu ban ghi

+ NgaySinh: lưu ngày sinh của học sinh.. + Diem: lưu điểm thi của học sinh... Khái niệm Dữ liệu kiểu bản ghi record dùng để mô tả các đối tượng có cùng một số thuộc tính... Khai báo Chú

- Câu 1: Em hãy ghi lại cú pháp khai báo biến

kiểu xâu? Cho ví dụ.

- Câu 2: Em hãy nêu khái niệm xâu ?

Var <Tên biến> : String [độ dài lớn nhất của xâu];

Ví dụ: Var HoTen: String[50];

Câu 2:

Xâu là dãy các kí tự trong bảng mã ASCII.

Var Ho: string;

Ten: string;

NgaySinh: string;

Diem: array[1 13] of real;

Khai báo biến như thế nào để lưu điểm thi của một lớp học có 45 học

sinh?

Kiểu bản ghi.

- Hãy khai báo các biến sau:

+ Ho: lưu họ và chữ lót của học sinh.

+ Ten: lưu tên học sinh.

+ NgaySinh: lưu ngày sinh của học sinh.

+ Diem: lưu điểm thi của học sinh.

Họ và tên Ngày

sinh Giới tính Điểm Văn Điểm Sử Điểm Tin Điểm Toán

1 Đối tượng = 1 record Trường = Field

1 Khái niệm

Dữ liệu kiểu bản ghi (record) dùng để mô tả các đối tượng

có cùng một số thuộc tính.

2 Khai báo

1 Khái niệm

Type <Tên kiểu bản ghi> = record

<Tên trường 1>: <Kiểu trường 1>; …

<Tên trường k>: <Kiểu trường k>;

Var <Tên biến bản ghi> :<Tên kiểu bản ghi>;

Định

nghĩa

kiểu bản

ghi

Khai báo biến kiểu

bản ghi

2 Khai báo

1 Khái niệm

Ví dụ 1:

Type HocSinh = record

HoTen: string[30];

GioiTinh: string[5]; NgaySinh: string[10];

Van, Su: real;

Tin, Toan: real;

end;

Var Lop:array[1 45] of HocSinh; A, B: HocSinh; Type<TênKiểuBản ghi>= record <Tên trường1>:<Kiểu trường 1>; …

<Tên trườngk>:<Kiểu trường k>;

End;

Var <Tên biến bản ghi> :<Tên

kiểu bản ghi>;

2 Khai báo Chú ý: Tham chiếu đến trường

của bản ghi:

[Tên biến bản ghi] [tên trường]

Ví dụ: Tham chiếu trường toán của học sinh A.

A.Toan

2 Khai báo

1 Khái niệm

Type<TênKiểuBản ghi>= record

<Tên trường1>:<Kiểu trường 1>;

…

<Tên trườngk>:<Kiểu trường k>;

End;

Var <Tên biến bản ghi> :<Tên

kiểu bản ghi>;

2 Khai báo Ví dụ 2:

Khai báo biến để lưu họ tên ,

ngày sinh , địa chỉ , lương căn bản của công nhân

Ví dụ 3:

Khai báo biến để lưu các thông tin về tên lớp , sĩ số , giáo viên chủ nhiệm , của 3 khối lớp trường THPT Tứ Kiệt

2 Khai báo

1 Khái niệm

Type<TênKiểuBản ghi>= record

<Tên trường1>:<Kiểu trường 1>;

…

<Tên trườngk>:<Kiểu trường k>;

End;

Var <Tên biến bản ghi> :<Tên

kiểu bản ghi>;

2 Khai báo Ví dụ 2:

Type KieuCongNhan = record

HoTen: string[30];

NgaySinh: string[30];

DiaChi: string[50];

LươngCoBan: integer;

End;

Var CongNhan: KieuCongNhan;

2 Khai báo

1 Khái niệm

Type<TênKiểuBản ghi>= record

<Tên trường1>:<Kiểu trường 1>;

…

<Tên trườngk>:<Kiểu trường k>;

End;

Var <Tên biến bản ghi> :<Tên

kiểu bản ghi>;

2 Khai báo Ví dụ 3:

Type KieuLop = record

TenLop: string[30];

SiSo: byte;

GVCN: string[50];

End;

Var Lop: array [1 28] of KieuLop;

3 Gán giá trị

1 Khái niệm

2 Khai báo

3 Gán giá trị

Gán trực tiếp:

Gán giá trị cho từng trường:

Type HocSinh = record

HoTen: string[30];

NgaySinh: string[10];

DiaChi: string[50];

Van, Su: real;

Tin, Toan: real;

end;

Var

Lop:array[1 45] of HocSinh;

A, B: HocSinh;

A.HoTen:= ‘Le Van A’;

A.NgaySinh:=’24/12/90’;

A:= B;

Tên biến bản ghi tên trường:= Giá trị;

Tên biến bản ghi:= Tên biến bản ghi;

3 Gán giá trị

1 Khái niệm

2 Khai báo

4 Ví dụ áp dụng

Type<TênKiểuBản ghi>= record;

<Tên trường1>:<Kiểu trường 1>;

…

<Tên trườngk>:<Kiểu trường k>;

End;

Var <Tên biến bản ghi> :<Tên

kiểu bản ghi>;

Tên biến bản ghi:= Tên biến bản ghi;

Tên biến bản ghi.Tên trường:= giá trị

Viết chương trình quản lý lớp học

có tối đa 60 học sinh.

Quản lý về họ tên , ngày sinh , địa chỉ , điểm toán , điểm văn , xếp loại Loại A : Toán + Văn >= 18

Loại B : 14<= Toán + Văn <18 Loại C : 10<= Toán + Văn < 14 Loại D : Toán + Văn < 10

3 Gán giá trị

1 Khái niệm

Hãy chọn câu trả lời đúng nhất:

a Dùng để mô tả các đối tượng

Kiểu bản ghi (record)

b Dùng để mô tả các thuộc tính

c Dùng để mô tả các đối tượng

có cùng một số thuộc tính

d a và b đúng

4 Ví dụ

áp dụng

3 Gán giá trị

1 Khái niệm

Hãy chọn câu trả lời đúng nhất:

a Tin:= 9;

Để gán điểm Tin=9 cho biến A ghi:

b A.Tin:= 9;

c Tin.A:= 9

d A:= 9;

Type HocSinh = record

HoTen: string[30];

NgaySinh: string[10];

DiaChi: string[50];

Van, Su: real;

Tin, Toan: real;

end;

Var

Lop:array[1 45] of HocSinh;

A, B: HocSinh;

DẶN BÀI VỀ NHÀ

- Học bài và xem phần tóm tắt

ở SGK tr.78.

- Trả lời câu hỏi và bài tập

tr.79 – 80 SGK