Giáo án môn Tin học khối 11 - Bài tập và thực hành (tiết 2)

Củng cố  Nắm được thuật toán đơn giản liên quan đến xâu: đếm số lần xuất hiện các kí tự xuất hiện trong xâu, phép toán thay thế xử lí trên xâu.. Dặn dò  Cài đặt lại chương trình trên m[r]

BÀI SOẠN GIÁO ÁN

Ngày  03/03/2010

Tên bài

I MỤC TIÊU

1





2 1B C

 Khai báo



 EF G hàm và #H #G liên quan

II CHUẨN BỊ

1 Giáo sinh

 Sách giáo khoa, giáo án, sách giáo viên



2  sinh



3 S dùng  

 * &D0

III TIẾN TRÌNH DẠY- HỌC

1 U < I%&



2

GS:

Ví G st:= ’Da Nang’ => 7"# J3 2

HS:

Program VD5;

Var a: string; i, d: byte;

Begin

Write(‘nhap vao xau: ’); readln(a);

For i:= 1 to length(a) do

If (‘A’<= a[i]) and (a[i]<= ’Z’)

Then d:= d+1;

Writeln(‘ so luong cac ki tu la chu cai in hoa: ’, d);

Readln

End

3 Bài

Hoạt động của GS Hoạt động của HS Nội dung ghi bảng

Yêu p3 HS xác

< input và output

H bài toán?

- Trong ) Z cái

nhiêu Z cái?

-các

cái thì cho vòng I&

for  #" nào?

- Nêu ý #Q <8

A trình <"5 ?

-cài <# A trình

- GS + xét và cho

- HS Input: +& vào xâu Output:

các

- HS cái

- Dùng vòng I& for 

-Dùng hàm upcase() <8 in hoa kí #- S[i]

[‘A’ ’Z’] thì

<"5 lên 1 <A , cho kí

#- <= <0

- Lên ) cài <#

A trình

Bài 2: ( sgk) Cài <#

Program VD2;

Var Dem: array['A' 'Z'] Of Byte; S: string;

i: Byte;

ch: char;

Begin Write(' Nhap xau S= ');

Readln(S);

For ch:= 'A' To 'Z' Do Dem[ch]:= 0;

For i:= 1 to Length(S) Do Begin

S[i]:= upcase(S[i]);

If S[i] in ['A' 'Z'] Then Dem[S[i]]:= Dem[s[i]]+ 1; End;

For ch:= 'A' to 'Z' Do

If Dem[ch]<> 0 Then Writeln(' so lan xuat hien ', ch, ' la', Dem[ch] );

Readln

- $D ví G minh 

Ví G ‘anh oi anh

dau roi’

=> ‘em oi em dau

roi’

-‘anh’ )y ‘em’ p

có hàm và #H #G

nào?

Nêu ý

J3"# bài toán?

-<#

- GS + xét và cho

- Pos(), #H #G Delete(), Insert()

<p3 H xâu ‘anh’

- Xóa xâu ‘anh’ ,u

tìm #D0

- Chèn xâu ‘em’ vào xâu

- HS lên ) trình bày

End

Bài 3: ( sgk) Cài <#

Program vd3;

Var vt: byte; s: string;

Begin Write(‘moi nhap xau’);

Readln(s);

While pos(‘anh’, s)<>0 do Begin

vt:= pos(‘anh’, s);

delete(s, vt, 3);

insert(‘em’, s, vt);

End;

Writeln(‘ xau sau khi da thay the:

’, s);

Readln End

IV CỦNG CỐ VÀ DẶN DÒ

1 vH ?



2 N dò

 Cài

 Xem

V NHẬN XÉT, ĐÁNH GIÁ CỦA GIÁO VIÊN HƯỚNG DẪN

………

………

………

Kí 34# H BGH Giáo viên % €

Kí tên

Hà  Minh Châu