Bai 6 Cau lenh dieu kien

<span class='text_page_counter'>(1)</span>Tuần 14 soạn :28/11/2016 Tiết 27,28 30/11/2016. Ngày Ngày dạy :. BÀI TẬP I. Mục tiêu: 1. Kiến thức: - Biết sử dụng kiến thức đã học để viết một số chương trình đơn giản - Sử dụng câu lệnh If...the... esle để viết một số chương trình đơn giản 2. Kĩ năng: - Rèn luyện kĩ năng sửa lỗi một số chương trình đơn giản 3. Thái độ: - Thái độ học tập nghiêm túc, yêu thích bộ môn 4. Nội dung trọng tâm: - Xây dựng được thuật toán của một bài toán cụ thể - Viết được 1 chương trình bằng ngôn ngữ Pascal hoàn chỉnh 5. Năng lực cần hướng tới: - Năng lực CNTT - Năng lực làm việc nhóm, giải quyết vấn đề II. Chuẩn bị: Nội dung bài tập, máy tính điện tử. III. Nội dung bài tập:. Hoạt động của GV và HS Nội dung ghi bảng Hoạt động 1: Bài tập về câu lệnh điều kiện GV: Đưa ra bài tập yêu cần học sinh Bài 1: Viết chương trình in ra số lớn hơn trong hai số (được nhập từ bàn làm việc nhóm phím). GV: Hướng dẫn: - Nhập hai số vào hai biến a, b. - Nếu a > b thì in a. Nếu a <= b Chương trình: Program SO_SANH; thì in b. Hoặc: Nếu a > b thì in a. Ngược lại thì uses crt; in b var a,b: real; HS: Làm việc theo nhóm clrscr; HS: Viết chương trình trên máy và write('nhap so thu nhat: '); sửa lỗi readln(a); write('nhap so thu hai: '); readln(b); HS: Từng nhóm trình bày kết quả( sửa if a> b then writeln(' So lon lỗi) la:',a:10:2) else writeln(' So lon la:',b:10:2); GV: Nhận xét và sửa bài cho học sinh readln.

<span class='text_page_counter'>(2)</span> end.. GV: Đưa ra bài tập yêu cần học sinh làm việc nhóm GV: Gợi ý: Nếu a> b và a> c và a>d thì a là số lớn nhất. Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất.. HS: Làm việc theo nhóm HS: - 1 nhóm xác định bài toán -1 nhóm mô tả thuật toán - 1 nhóm lên viết chương trình HS: Từng nhóm trình bày kết quả GV: Nhận xét và sửa bài cho học sinh. Bài 2: Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím. Chương trình: Program So_Lon_Nhat_1; Uses crt; Var a,b,c,d: real; Begin Clrscr; Write('Nhap so thu nhat:');readln(a); Write('Nhap so thu hai:');readln(b); Write('Nhap so thu ba:');readln(c); Write('Nhap so thu tu:');readln(d); If (a>=b) and (a>=c) and (a>=d) then Writeln( ‘ So lon nhat la:’, a:10:2); If (b>=a) and (b>=c) and (b>=d) then Writeln( ‘ So lon nhat la:’, b:10:2); If (c>=a) and (c>=b) and (c>=d) then Writeln( ‘ So lon nhat la:’, c:10:2); If (d>=a) and (d>=b) and (d>=c) then Writeln( ‘ So lon nhat la:’, d:10:2) Readln End.. Hoạt động 2: Bài tập câu điều kiện nâng cao GV: Đưa bài tập yêu cầu học sinh làm việc theo nhóm GV: Gợi ý làm bài Sử dụng một biến max và một biến a để chứa số vừa nhập. Cho max bằng số đầu tiên. Sau khi nhập một số thực hiện so sánh. Bài tập 3: Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng hai biến.. Chương trình được viết như sau: Program So_Lon_Nhat_2; Uses crt; Var a,max: real; Begin Clrscr;.

<span class='text_page_counter'>(3)</span> nếu số vừa nhập lớn hơn max thì lưu số vừa nhập vào max. Sau khi nhập xong ta có max là số lơn nhất. Writeln(‘ Nhập số thứ nhất:’); Readln(a);Max:=a;. (Giải thuật này gọi là kỹ thuật lính canh).. Writeln(‘ Nhập số thứ ba:’); Readln(a); if a>=Max then Max:=a;. HS: Làm việc theo nhóm HS: - 1 nhóm xác định bài toán -1 nhóm mô tả thuật toán - 1 nhóm lên viết chương trình HS: Từng nhóm trình bày kết quả GV: Nhận xét và sửa bài cho học sinh. Writeln(‘ Nhập số thứ hai:’); Readln(a); if a>=Max then Max:=a;. Writeln(‘ Nhập số thứ tu:’); Readln(a); if a>=Max then Max:=a; Writeln(‘ Số lớn nhất là’Max:10:2); Readln; End. Bài tâp 4: Viết chương trình xét xem một tam giác có là tam giác đều hay không khi biết ba cạnh của tam giác.. GV: Đưa bài tập yêu cầu học sinh làm việc theo nhóm - GV: Gợi ý :Nhập ba cạnh của tam giác vào ba biến a,b,c. - Nếu a = b và b = c thì tam giác là tam giác đều và ngược lại tam giác không là tam giác đều. HS: Thảo luận và viết chương trình theo nhóm GV: Quan sát và sửa lỗi theo từng nhóm máy. Chương trình được viết như sau: Program Tam_giac_deu; uses crt; var a,b,c: real; Begin clrscr; write('Nhap a = '); readln(a); write('Nhap b = '); readln(b); write('Nhap c = '); readln(c); If( a=b) and(b=c) then writeln(‘ Day la tam giac deu’); Else Writeln(‘ Day khong phai la tam giac deu’); Readln End.. IV. Nhận xét.

<span class='text_page_counter'>(4)</span> Giáo viên nhận xét và đánh giá tiết bài tập. V. Dặn dò: -Xem trước bài, tiết sau học phần mềm học tập.

<span class='text_page_counter'>(5)</span>