Đang tải... (xem toàn văn)
Kỹ năng - Rèn luyện kĩ năng khai báo kiểu dữ liệu có cấu trúc với Pascal, sử dụng thành thạo các từ khoá Var, Type.. - Sử dụng thành thạo các thao tác vào/ ra và các phép toán trên các t[r]
(1): Giáo án giảng dạy :Bộ môn: Tin học BÀI: BÀI TẬP CHƯƠNG IV (t1) Ngày soạn: Tiết: 34 Ngày giảng: 14/01/2010 18/01/2010 I MỤC TIÊU Kiến thức - Các quy tắc kiểu liệu có cấu trúc để thực liệu thực tế - Kiểu liệu có cấu trúc xây dựng từ kiểu liệu sở theo số cách thức tạo kiểu ngôn ngữ lập trình Pascal quy định - Mỗi kiểu liệu có cấu trúc thường hữu ích việc giải số bài tập - Trong ngôn ngữ Pascal dùng mô tả kiểu liệu với từ khoá Type Kỹ - Rèn luyện kĩ khai báo kiểu liệu có cấu trúc (với Pascal, sử dụng thành thạo các từ khoá Var, Type) - Sử dụng thành thạo các thao tác vào/ và các phép toán trên các thành phần sở Tư - Tạo logic lập trình, sử dụng các kiểu có cấu trúc vào lạp trình cho phù hợp Thái độ - Nhiệt tình, chú ý, có sáng tạo, tự thực hành thêm Rèn các đức tính: Cẩn thận, ham học hỏi, có tinh thần tương trợ bạn, làm việc nhóm - Tiếp tục hình thành và xây dựng phẩm chất cần thiết người lập trình II CHUẨN BỊ BÀI GIẢNG Phương tiện + Chuẩn bị giáo viên: + Chuẩn bị học sinh: Giáo án, bài giảng điện tử, hướng dẫn học sinh giải các bài tập 5,6,7,8,9,10,11 trang 79 & 80 SGK SGK, chuẩn bị bài trước nhà Làm bài theo nhóm Phương pháp dạy học - Gợi mở vấn đáp - Đàm thoại - Dặt vấn đề III TIẾN TRÌNH DẠY HỌC Kiểm tra bài cũ - Kết hợp gờ bài tập Nội dung bài giảng HOẠT ĐỘNG 1 Viết chương trình nhập số a, b và đưa màn hình số nhỏ Email: Heoconnhome@Gmail.com Trang Lop11.com (2) : Giáo án giảng dạy :Bộ môn: Tin học HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Viết chương trình nhập số a, b và đưa màn hình số nhỏ Ví dụ: Nếu nhập vào số 3, thì đưa màn hình số nhỏ là: Vậy để làm bài này chúng ta sử dụng câu lệnh nào là phù hợp? Yêu cầu HS độc lập soạn chương trình vào máy IF THEN ELSE Program Min_ab; Uses crt; Var a,b : integer; Begin Clrscr; Write('Nhap so thu nhat: '); Readln(a); Write('Nhap so thu hai: '); Readln(b); if a < b then Writeln('Gia tri nho nhat la:',a) else Giải thắc mác (nếu có) Writeln('Gia tri nho nhat la:',b); Yêu cầu HS thực hiên nhập vào 3,7 và báo kết Readln; End Thực chương trình, báo KQ: HOẠT ĐỘNG Bài tập HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Bài tập Viết chương trình nhập mảng số nguyên và in màn hình phần tử nhỏ mảng số nguyên đó Email: Heoconnhome@Gmail.com Trang Lop11.com (3) : Giáo án giảng dạy :Bộ môn: Tin học Ví dụ: nhập vào mảng số 13 20 Thì đưa thông báo kết số nhỏ mảng là Đưa huật toán: Bước 1: Nhập N và mảng số nguyên A1, A2,…An; Bước2:Gán Min = A1;Cho i chạy từ đến n Bước 3: Nếu i>n thì đưa Min kết thúc; Bước 4: 4.1 Nếu Ai< Min thì gán Min = Ai; 4.2 Gán i:=i+1 quay lại bước Ở đây chúng ta sử dụng câu lệnh For đơn Yêu cầu HS soạn chương trình vào máy, em máy Program Min; Uses crt; Var A: array[1 100] of integer; Min,i, N : integer; Begin Clrscr; Write('So phan tu cua mang: '); Readln(N); For i:=1 to N Begin Write(' A[', i,']= '); Readln(A[i]); End; Min:=A[1]; For i:=2 to N Email: Heoconnhome@Gmail.com Trang Lop11.com (4) : Giáo án giảng dạy :Bộ môn: Tin học if A[i] < Min then Min:= A[i]; Writeln(' Gia tri nho nhat cua mang la:',Min); Giải thắc mác (nếu có) Readln; End Test chương trình và lưu lại HOẠT ĐỘNG Bài tập 2: HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Bài tập 2: Nhập xâu từ bàn phím và đưa màn hình : - Độ dài xâu là bao nhiêu? - In xâu đã bị xóa kí tự đầu xâu? - In xâu đã bị xóa kí tự cuối? Yêu cầu bài toán: - Cho biết độ dài xâu? - In xâu đã bị xóa kí tự đầu xâu? - In xâu đã bị xóa kí tự cuối? Yêu cầu HS độc lập soạn chương trình vào máy Program Xoaxau; Uses crt; Var a:string; n, vt, k:integer; Begin Clrscr; write('Nhap vao mot xau '); readln(a); write('Nhap vi tri muon xoa '); readln(vt); write('Nhap so luong ki tu muon xoa '); readln(n); k:=length(a); delete(a,vt,n); writeln(' Do dai cua xua la:', k); Email: Heoconnhome@Gmail.com Trang Lop11.com (5) : Giáo án giảng dạy :Bộ môn: Tin học writeln('Xau ket qua sau xoala:',a); readln;; End HOẠT ĐỘNG Bài tập 3: HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Bài tập 3: Viết chương trình nhập từ bàn phím thông tin học sinh: Hoten, diemtoan, diemvan, diemtin • Program hocsinh; In màn hình thông tin sau: - Hoten, Type { phan Khai bao} Hocsinh = record - Diemtoan Hoten : string[30]; - Diemvan - Diem tin diemtoan,diemvan,diemtin -Tongdiem ,Tong:integer; Gợi ý Type { phan Khai bao} end; Hocsinh = record Var A: ARRAY[1 100] of Hocsinh; Hoten : string[30]; i,n: integer; BEGIN diemtoan,diemvan,diemtin,Tong:integer; end; Write(' Nhap vao so hoc sinh lop : '); readln(n); Var A: ARRAY[1 100] of Hocsinh; i,n: integer; For i:=1 to n Begin Nhập số lượng học sinh writeln('Nhap so lieu cho hoc sinh Write(' Nhap vao so hoc sinh lop : '); thu ',i); readln(n); Email: Heoconnhome@Gmail.com Trang Lop11.com Write('Ho Va Ten : '); (6) : Giáo án giảng dạy :Bộ môn: Tin học Nhập liệu ghi readln(A[i].Hoten); For i:=1 to n Write(' Diem toan : Begin ');readln(A[i].diemtoan); writeln('Nhap so lieu cho hoc sinh Write(' Diem van : thu ',i); Write('Ho Va Ten : '); readln(A[i].Hoten); Write(' Diem toan : ');readln(A[i].diemtoan); ');readln(A[i].diemvan); Write(' Diem Tin : ');readln(A[i].diemtin); Write(' Diem van : ');readln(A[i].diemvan); End; For i:=1 to n Write(' Diem Tin : ');readln(A[i].diemtin); End; A[i].Tong := A[i].diemtoan + A[i].diemvan+ A[i].diemtin; Writeln('BANG KET QUA THI'); Cách tính tổng điểm cho học sinh Writeln(' Ho va ten For i:=1 to n A[i].Tong := A[i].diemtoan+ A[i].diemvan+ A[i].diemtin; diemtoan diemvan diem tin Tong diem '); For i:=1 to n Xuất liệu màn hình { Xuat bang du lieu man hinh} For i:=1 to n Writeln(A[i].Hoten:5,A[i].diemtoan:8,A[i ].diemvan:8,A[i].diemtin:8,A[i].tong:8); Readln; Writeln('BANG KET QUA THI'); Writeln(' Ho va ten diemtoan diemvan diem tin Tong diem '); END Writeln(A[i].Hoten:5); Write(A[i].diemtoan:8); Write(A[i].diemvan:8); Write(A[i].diemtin:8); Write(A[i].tong:8); Yêu cầu học sinh soạn ct và test Email: Heoconnhome@Gmail.com Trang Lop11.com (7) : Giáo án giảng dạy :Bộ môn: Tin học Giải thác mác(nếu có) Củng cố + Kiểu mảng: cách khai báo, cách truy cập, in mảng + Kiểu xâu : Cách khai báo, thao tác xử lý xâu + Kiểu ghi: Cách khai báo, các thao tác với ghi Dặn dò - Các em xem lại lý thuyết Kiểu mảng, kiểu xâu và kiểu ghi để tiết sau chúng ta kiểm tra tiết, ôn chương IV - Các em nghỉ! IV NHẬN XÉT o o o o Phương pháp: Hiệu sử dụng: Hiệu SD TBDH: ND cần điểu chỉnh: NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DÂN Email: Heoconnhome@Gmail.com Trang Lop11.com (8)