GV: Ph¹m Quang Th¾ng GV: Ph¹m Quang Th¾ng Tr­êng THPT CÈm Tr­êng THPT CÈm Thñy 3 Thñy 3 Líp Líp : : 11A2. 11A2. TiÕt theo ppct TiÕt theo ppct : 32 : 32 . . GV: Phạm Quang Thắng GV: Phạm Quang Thắng Trường THPT Cẩm Trường THPT Cẩm Thủy 3 Thủy 3 * * Xét bài toán: Xét bài toán: Họ tên Họ tên SBD SBD Toán Toán Lý Lý Hóa Hóa ĐTB ĐTB Nguyễn A Nguyễn A 01 01 6.0 6.0 6.0 6.0 6.0 6.0 Phạm B Phạm B 02 02 6.0 6.0 1.5 1.5 2.5 2.5 . . . . . . . . . . . . . . 50 50 6.0 6.0 2.5 2.5 3.5 3.5 Bản ghi Bản ghi Trường Trường - - Yêu cầu: Yêu cầu: Viết chương trình nhập vào kết quả của từng học sinh, Viết chương trình nhập vào kết quả của từng học sinh, tính điểm trung bình và đưa ra màn hình học sinh có điểm trung bình tính điểm trung bình và đưa ra màn hình học sinh có điểm trung bình cao nhất. cao nhất. - Cho bảng kết quả điểm thi học kỳ I năm học 2007 2008: - Cho bảng kết quả điểm thi học kỳ I năm học 2007 2008: GV: Ph¹m Quang Th¾ng GV: Ph¹m Quang Th¾ng Tr­êng THPT CÈm Tr­êng THPT CÈm Thñy 3 Thñy 3 1.D÷ liÖu kiÓu b¶n ghi 1.D÷ liÖu kiÓu b¶n ghi : : - Dïng ®Ó m« t¶ c¸c ®èi t­îng cã cïng mét sè thuéc tÝnh - 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ã kiÓu d÷ liÖu kh¸c nhau. mµ c¸c thuéc tÝnh cã thÓ cã kiÓu d÷ liÖu kh¸c nhau. 2.Khai b¸o d÷ liÖu kiÓu b¶n ghi 2.Khai b¸o d÷ liÖu kiÓu b¶n ghi : : Type Type < tªn kiÓu b¶n ghi> = < tªn kiÓu b¶n ghi> = record record <tªn tr­êng 1> : kiÓu d÷ liÖu 1; <tªn tr­êng 1> : kiÓu d÷ liÖu 1; < tªn tr­êng 2> : kiÓu d÷ liÖu < tªn tr­êng 2> : kiÓu d÷ liÖu 2; 2; ……………… … …………… ……………… … …………… . . end; end; Var Var <tªn biÕn > : <tªn kiÓu b¶n ghi>; <tªn biÕn > : <tªn kiÓu b¶n ghi>; <tªn m¶ng > : ARRAY[1 Max] of < tªn kiÓu b¶n <tªn m¶ng > : ARRAY[1 Max] of < tªn kiÓu b¶n ghi>; ghi>; GV: Ph¹m Quang Th¾ng GV: Ph¹m Quang Th¾ng Tr­êng THPT CÈm Tr­êng THPT CÈm Thñy 3 Thñy 3 2.Khai b¸o d÷ liÖu kiÓu b¶n ghi. 2.Khai b¸o d÷ liÖu kiÓu b¶n ghi. TT Häc sinh. TT Häc sinh. Hä tªn Hä tªn Sè b¸o danh Sè b¸o danh §iÓm To¸n §iÓm To¸n §iÓm Lý §iÓm Lý §iÓm Hãa §iÓm Hãa §iÓm TB §iÓm TB Type Type < tªn kiÓu b¶n ghi> = < tªn kiÓu b¶n ghi> = record record <tªn tr­êng 1> : kiÓu d÷ liÖu 1; <tªn tr­êng 1> : kiÓu d÷ liÖu 1; < tªn tr­êng 2> : kiÓu d÷ liÖu 2; < tªn tr­êng 2> : kiÓu d÷ liÖu 2; …… … …… … …… … …… … …… … …… … end; end; Var Var <tªn biÕn > : <tªn kiÓu b¶n ghi>; <tªn biÕn > : <tªn kiÓu b¶n ghi>; <tªn m¶ng > : <tªn m¶ng > : ARRAY[1 Max] of < tªn kiÓu ARRAY[1 Max] of < tªn kiÓu b¶n ghi>; b¶n ghi>; CÊu tróc BG CÊu tróc BG Có ph¸p Có ph¸p GV: Phạm Quang Thắng GV: Phạm Quang Thắng Trường THPT Cẩm Trường THPT Cẩm Thủy 3 Thủy 3 3.Các thao tác với bản ghi. 3.Các thao tác với bản ghi. a.Nhập thông tin cho biến kiểu bản ghi. a.Nhập thông tin cho biến kiểu bản ghi. - Để nhập dữ liệu vào biến bản ghi ta có thể tiên hành theo một - Để nhập dữ liệu vào biến bản ghi ta có thể tiên hành theo một trong hai cách: trong hai cách: Cách 1: Cách 1: Dùng lệnh gán trực tiếp: Nếu hai biến bản ghi có Dùng lệnh gán trực tiếp: Nếu hai biến bản ghi có cùng kiểu, thì có thể gán giá trị cảu biến B cho biến A bằng câu cùng kiểu, thì có thể gán giá trị cảu biến B cho biến A bằng câu lệnh: lệnh: A:=B. A:=B. Cách 2: Cách 2: Nhập dữ liệu cho từng trường bằng câu lệnh gán Nhập dữ liệu cho từng trường bằng câu lệnh gán hoặc từ bàn phím. hoặc từ bàn phím. - Để truy xuất vào các trường của bản ghi ta sử dụng cấu - Để truy xuất vào các trường của bản ghi ta sử dụng cấu trúc cú pháp: trúc cú pháp: <Tên biến bản ghi>.<Tên trường> <Tên biến bản ghi>.<Tên trường> GV: Ph¹m Quang Th¾ng GV: Ph¹m Quang Th¾ng Tr­êng THPT CÈm Tr­êng THPT CÈm Thñy 3 Thñy 3 3.C¸c thao t¸c víi b¶n ghi. 3.C¸c thao t¸c víi b¶n ghi. b. In d÷ l÷ kiÓu b¶n ghi. b. In d÷ l÷ kiÓu b¶n ghi. - §Ó in d÷ liÖu kiÓu b¶n Ghi ta ph¶i tiÕn hµnh in tõng tr­êng cña - §Ó in d÷ liÖu kiÓu b¶n Ghi ta ph¶i tiÕn hµnh in tõng tr­êng cña b¶n ghi. ViÖc tiÕn hµnh in d÷ liÖu cña tõng tr­êng ta sö dông cÊu b¶n ghi. ViÖc tiÕn hµnh in d÷ liÖu cña tõng tr­êng ta sö dông cÊu tróc có ph¸p. tróc có ph¸p. Write(<Tªn biÕn b¶n ghi>.<tªn tr­êng>); Write(<Tªn biÕn b¶n ghi>.<tªn tr­êng>); HoÆc HoÆc Writeln Writeln (<Tªn biÕn b¶n ghi>.<tªn tr­êng>); (<Tªn biÕn b¶n ghi>.<tªn tr­êng>); GV: Ph¹m Quang Th¾ng GV: Ph¹m Quang Th¾ng Tr­êng THPT CÈm Tr­êng THPT CÈm Thñy 3 Thñy 3 type type HS HS =record =record HT HT :String[30]; :String[30]; SBD SBD :byte; :byte; DT DT : real; : real; DL DL :real; :real; DH DH : real; : real; DTB DTB :real; :real; End; End; Var Var HS1 HS1 :array[1 50]of HS; :array[1 50]of HS; A: A: HS HS ; ; i:byte; i:byte; Begin Begin Writeln('Nhap danh sach hoc sinh'); Writeln('Nhap danh sach hoc sinh'); For i:=1 to 10 do For i:=1 to 10 do Begin Begin Write('Nhap ten cua hoc sinh',i); Write('Nhap ten cua hoc sinh',i); Readln( Readln( HS1[i].HT HS1[i].HT ); ); Write('Nhap diem toan',i); Write('Nhap diem toan',i); Readln( Readln( HS1[i].DT); HS1[i].DT); Write('Nhap diem ly',i); Write('Nhap diem ly',i); Readln( Readln( HS1[i].DL HS1[i].DL ); ); Write('Nhap diem hoa',i); Write('Nhap diem hoa',i); Readln( Readln( HS1[i].DH HS1[i].DH ); ); HS1[i].SBD HS1[i].SBD :=i; :=i; HS1[i].DTB:=(HS1[i].DT+HS1[i].DL+HS1[i].DH)/3; HS1[i].DTB:=(HS1[i].DT+HS1[i].DL+HS1[i].DH)/3; End; End; A:= A:= HS1[1] HS1[1] ; ; for i:=1 to 10 do for i:=1 to 10 do If If HS1[i].DTB HS1[i].DTB > > A.DTB A.DTB then A:= then A:= HS1[i] HS1[i] ; ; Writeln(' Danh sach hoc sinh co diem trung binh cao nhat Writeln(' Danh sach hoc sinh co diem trung binh cao nhat la'); la'); for i:= 1 to 10 do for i:= 1 to 10 do if if A.DTB A.DTB = = HS1[i].DTB HS1[i].DTB then writeln( then writeln( HS1[i].HT HS1[i].HT ); ); readln; readln; End. End. Ch¹y ch­¬ng Ch¹y ch­¬ng tr×nh tr×nh GV: Phạm Quang Thắng GV: Phạm Quang Thắng Trường THPT Cẩm Trường THPT Cẩm Thủy 3 Thủy 3 Tổng kết Tổng kết Gán giá trị cho từng trường của bản ghi hoặc Gán giá trị cho từng trường của bản ghi hoặc giữa hai biến cùng kiểu. giữa hai biến cùng kiểu. Khai báo: tên biến bản ghi, tên và kiểu dữ liệu các Khai báo: tên biến bản ghi, tên và kiểu dữ liệu các trường. trường. Tham chiếu trường của bản ghi: Tên biến bản Tham chiếu trường của bản ghi: Tên biến bản ghi.tên trường ghi.tên trường . ghi : : Type Type < tªn kiÓu b¶n ghi> = < tªn kiÓu b¶n ghi> = record record <tªn tr­êng 1> : kiÓu d÷ liÖu 1; <tªn tr­êng 1> : kiÓu. §iÓm TB Type Type < tªn kiÓu b¶n ghi> = < tªn kiÓu b¶n ghi> = record record <tªn tr­êng 1> : kiÓu d÷ liÖu 1; <tªn tr­êng 1> : kiÓu