I.Mục đích:
+ Củng cố lại những kiến thức đã học.
+ Vận dụng những kiến thức kỹ năng đã học vào giải các bài tập đúng, chính xác.
+ Học sinh yêu thích giải bài toán trong lĩnh vực tin học.
II.Biện pháp: Dạy và học phát hiện và giải quyết vấn đề.
III. Phương tiện:
- GV: Sách bài tập và một số bài tập nâng cao.
- HS: SGK, bút vở, nháp .
IV. Nội dung tiết dạy:
1. Ổn định tổ chức:
2. Tiến trình bài học:
Ngày soạn: 19/12 Ngày dạy: 23/12 Tiết: 20 BÀI TẬP I.Mục đích: + Củng cố lại những kiến thức đã học. + Vận dụng những kiến thức kỹ năng đã học vào giải các bài tập đúng, chính xác. + Học sinh yêu thích giải bài toán trong lĩnh vực tin học. II.Biện pháp: Dạy và học phát hiện và giải quyết vấn đề. III. Phương tiện: - GV: Sách bài tập và một số bài tập nâng cao. - HS: SGK, bút vở, nháp. IV. Nội dung tiết dạy: Ổn định tổ chức: 2. Tiến trình bài học: Hoạt động Nội dung GV: Để tìm số lớn nhất trong 3 số được nhập vào từ bàn phím ta có thể sd phép gán. Nếu a <b thì a<- b còn nếu a<c thì a<-c =>Số lớn nhất sẽ là a. - Y/c 1 hs lên bảng viết chương trình, dưới lớp làm bài ra nháp. HS: 1 hs lên bảng, dưới lớp làm ra nháp. GV: Chữa bài trên bảng và nhận xét cho điểm. GV: Để tìm UCLN của 2 số nguyên dương. Ta so sánh 2 số đó với nhau. Nếu 2 số bằng nhau thì lấy giá trị chung này làm UCLN. - Nếu số nào lớn hơn thì sẽ lấy chính số đó trừ đi số kia - Y/c 1 hs lên bảng viết thuật toán, 1 hs viết chương trình, dưới lớp làm bài ra nháp. HS: 2 hs lên bảng viết thuật toán và chương trình, dưới lớp làm ra nháp. GV: Chữa bài trên bảng và nhận xét cho điểm. Bài 1: Tìm số lớn nhất trong 3 số nhận vào từ bàn phím. Program Timso; Uses crt; Var a, b, c: real; Begin Clrscr; Write (nhap vao ba so a, b, c: ‘); Readln(a, b, c); If a<b then a:=b else If a<c then a:=c; Write (‘So lon nhat la ‘, a); Readln End. Bài 2: Tìm UCLN của 2 số nguyên dương M v N. Thuật toán: Bc1: Nhập M, N; Bc2: Nêú M=N thì lấy giá trị chung này làm UCLN rồi chuyển đến bước 5; Bc3: Nếu M>N thì M<- M-N ngược lại N<-N-M; Bc 4: Quay lại Bc 2; Bc 5: Đưa ra kết quả UCLN rồi kết thúc. Chương trình: Program UCLN; Uses crt; Var M, N: Integer; Begin Clrscr; Write (‘Nhap vao 2 so nguyen duong M,N = ’); Readln(M,N); While MN do If M>N then M:=M-N else N:=N-M; Writeln (‘UCLN = ’,M); Readln End. 3. Củng cố: Học sinh cần nắm được thuật toán để giải bài toán và câu lệnh While – do. 4. Dặn dò: - Về nhà đọc và nghiên cứu bài Kiểu mảng.
Tài liệu đính kèm: