S giáo dục đào tạo phú thọ Trờng THPT TX phó THä *** GV: Nguyễn Thu Huyền Tiết 33 : Bài 13 KIỂU BẢN GHI Trêng (Field) Họ tên BÀI TỐN NÊU VẤN ĐỀ B¶ng kÕt qu¶ thi Giới Điểm Điểm Ngày sinh tính Tốn lý Điểm Hóa Điểm Văn Điểm Tin Lê Văn Anh 22/10/2001 Nam 7 Nguyễn Thanh Bình 19/06/2001 Nữ 8 06/02/2001 Nam … Nguyễn Vũ Trường Họ tên Trường Ngày sinh Trường Điểm KHÁI NIỆM KIỂU BẢN GHI Giảm tải chương trình (Đọc SGK trang 74) KHAI BÁO KIỂU BẢN GHI TYPE = record : < kiểu trường 1>; : < kiểu trường 2>; ………………………………….; : < kiểu trường k>; end; VAR : ; THAM CHIẾU TỚI KÍ TỰ CỦA XÂU Cấu trúc tham chiếu đến trường biến ghi? Ví dụ: A.Hoten B.NgaySinh Lop[i].Toan Lop[i].Ly Với i số mảng Lop B¶ng kÕt qu¶ thi Type Hocsinh = record SBD: integer; Hoten: string[30]; Ngaysinh:String[10]; Gioitinh:Boolean; Toan,Van,Ly,Hoa,Su,Dia,Tin : real; end; Var LOP: ARRAY[1 55] of Hocsinh; i,j,n : integer; Khai báo liệu cho trường (field) Khai báo bin kiu bn ghi (record) Gán giá trị Cú cách để gán giá trị cho ghi: • Dùng lệnh gán trực tiếp: A, B ghi kiểu ta gán giá trị A cho B câu lệnh gán – Ví dụ: B: = A A: = B; • Gán giá trị cho trường: Dùng câu lệnh gán gán giá trị cho trường nhập vào bàn phím – Ví dụ: :=; A.Hoten:= ‘Nguyen Van Tuan’; Readln(A.Ngaysinh); CHÚ Ý Để gán giá trị cho biến kiểu ghi phải thỏa điều kiện sau: – Nếu gán trực tiếp ghi, vd: A:=B A B phải kiểu ghi Vd: var A,B:Hocsinh; – Nếu gán trường ghi, vd: A.Ngaysinh:=B.Ngaysinh trường phải kiểu VÝ dơ mét líp gåm N(N= 18 xếp loại A For i:=1 to n LOP[i].Tong:= LOP[i].Toan + LOP[i].Van; If LOP[i].Toan + LOP[i].Van >= 18 then LOP[i].XepLoai:= ‘A’; In liệu kiểu ghi Thông báo in Writeln(‘ Danh sach xep loai hoc sinh lop ‘); For i:=1 to n In bảng liệu Writeln(LOP[i].Hoten:30.’ – XepLoai : ‘, LOP[i].Xeploai); H·y nhí! Type Hocsinh = record SBD : integer; Hovaten : string[30]; Toan,Van,Tong:real; Ketqua :string[10]; end; Var LOP: ARRAY[1 50] of hocsinh; LOP[i].SBD Khai báo: tên biến ghi, tên kiểu liệu trờng Tham chiếu trờng ghi: Tên biến ghi.tên ờnggiá trị cho tr tr Gán ờng ghi gi÷a hai biÕn cïng kiĨu Trong NNLT Pascal, để khai báo kiểu ghi để xử lý danh sách cán quan, khai báo kiểu ghi khai báo sau đúng? (Bản ghi có cấu trúc gồm trường: Họ tên, năm sinh, địa chỉ, mức lương, phụ cấp) Type A Canbo : record Hoten : string[30]; Namsinh: integer; Type B Canbo = record Hoten : string[30]; Namsinh: integer; Diachi : string[90]; Mucluong: Real; Phucap: Real; Diachi : string[90]; Mucluong: Real; Phucap: Real; End; End; Type C Canbo = record; Hoten : string[30]; Namsinh: integer; Type D Canbo = record Hoten : string[30]; Namsinh: integer; Diachi : string[90]; Mucluong: Real; Phucap: Real; Diachi : string[90]; Mucluong: Real; Phucap: Real; End; End Để truy cập vào trường ghi ta viết? A . B . C . D . Bµi tËp vỊ nhµ Viết chương trình nhập liệu cho phiếu kiểm tra sức khỏe học sinh lớp 11A gồm trường sau: họ tên, giới tính, chiều cao, cân nặng Sau hiển thị liệu vừa nhập mn hỡnh? Học làm thêm tâp 10 –11 (SGK – 80) -o0o - ... Trường Điểm KHÁI NIỆM KIỂU BẢN GHI Giảm tải chương trình (Đọc SGK trang 74) KHAI BÁO KIỂU BẢN GHI TYPE = record : < kiểu trường 1>; : < kiểu trường 2>; ………………………………….;... For i:=1 to n LOP[ i].Tong:= LOP[ i].Toan + LOP[ i].Van; If LOP[ i].Toan + LOP[ i].Van >= 18 then LOP[ i].XepLoai:= ‘A’; In liệu kiểu ghi Thông báo in Writeln(‘ Danh sach xep loai hoc sinh lop ‘); For... hocsinh; LOP[ i].SBD Khai báo: tên biến ghi, tên kiểu liệu trờng Tham chiếu trờng ghi: Tên biến ghi. tên ờnggiá trị cho tr tr Gán ờng ghi hai biến kiểu Trong NNLT Pascal, khai báo kiểu ghi để