Bài tập thực hành 5 - Tin học 11.

Có thầy cô nào dạy đến bài tập thực hành 5 chưa? Tôi vừa dạy đến bài này và cũng vướng phải nhiều khó khăn khi truyền tải kiến thức cho học sinh.
Bài 2. Viết chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng Anh trong S (Không phân biệt chữ hoa hay thường)
Trong bài này nếu để giải quyết triệt để thì cần sử dụng một số hàm như hướng dẫn trong sách giáo viên: hàm ord(ch) để cho giá trị mã ASCII thập phân của kí tự. (Trong bài Kiểu xâu không giới thiệu hàm này)
Vậy các thầy cô nào có cách truyền đạt kiến thức dễ hiểu cho HS thì chia sẻ cho tôi. Cám ơn.

[tungld]

Bài này đã thảo luận trên diễn đàn rồi, thầy có thể đọc tại đây:
http://www.dayhocintel.org/diendan/s...ead.php?t=4448

Program Dem_chuoi;
Var
St:String;
dem:ARRAY['A'.. 'Z'] Of Integer;
i:Integer;
Ch:Char;
Begin
Writeln('DEM SO LAN XUAT HIEN CUA KY TU TRONG CHUOI');
Writeln(' -----------');
Write('-Nhap chuoi: ');
Readln(St);
For i:=1 To Length(St) Do
Dem[UpCase(St[i])]:= Dem[UpCase(St[i])]+1;
Writeln;
Writeln('+Cac ky tu trong chuoi la: ');
For Ch:='A' To 'Z' Do
If Dem[ch] > 0 Then
Writeln('+Chu: ',Ch,' xuat hien: ',Dem[Ch],' lan' );
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.

Bạn có thể tham khảo một số bài khac ở đây
http://www.punbb-hosting.com/forums/...orum.php?id=13

[tttymhy]

Bài của thầy Hungpro là đếm chữ cái? Thầy thử xem chương trình này có đúng ý thầy không?
var s:string;
i,dem:byte;ch:char;
begin
dem:=0;
write('Nhap mot xau:');
readln(s);
for i:=1 to length(s) do
for ch:='A' to 'z' do
if s[i] =ch then dem:=dem+1;
write('So chu cai co trong xau la :',dem);
readln
end.