Chào mừng quý vị đến với Website của Trường THPT Buôn Đôn.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Tiết 34 - BTTH 5
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Vĩnh Trung
Ngày gửi: 15h:17' 05-09-2009
Dung lượng: 1.5 MB
Số lượt tải: 71
Nguồn:
Người gửi: Trần Vĩnh Trung
Ngày gửi: 15h:17' 05-09-2009
Dung lượng: 1.5 MB
Số lượt tải: 71
Số lượt thích:
0 người
Buôn Đôn
TRƯỜNG TRUNG HỌC PHỔ THÔNG
TIN HỌC 11
Đặng Hữu Hoàng
BÀI TẬP VÀ THỰC HÀNH 5
Thời gian 1 tiết
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.
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);
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.
Palindrome:=true;
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).
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);
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.
Palindrome:=true;
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”.
DẶN DÒ
2. Thực hiện bài tập số 10 -Trang 80 _ 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.
1. Thực hiện bài tập chương 4 - Sách bài tập
3. Xem trước §13 _ “Kiểu bản ghi” _Trang 74- Sách giáo khoa.
BÀI HỌC ĐÃ
KẾT THÚC
TRƯỜNG TRUNG HỌC PHỔ THÔNG
TIN HỌC 11
Đặng Hữu Hoàng
BÀI TẬP VÀ THỰC HÀNH 5
Thời gian 1 tiết
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.
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);
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.
Palindrome:=true;
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).
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);
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.
Palindrome:=true;
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”.
DẶN DÒ
2. Thực hiện bài tập số 10 -Trang 80 _ 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.
1. Thực hiện bài tập chương 4 - Sách bài tập
3. Xem trước §13 _ “Kiểu bản ghi” _Trang 74- Sách giáo khoa.
BÀI HỌC ĐÃ
KẾT THÚC
Các ý kiến mới nhất