Đang tải... (xem toàn văn)
B, Khai báo thêm biến nguyên Dem và bổ sung vào ctrinh những câu lệnh cần thiết để biến Dem tính số lần thực hiện tráo đổi trong thuật toán.. Đưa kq tìm được ra màn hình.[r]
(1)Ngày soạn: 23/1 Ngày dạy: 27/1 Tiết : 30,31 BÀI TẬP VÀ THỰC HÀNH I.Mục đích: - Củng cố cho hs hiểu biết kiểu xâu - T/chức hđ PM để hs có kĩ các kĩ làm việc với xâu LT - Cung cấp cho hs vài thuật toán cbản và đơn giản thường gặp xử lí vb - Góp phần hình thành và rèn luyện tư LT, tác phong người LT II Biện pháp: Dạy và học hợp tác nhóm nhỏ III Phương tiện: - GV: Phòng máy vi tính - HS: Sách bài tập IV Nội dung tiết dạy Ổn định tổ chức: Kiểm tra bài cũ: Tiến trình bài học: Hoạt động Nội dung Bài 1: Hãy tìm hiểu và chạy thử ctrinh thực GV: - Chia nhóm cho hs thực hành thuật toán xếp dãy số nguyên Y/c hs đọc và nghiên cứu đề bài thuật toán tráo đổi với các giá trị khác n đây Program sapxepdayso; Uses crt; -Y/c hs chạy chương trình SGK(65) và Const nmax=250; tìm hiểu Type ArrInt=array[1 nmax] of integer; Var A:ArrInt; n,i,j,y: integer; Hs: làm theo hướng dẫn gv Begin Clrscr; randomize; Write (‘Nhap n=’); GV: Câu lệnh ghép sau có ý nghĩa gì? Readln(n); Begin T:=A[i]; For i:=1 to n A[i]:=random(300)random(300); A[i]:=A[i+1]; A[i+1]:=t; For i:=1 to n write(A[i]:5); End; Writeln; For j:=n downto HS: Trao doi A[i] và A[i+1] For i:=1 to j-1 If A[i] >A[i+1] then Begin Lop11.com (2) GV: Nxét thời gian chạy ctrinh HS: GV: Y/c hs nghiên cứu và làm tiếp phần b - Gọi hs lên bảng chạy ctrinh phần B HS: Dưới lớp làm bài - hs đại diện lên bảng chạy ctrinh - Gợi ý cho học sinh dùng vòng lặp While (lặp với số lần chưa biết trước) - HS: Nghiên cứu và làm bài tập trên máy T:=A[i]; A[i]:=A[i+1]; A[i+1]:=t; End; Writeln(‘Day so duoc sap xep la: ’); For i:=1 to n Write (A[i]:7); Writeln; Readln End + Qua đó nhận xét thời gian chạy ctrinh B, Khai báo thêm biến nguyên Dem và bổ sung vào ctrinh câu lệnh cần thiết để biến Dem tính số lần thực tráo đổi thuật toán Đưa kq tìm màn hình Viết chương trình nhập vào từ bàn phím xâu Chuyển cụm ký tự anh xâu đó thành cụm ký tự em KQ cuối cùng thu Program bai3; Var vt: Byte; St: string; Begin Write (‘ Moi ban nhap vao mot xau: ’); Readln (st); While pos (‘anh’, st) <> Begin Vt:= pos (‘anh’, st); Delete(st, vt, 3); Insert (‘em’, st, vt); End; Củng cố: - Yêu cầu nhắc lại cú pháp các hàm chép, di chuyển, chèn xoá d xâu 5.Dặn dò: - Nghiên cứu và bài tập SGK trang 72 Lop11.com (3)