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

ppt 10 trang phanha23b 29/03/2022 2500
Bạn đang xem tài liệu "Bài giảng Tin học Lớp 11 - Bài: Bài tập và thực hành 5", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên

Tài liệu đính kèm:

  • pptbai_giang_tin_hoc_lop_11_bai_bai_tap_va_thuc_hanh_5.ppt

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.