Bài giảng Tin học 11 Bài 13: Kiểu bản ghi

ĐẶT VẤN ĐỀ:Ví Dụ: Bảng Kết Qủa Thi gồm thông tin về các thí sinh như sau: Họ Và TênNgày SinhGiới tínhĐiểm TinĐiểmToánĐiểm LíĐiểm HóaĐiểm VănĐiểm SửNguyễn Thị Huệ12/12/90Nữ988768Đào Văn Bình02/01/90Nam978767Hà Thị Thu Vân05/03/90Nữ868548.........Bản ghi (record)Trường (Field)-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 mà các thuộc tính có thể có các kiểu dữ liệu khác nhau.1.Khai Báo.-Kiểu Bản ghi thường được định nghĩa như sau: Type = record : ; . : ; End;-Biến Bản ghi có thể được khai báo : Var :; :array[150] of HoTenNgaySinhGioitinh TinToánLíHóaVăn SửNguyễn Thị Huệ12/12/90T988768Đào Văn Bình02/01/90F978767Hà Thị Thu Vân05/03/90T868548.........Ví Dụ: Khai báo Bảng Kết quả thi Type Hocsinh=record HoTen:string[30]; Ngaysinh:string[10]; Gioitinh: boolean; Tin,Toan,Li,Hoa,Van,Su: real; End; Var A,B : Hocsinh; Lop:array[1..60] of Hocsinh;-Khai báo kiểu dữ liệu cho các trường.-Khai báo biến kiểu bản ghi .2.Gán giá trị*Có 2 cách gán giá trị cho biến bản ghi -Cách 1:Dùng lệnh gán trực tiếp A:=B; Nếu A,B là hai biến bản ghi cùng kiểu .Gía trị dữ liệu trong các trường của bản ghi B sẽ gán cho bản ghi A.Cách 2: Gán giá trị cho từng trường A.hoten:=B.hoten; A.tin:=B.tin;Khi tham chiếu đến các trường của bản ghi: tên biến bản ghi.tên trường.3.Các thao tác với bản ghiVí Dụ: Một lớp gồm N (N=18 )then lop[i].Xeploai:=‘A’;If (lop[i].Toan+lop[i].Van>=14 ) and (lop[i].Toan+lop[i].Van =10) and (lop[i].Toan+lop[i].Van =18 )then lop[i].Xeploai:=‘A’;If (lop[i].Toan+lop[i].Van>=14 ) and (lop[i].Toan+lop[i].Van =10) and (lop[i].Toan+lop[i].Van <14) then lop[i].Xeploai:=‘C’;If (lop[i].Toan+lop[i].Van<10)then lop[i].Xeploai:=‘D’;End;Clrscr;Writeln(‘Danh sach xep loai hoc sinh trong lop:’);For i:=1 to n do writeln(lop[i].Hoten:30,’-Xep loai:’,lop[i].Xeploai);Readln;End;-Củng cố bài học:1.Cách khai báo trong bản ghi?2.Cách gán giá trị trong bản ghi?Tham chiếu đến một trường trong bản ghi? HomeHome