ngày soạn 251107 trường thpt nguyễn tất thành giáo án khối 11 ngày soạn 151108 tiết 22 bài thực hành số 3 tiết 1 a mục tiêu về kiến thức củng cố cho hs những hiểu biết về kiểu dữ liệu mảng về kỹ

Ngày soạn: 15/11/08 Tiết 22 BÀI THỰC HÀNH SỐ (tiết 1) A MỤC TIÊU: - Về kiến thức: Củng cố cho HS hiểu biết kiểu liệu mảng - Về kỹ năng: + Khai báo kiểu liệu mảng, nhập liệu mảng, đưa hình số giá trị phần tử mảng + Duyệt qua phần tử mảng để xử lý phần tử - Về tư thái độ: Góp phần hình thành rèn luyện tư lập trình, tác phong người lập trình B TRONG TÂM BÀI GIẢNG: Ôn luyện mảng chiều cách chạy chương trình máy tính C CHUẨN BỊ: 1.GV: Phịng máy tính, máy chiếu Projector 2.HS: SGK, tập D.TIẾN TRÌNH BÀI HỌC: I Ổn định tổ chức lớp Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ: Câu hỏi: Khi ta nên khai báo biến mảng gián tiếp – thông qua định nghĩa kiểu? III.Bài mới: Tìm hiểu cách sử dụng lệnh kiểu liệu qua chương trình có sẵn: HOẠT ĐỘNG CỦA GV GV: Cài đặt trình chiếu CT mẫu 1a ?1: MyArray tên kiểu liệu hay tên biến? GV: Nhận xét ?2: Vai trò nmax n khác nào? ?3: Dòng lệnh dùng để tạo biến mảng A? GV: Nhận xét GV: Cho chạy thử CT 1a ?4: Lệnh gán A[i]:= random(300) – random(300) có ý nghĩa gì? GV: Nhận xét HOẠT ĐỘNG CỦA HS HS: Xem mẫu trình chiếu HS1: Trả lời HS2: Trả lời HS3: Trả lời HS: Xem HS4: Trả lời ?5: Lệnh For i:=1 to n Write(A[i]:5); có ý nghĩa gì? GV: Nhận xét ?6: Lệnh For i:=1 to n If A[i] mod k = then s:=s + A[i]; thực nhiệm vụ gì? GV: Nhận xét ?7: Lệnh s:=s+A[i]; thực lần? GV: Nhận xét GV: Cho HS chạy thử chương trình để thấy kết GV: Nhắc nhở HS lưu chương trình chạy tốt câu a GV: Trình chiếu câu lệnh câu 1b ?8: Đưa biến Posi Neg vào vị trí câu 1a? GV: Nhận xét ?9: Nhiệm vụ câu lệnh: If A[i]:>0 then Posi:=Posi+1 else If A[i]A[j] , àj=3 - Vai trò biến j tử có giá trị lớn B3: j=3, i=4, A[i]=7, A[j]=5 chương trình nhằm mục A[i]>A[j] àj=4 đích ? - Thực u cầu B4: j=4, i=5, A[i]=6, A[j]=7 - Thực chương trình GV A[i] A[i+1] lần tráo đổi chương nào? (tức biểu thức đk trình CL If đúng) - Cần đưa câu lệnh tăng Dem TL: Trong thân CL If: vào chỗ CT trên? trước sau lệnh tráo - Câu lệnh khởi tạo Dem:= đổi đặt vào vị trí CT? TL: Chọn hai + Trước CL đầu tiên: phương án 3, For j:= N down to + Trước CL duyệt: For i:= to j-1 + Trước CL tráo đổi + Sau CL tráo đổi - Sau CL cuối CT nên đưa CL vào để hiển thị giá trị biến Dem hình d Hoạt động 4: Sửa CT câu a để giải toán câu b Hđ GV Hđ HS Ghi bảng - Yêu cầu hs sữa lại CT theo - Thêm CL CT(Phụ lục) gợi ý nêu hướng dẫn vào CT - Hướng dẫn hs chỉnh sửa - Chạy CT chạy CT - Đánh giá kết hs IV Củng cố - Thuật toán xếp tráo đổi - - Đếm số lần tráo đổi V Bài tập nhà - Tìm thêm thuật tốn xếp khác tối ưu - Cho mảng A mảng B (là mảng A xếp) Hãy in số - phần tử mảng A theo mảng B Ngày soạn: 18/11/08 Tiết 26 BÀI THỰC HÀNH SỐ (tiết 2) A MỤC TIÊU Kiến thức Tiếp tục củng cố kiến thức lập trình với liệu kiểu mảng Kĩ Nhận xét, phân tích đề xuất cách giải toán cho chương trình chạy nhanh Thái độ Tự giác, chủ động lập trình B TRỌNG TÂM BÀI GIẢNG: C CHUẨN BỊ Gv:Bảng phụ viết sẵn chương trình, phòng máy, project Hs: Sgk, CT viết sẵn D TIẾN TRÌNH DẠY HỌC I Ổn định tổ chức, kiểm tra sĩ số: Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ III Bài mới: a Hoạt động 1:(3') Ôn lại kiến thức chuẩn bị thực hành Hđ GV Hđ Hs Hỏi 1: cách khai báo kiểu mảng chiều Tl: có cách + gián tiếp: + trực tiếp: Hỏi 2: (tuỳ lớp) b Hoạt động 2:(13') Nêu đề tốn tìm hiểu Hđ GV Hđ HS Ghi bảng Ghi đề lên bảng Quan sát đề lắng nghe Đề: Cho mảng A câu hỏi gv phần tử Viết CT Tìm hiểu đề Trả lời câu hỏi mảng B[1 n], Y/cầu hs xác định liệu - Vào: tổng i phần vào/ra toán? - Ra: tiên mảng A Gv lấy ví dụ minh hoạ Theo dõi ví dụ minh hoạ A gồm n tạo B[i] tử đầu B Ban đầu: B[i] = Hỏi: B[i] tạo Tl: (2-3hs) bao nhiêu? Tóm lại: B[i] = A[1] + …+ A[i] i  A[j ] j=1 = GV minh hoạ số phần tử: Tl: B 10 12 15 22 B[1], B[2], B[3] Khai báo: - Y/cầu hs tìm kết mảng B Lần lượt cho hs + k/báo mảng theo ví dụ + biến đơn trình bày Viết CT thô Phần thân: - Y/cầu hs cho biết phần Tl: B1: tạo mảng A CT cần xây dựng? B2: xd mảng B theo A Gv tranh thủ ghi lại bảng Tl: sử dụng vòng for lồng B3: In mảng B H: Bước B2 cụ thể for i:=1 to n CT nào? begin b[i]: =0; for j:=1 to i b[i]:=b[i] +a[j]; end; Chú ý, lắng nghe, quan sát ghi nhớ Treo bảng CT chuẩn bị sẵn Giải thích phần CT tương ứng với phần trả lời ghi bảng hs c Hoạt động 3: (5')Tối ưu chương trình Hđ GV Hđ HS Ghi bảng Dựa vào phần phân tích ví dụ thuật toán Gv hỏi: So sánh giá trị B[i] Tl: B[i]:=B[i-1]+A[i] B[i-1]? Tl: B[1]=A[1] Đặc biệt: B[1]=? Chú ý theo dõi Chta hướng tới thuật toán tối ưu Đối với toán theo phân tích ta tận dụng kết việc tính tổng i -1 phần tử có sẵn bước trước - Do ta có được: + Số lượng phép tốn '+' {tùy đối tượng hs} +Chỉ dùng vòng lặp for -> sd biến số i cho Nhìn bảng, tự điều chỉnh Đoạn CT cải tiến: Sgk mảng A, B hành vi nhận thức Cải tiến lại chtrình Gv treo bảng chtrình cải tiến d Hoạt động 4: (20') Hs thực hành máy theo nhóm Hđ GV Hđ HS Ghi bảng Y/cầu hs nhập CT cải Hs nhập chtrình vào máy tiếnvào máy Tự biên dịch chạy CT Theo dõi q trình t/hiện với ví dụ hs Giải số lỗi nhỏ nhóm Tự lấy Input để chạy lại CT IV Củng cố: (3') - Củng cố, uốn nắn sai sót thường gặp Hs V Dặn dị: - Xem, chuẩn bị trước 12: Kiểu xâu Ngày soạn: 21/11/08 Tiết 27 KIỂU XÂU (tiết 1/2) A MỤC TIÊU Kiến thức - Biết kiểu liệu mới, biết khái niệm kiểu xâu - Phân giơng khác kiểu mảng kí tự với kiểu xâu kí tự - Biết khai báo biến, nhập xuất liệu, tham chiếu đến kí tự xâu - Biết thao tác liên quan đến xâu Kĩ - Khai báo biến xâu NNLT Pascal Sử dụng biến xâu, phép toán hàm thủ tục xâu để giải số toán đơn giản B TRỌNG TÂM BÀI GIẢNG: Cách khai báo xâu kí tự, thao tác xử lý sâu C CHUẨN BỊ: Giáo viên: giáo án, sgk, bảng phụ số ví dụ Học sinh: sgk D TIẾN TRÌNH BÀI DẠY: I Ổn định tổ chức: Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ: III Bài mới: a Hoạt động 1: (5 phút )Tìm hiểu ý nghĩa xâu kí tự Hđ GV ĐVĐ: Dữ liệu tốn khơng thuộc kiểu số mà kiểu phi số dạng kí tự Dãy kí tự đgl liệu kiểu xâu Ghi đề học Trước tiên tìm hiểu Xâu kí tự gì? Nêu vài ví dụ xâu: a) ‘HaNoi’ b) ‘lop 11A1’ c) ‘Nguyen Van An’ Hs chbị nhà, y/cầu hs cho biết xâu gì? Hđ HS Lắng nghe Nd ghi bảng KIỂU XÂU Quan sát, nhận biết Khái niệm Xâu kí tự: (sgk) Tl: Xâu dãy kí tự bảng mã ASCII, kí tự ptử Cho hs khác bổ sung (nếu cần) Hỏi: Số lượng kí tự xâu ví dụ bao nhiêu? Số lượng kí tự xâu độ dài xâu Độ dài xâu gọi xâu rổng - Xâu có kí tự trống -Xácđịnh trả lời: - Xâu rỗng a) kí tự b) kí tự, dấu cách kí tự c) 13 kí tự - Tl: ‘ ’, có độ dài - Tl: ‘’, có độ dài Hỏi: Xâu có kí tự trống viết nào? số kí tự bao nhiêu? Hỏi: Xâu rỗng viết nào? b Hoạt động 2: (10 phút)Tìm hiểu kiểu xâu Hđ GV Hđ HS Nd ghi bảng 1.Y/cầu hs cho biết cách khai N/cứu sgk trả lời Khai báo báo biến xâu Var : VAR tên_biến: STRING [độ Hỏi: ý nghĩa từ khoá string? string [] ? Tl: String tên kiểu xâu - [n] giá trị qui định số lượng kí tự tối đa mà Ví dụ: biến xâu chứa i)Var hoten: string[30]; Ví dụ: ii)Var St: string; Hỏi: Nhập xâu hoten có 20 Var hoten: string[30]; kí tự khơng? (t/tự 31 kí Var St: string; tự?) Tl:được (khơng) Hỏi: Khi khai báo khơng có [n] số lượng kí tự bao nhiêu? - Số kí tự tối đa 255 * Tham chiếu đến kí tự * Y/cầu hs cho ví dụ xâu Tham chiếu đến kí tự Lắng nghe, quan sát Tên_biến_xâu[chỉ số] xâu bảng để trả lời Y/cầu hs: Nhắc lại cách tham chiếu đến phần tử mảng? Tl: St[i]  p/tử thứ i - Giới thiệu cấu trúc chung xâu St - Y/cầu hs cho biết ý nghĩa St[i] Y/cầu hs tìm ví dụ khác c Hoạt động 3: (25 phút)Các thao tác xử lí xâu Hđ GV Hđ HS Nd ghi bảng Gợi nhớ phép toán học Chú ý theo dõi, suy Các thao tác xử lí xâu Y/cầu hs nhắc lại phép tốn nghĩ trả lời: a) Phép ghép xâu học kiểu liệu chuẩn P/toán số học (+) ghép nhiều xâu thành P/tốn quan hệ (so Có thể t/hiện ghép đvới sánh) xâu biến xâu Phép ghép xâu: kí hiệu dấu P/tốn logic Vd1: ‘My’+ ‘ ’+ ‘Computer’ cộng (+) Suy nghĩ cho ví dụ Vd2: s1:=‘pho co’ Y/cầu hs cho biết kết ví Vd: s2:=‘Hoi An’ dụ? độ dài xâu nhận được? ‘My Computer’ độ St:=s1+’-’+s2; dài11 b) Các phép so sánh Các phép so sánh Y/cầu hs nêu lại phép so St = ‘pho co-Hoi An’ Giả sử A, B xâu +) A=B: A giống B hồn tồn sánh? độ dài 11 +) A>B kí tự khác Ở chta so sánh xâu chúng từ trái sang, với Nhớ lại trả lời mà A có mã ASCII lớn Y/cầu hs cho biết kết Vd1: phép so sánh A:=’Xa hoi’; B:=’Xa hoi’; Các phép so sánh thực A=B  True theo thứ tự từ điển Vd2: A:= ‘Anh’; B:= ‘Ba’ A>B  False Vd3: A=’hoa’; B=’hao’ A>B  True Các thủ tục Chú ý lắng nghe c) Các thủ tục Vd1: s=’Nui Thanh’ Tl: Delete(s,1,6) Delete(S,vt,N) Để s ‘anh’ ta phải viết thủ tục delete() nào? Vd2: s2=’Nui Thanh’ Để s2 thành xâu ‘THPT Nui Tl: Insert(‘THPT Insert(s1,s2,vt) Thanh’ ta phải chèn thêm vào ’,s2,1) Trong vt, N số xâu? Và chèn nào? ngdương * Ý nghĩa: ch/đổi xâu s thành số Val (s,N,code) gán cho biến N, ch/đổi Vd: Val(’3.14’,n,code) thành cơng code = 0, nglại Code =0, n=3.14 Val(‘11A1’,n,code) o code chứa số vị trí kí tự Code =3, n k xác định xuất lỗi xâu Str(N,st) o s giá trị N k xác định Vd: str(2008,st) * Ý nghĩa: ch/đổi giá trị số N st=’2008’ thành kiểu xâu, gán cho biến st BẢNG Kiểm tra kiến thức Treo bảng y/cầu hs điền vào chổ Xâu s1 ‘cua Me’ Xâu s2 ‘Mua xuan’ ‘ABGHI’ trống (…) Thao Insert(…,s2,…) Insert(…,s2,…) Hs trả lời: tác bảng1: Insert(s1,s2,8) kết ‘Mua xuacua ‘ABCDEGHI’ Insert(‘CDE’,s2,3) Me’ bảng2: Delete(st,7,9) N= kxđ, e=5 BẢNG Xâu st ‘Mua xuan cua ‘12.3A+02’ Me’ Delete(st,…,…) Val (st,n,e) Thao tác kết st = ‘Mua xu’ n=…, e=… IV Củng cố (5phút) - Khái niệm xâu Cách khai báo xâu, tham chiếu đến kí tự xâu - Các phép ghép, so sánh xâu, thủ tục V Bài tập nhà: - Ngày soạn: 21/11/08 Tiết 28 KIỂU XÂU (tiết 2/2) A MỤC TIÊU Kiến thức - Biết lợi ích thủ tục hàm liên quan đến xâu NNLT Pascal - Nắm cấu trúc chung chức nằng số hàm thủ tục liên quan đến xâu NNLT Pascal Kĩ Nhận biết bước đầu sử dụng số hàm thủ tục để giải số tập đơn giản liên quan B TRỌNG TÂM BÀI GIẢNG: Vận dụng kiểu liệu xâu viết số chương trình đơn giản C CHUẨN BỊ: Giáo viên: bảng phụ ví dụ chbị sẵn, giáo án ,sgv, sgk Học sinh: sgk D TIẾN TRÌNH BÀI DẠY: I Ổn định tổ chức: Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ:(5 phút) Khai báo xâu có độ dài tối đa 50 kí tự Cho s1:=’hoa’; s2:=’Hoa’; Biểu thức s1b then write(a) viết So sánh xâu a b Else write(b); - Làm để xác định xâu Dùng lệnh write() End lớn hơn? Viết lệnh để đưa liệu xâu hình? Vd2: Viết CT nhập vào xâu S Tiểu kết: để nhập/xuất liệu bất kì, cho biết xâu sử kiểu xâu sử dụng lệnh dụng kí tự ‘A’? read/write kiểu liệu Ghi lại đề toán chuẩn Var S:string; Var S:string; i,d:byte; Nêu tốn ví dụ Begin Begin Y/cầu hs khai báo xâu S Write(‘nhap xau ’); Write(‘nhap xau ’); Ycầu hs viết lệnh nhậo giá trị readln(s); readln(s);d:=0; cho xâu Tl: duyệt qua tất For i:=1 to length(s) s[i]=’A’ then inc(d); kí tự xâu kí If Write(d:4); tự =’A’ đếm End Làm để biết số kí tự ‘A’ kí tự có xâu? Tl: Length(s) kí tự Xâu S nhập vào có kí tự? Tiểu kết: để duyệt qua tất ptử xâu ta dùng lệnh for IV Củng cố (5phút) Các hàm xữ lí xâu, vận dụng kiểu xâu toán đơn giản V Câu hỏi, tập nhà Xem trước bài: Bài thực hành sô5 Viết CT nhập vào xâu S thực xố bỏ tất kí tự trắng thừa có xâu.(Xâu sau loại bỏ khơng cịn kí tự trắng liền kề nhau, đầu cuối xâu khơng phải kí tự trắng) Ngày soạn: 25/11/08 Tiết 29, 30 BÀI THỰC HÀNH SỐ A MỤC TIÊU Kiến thức - Khắc sâu thêm phần kiến thức lí thuyết kiểu xâu kí tự, đặc biệt thủ tục hàm liên quan - Nắm số thuật toán bản: tạo xâu mới, đếm số lần xuất kí tự, … Kĩ - Khai báo biến kiểu xâu - Nhập/xuất liệu cho biến xâu - Duyệt qua tất kí tự xâu - Sử dụng hàm thủ tục chuẩn Thái độ: Tích cực chủ động thực hành B TRỌNG TÂM BÀI GIẢNG: Rèn luyện kỹ viết chương trình thực chương trình máy C CHUẨN BỊ: Giáo viên: Phịng máy vi tính, Projector để hướng dẫn Học sinh: Sgk, tập nhà D TIẾN TRÌNH BÀI GIẢNG: I Ổn định tổ chức: Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ: III Bài mới: a Hoạt động 1: (45 phút) Tìm hiểu chương trình, đề xuất phương án cải tiến Hđ GV Hđ HS Nd ghi bảng Tìm hiểu đề Quan sát đọc kĩ đề - Giới thiệu đề lên bảng Giải thích: Xâu Palidrom -Y/cầu hs cho ví dụ xâu Phải: aabcbaa, 45654 Palidrom ví dụ khơng phải? Khơng phải: abccda Tìm hiểu chtrình gợi ý Quan sát chtrình suy - Treo chtrình lên bảng nghĩ để hiểu chtrình - Kiểm tra xâu có phải -Hỏi: Chtrình sau có chức Palidrom hay khơng? làm gì? Kết in Kq: ‘xau la palidrom’ hìnhn hư nào? ‘xau khong la palidrom’ Chạy thử chtrình để hs kiểm -Quan sát gv thực nghiệm suy nghĩ chtrình, nhập liệu kquả chtrình Cải tiến chtrình Chú ý theo dõi y/cầu - Nêu y/cầu mới: viết lại chtrình gv, trả lời số cau không sử dụng biến trung p? hỏi dẫn dắt Hỏi: kí tự thứ i đối xứng với kí tự vị trí nào? - Kí tự thứ i đối xứng với Hỏi: cần so sánh cặp kí kí tự thứ length(s) –i +1 tự xâu để biết xau - Tối đa length(s) div palidrom? Hỏi: sử dụng cấu trúc để so - For While sánh? - Thực soạn thảo chtrình lên máy theo yêu -Y/cầu hs viết chtrinh hoàn chỉnh cầu cải tiến gv y/cầu hs nhập liệu gv cho sẵn - Nhập liệu thông thông báo kết báo kết - xác nhận làm có kết b Hoạt động 2: (40 phút) Rèn luyện kĩ lập trình Hđ GV Hđ HS Giới thiệu đề - Giới thiệu đề lên bảng -Y/cầu hs trả lời câu hỏi để phân tích tốn +Dữ liệu vào liệu +Vào:một xâu S toán? Ra:dãy số ứng với xuất loại kí tự xâu +T/tốn: Duyệt xâu từ trái +Nhiêm vụ cần thực sang phải, thêm đơn vị giả tốn? cho kí tự đọc +Cấu trúc liệu: +Cấu trúc liệu cần sử dụng? Dem[‘A’ ‘Z’] +Upcase() + Ta phải sử dụng hàm gì? Bổ sung sửa sai cho hs Độc lập soạn chtrình Y/cầu hs lập viết chương vào máy trình hồn chỉnh theo thuật tốn phát - Tìm test - Y/cầu em lập trình xong - Nhập liệu gv thực trước tìm số test chtrình xem kết - Y/cầu hs nhập liệu vào theo test gv thông báo kết - Thông báo kết Xác nhận kết hs sửa sai cho em có kết sai IV Củng cố (5phút) Một số thuật toán liên quan đến xâu kí tự V Câu hỏi, tập nhà Xem trước bài: Kiểu ghi Nd ghi bảng KIỂM TRA HỌC KỲ I I.TRẮC NGHIỆM (Hs khoanh tròn vào phương án trả lời cho câu) Biểu diễn Hằng? A begin B E58 C 12.4E-5 D type Kiểu liệu thuộc loại kiểu liệu chuẩn: A Kiểu kí tự B Kiểu xâu C Kiểu mảng D Kiểu ghi Phép toán sử dụng biểu thức trả giá trị True False A Phép toán số học B Phép toán quan hệ phép toán số học C Phép toán số học phép toán logic D Phép toán quan hệ phép tốn logic Chương trình sau Đúng hay Sai? Vì sao? Begin Writeln(‘Chuc cac em thi tot!’); A Sai, CT khơng có phần khai báo Write(‘Dat ket qua cao’); B Đúng, CT khơng cần khai báo Readln C Sai, CT thiếu phần nhập giá trị End D Sai, CT thiếu phần tính tốn Chương trình dịch Pascal cấp phát Byte nhớ cho biến khai báo sau: Var A: array[1 10] of integer; A 28 B 36 I, N: real; q, b: word; C.5 D 18 Giá trị biểu thức boolean sau với N = 300, p = - 0.001, q = 0.001, c = ‘5’ (1) 2*N ‘7’) A False – False – True B False – True – False C False – True – True D False – False – False Sau thực đoạn chương trình sau thu kết xâu S gì? begin S := ‘GBCDEFA’; T := S[1]; S[1] := S[length(S)]; S[length(S)] := T; A ‘GBCDEFA’ B ‘ABCDEFG’ end; C ‘AGBCDEF’ D ‘BCDEFAG’ Trong NNLT Pascal, hai xâu kí tự so sánh dựa trên? A Độ dài tối đa hai xâu B Mã kí tự xâu từ trái sang phải C Độ dài thực cảu hai xâu D Số lượng kí tự khác xâu Hãy đọc kỹ đoạn chương trình sau: Program timkiem; Var m: array[1 100] of integer; i, n, k: integer; Begin Write('Ban can nhap bao nhieu so:'); Readln (n); For i:=1 to n Begin Write('Nhap so thu ',i,':'); Readln(m[i]); End; Write('Nhap so can tim:'); Readln(k); i:=1; While (m[i]k)and (in then Writeln ('Trong day ban da nhap khong co so nguyen nao bang ',k) else Writeln('Trong day ban da nhap co so bang',k); Readln; End Và trả lời câu hỏi 10: Trong chương trình có đoạn lệnh có sử dụng vịng lặp While …Do, chương trình khỏi vịng lặp khi: A m[ i ]=k B (m[ i ]=k) hoặc( i>n) C i>n D (m[ i ]=k) (i>n) 10.Giả sử chạy chương trình, ta tạo liệu cho mảng m gồm phần tử là: 7, 5, 19, 54 20 Và gán cho biến k mang giá trị 54 Vậy sau thực xong chương trình, hình có dịng thơng báo: A Trong dãy bạn nhập có số k B Trong dãy bạn nhập có số 54 C Trong day ban da nhap co so bang k D Trong day ban da nhap co so bang 54 II TỰ LUẬN Cho chương trình Var i: byte; Begin For i:=1 to 35 If i mod = then write (i:4); Readln End a Hãy viết lại chương trình cách thay đổi cấu trúc FOR cấu trúc WHILE b Cho biết chương trình thực cơng việc gì? Viết CT tạo mảng A có N (N200) phần tử số nguyên In hình mảng vừa tạo Tính đưa hình giá trị trung bình số nguyên dương lẻ có mảng A Ngày soạn: 1/12/08 Tiết 31 KIỂU BẢN GHI A MỤC TIÊU Kiến thức - biết khái niệm ghi - Phân biệt giống khác kiểu ghi kiểu mảng chiều Kĩ - Khai báo kiểu ghi, khai báo biến kiểu ghi NNLT Pascal - Nhập/xuất liệu cho ghi - Thamchiếu đến trường ghi - Sử dụng kiểu ghi để giải số tập đơn giản B TRỌNG TÂM BÀI GIẢNG: Tạo kiểu ghi, cách sử dụng ghi NNLT Pascal C CHUẨN BỊ: Giáo viên: Giáo án, Máy tính Học sinh: sgk D TIẾN TRÌNH BÀI DẠY: I Ổn định tổ chức: Lớp Sĩ số Ngày dạy 11B1 11B3 11B4 11B5 II Kiểm tra cũ: Viết CT nhập vào xâu cho biết xâu có kí tự số? Var S: string; i: integer; Begin write(‘Nhap xau S ’); readln(S); d:=0; For i:=1 to length(s) If (s[i]>=’0’) and (s[i]