Tiết 34 - BTTH 5
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (712.06 KB, 10 trang )
Buôn Đôn
TRƯỜNG TRUNG HỌC PHỔ THÔNG
TIN HỌC 11
Ñaëng Höõu Hoaøng
BÀI TẬP VÀ THỰC HÀNH 5
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;
