Giáo án môn Tin học 11 - Bài tập và thực hành 5

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