Bài giảng Tin học Lớp 11 - Bài: Bài tập và thực hành 5

Nội dung text: Bài giảng Tin học Lớp 11 - Bài: Bài tập và thực hành 5

1. TRƯỜNG TRUNG HỌC PHỔ THƠNG Buơn Đơn TIN HỌC 11 Đặng Hữu Hoàng
2. BÀI TẬP VÀ THỰC HÀNH 5 Thời gian 1 tiết
3. Bài thực hành 1: Quan sát chương trình sau Hãy viết lại chương trình trên, trong đĩ khơng dùng biến xâu p.
4. Chương trình được viết lại như sau: Var i,x:Byte; a:string;palindrome:boolean; Begin Write(‘Nhap vao xau:’); Readln(a); X:=length(a); Palindrome:=true; For i:= 1 to length(a) div 2 do if a[i] <> a[x-i] then palindrome:=false; If palindrome then write(‘Xau la palindrome’) Else write(‘Xau khong la palindrome’); Readln; End.
5. 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 cÃư cái tiếng Anh trong S (khơng phân biệt chữ hoa hay chữ thường).
6. Chương trình được viết lại như sau: Var i,x:Byte; a:string;palindrome:boolean; Begin Write(‘Nhap vao xau:’); Readln(a); X:=length(a); Palindrome:=true; For i:= 1 to length(a) div 2 do if a[i] <> a[x-i] then palindrome:=false; If palindrome then write(‘Xau la palindrome’) Else write(‘Xau khong la palindrome’); Readln; End.
7. Bài 3: Nhập vào từ bàn phím một xâu. Thay thế tất cả các cụm kí tự “anh” bằng cụm kí tự “em”.
8. DẶN DỊ 1. Thực hiện bài tập chương 4 - Sách bài tập 2. Thực hiện bài tập số 10 -Trang 80 _ Sách giáo khoa. 3. Xem trước §13 _ “Kiểu bản ghi” _Trang 74- Sách giáo khoa. 4. Xem nội dung phụ lục B _ “Mơi trường Turbo Pascal” _ Trang 122 _ Sách giáo khoa.