1. Hoạt động khởi động Mục tiờu:
- Giỳp học sinh huy động vốn kiến thức và kĩ năng để tổng hợp kiến thức đó học; tạo hứng thỳ để bước vào giờ bài tập.
- Giỳp giỏo viờn tỡm hiểu xem học sinh cú hiểu và biết cỏch vận dụng những kiến thức đó học, chữa bài kiểm tra học ki II
Tiến hành:
- GV nờu nội dung của bài và yờu cầu hs nờu ý tưởng của bài GV: Kết luận, vào bài, giới thiệu nội dung bài học.
2. Bài mới
Hoạt động của GV và HS Nội dung chớnh HĐ1: (30’) Nhắc lại cỏc kiến thức
trong bài kiểm tra
GV: Yờu cầu hs nhắc lại cỏch khai bỏo mảng một chiều, cỏch tham chiếu?
- Cỏch khai bỏo xõu và cỏch sử dụng cỏc thủ tục và hàm?
- Cỏch khai bỏo tệp và cỏc thao tỏc với tệp?
HS: Kiểm tra lại cỏc đỏp ỏn trong đề
I.Lý thuyết: 1/ Trắc nghiệm khỏch quan Cõu Mó 101 Mó 102 01 D C 02 B C 03 C B 04 A D 05 A B 06 D A 07 A D 08 D A
GV: - Yờu cầu hs khai bỏo tờn
chương trỡnh và cỏc biến dựng trong bài?
- Viết cõu lệnh nhập vào dóy số - Duyệt cỏc phần tử của mảng - Tỡm cỏc số là bội của K HS: Thực hiện
HĐ2: (7’)
GV: Yờu cầu hs viết cỏch khai bỏo tờn chương trỡnh, tờn tệp và gắn tờn tệp?
- Duyệt cỏc phần tử trong tệp Kiểm tra số chẵn, đếm và viết số chẵn - HS: Thực hiện 09 A B 10 D C 11 C C 12 C C 2/ Tự luận
Bài 1: Nhập N và dóy a1,a2,..,aN và số nguyờn k. Hóy đếm và tớnh tổng cỏc số là bội của k.
Program De1_Bai1;
Var A:Array[1..100] of Integer; d,s,N,i,k: Integer;
Begin
Write('Nhap so phan tu: '); Readln(N); For i:=1 to N do Begin Write('A[',i,']='); Readln(A[i]); End; Write('Nhap K='); Readln(K); d:=0; s:=0;
Write('Cac so la boi cua ',k,' la: '); For i:=1 to n do
If A[i] mod k =0 then Begin
d:=d+1; S:=S+A[i]; End;
Writeln(d);
Writeln('Tong cac so chia het cho K la: ',s);
Readln; End.
Bài 2: Cho tệp Dulieu.txt chứa cỏc số
nguyờn. Hóy đếm và viết cỏc số chẵn trong tệp ra màn hỡnh.
Program De1_Bai2; Var f:Text; d,x: Integer; Begin
Assign(f,'c:\Dulieu.txt'); Reset(f); d:=0;
Write('Cac so chan trong tep la: '); While not Eof(f) do
Begin Read(f,x); If x mod 2 =0 then Begin d:=d+1; Write(x,' '); End; End;
Writeln;Write('So luong so chan la: ',d);
HĐ3: 3’ Nhận xột lại bài thi của hs
Close(f); Readln; End.
Bài 3: Nhập vào một xừu. Hóy đếm và viết ngược lại cỏc kớ tự số trong xõu.
Program De2_Bai1; Var S:String;
d,i: Integer; Begin
Write('Nhap Xau: '); Readln(s); d:=0;
For i:=1 to length(s) do
If (s[i]>='0') and(s[i]<='9') then d:=d+1;
Writeln('So luong chu so trong xau la: ',d);
Readln; End.