Bài tập và thực hành 5

Tiết 30
Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được kết quả giống như từ trái sang phải (còn được gọi là xâu palindrome)
Chạy thử chương trình.
Viết lại chương trình, trong đó không dùng biến xâu p.
Program bai1;
var i,x :byte;
a,p: string;
Begin
write(‘Nhap vao xau: ’);
readln(a);
x:= length(a);
p:=‘’;
for i:=x downto 1 do
p:=p+a[i];
if a=p then
write(‘xau la palindrome’)
else
write (‘ Xau khong la palindrome’);
readln
End.
a. Chương trình
Hướng giải quyết bài toán?
Cần duyệt tới các phần tử của xâu.
So sánh các vị trí đối xứng trong xâu
cần biết được vị trí đối xứng của phần tử thứ i.
- Phải so sánh bao nhiêu cặp kí tự trong xâu?
Sử dụng vòng lặp kiểm tra xâu có đối xứng hay không?
Program bai1_b;
var i,x, dem :byte;
a: string;
Begin
write(‘Nhap vao xau: ’);
readln(a);
x:= length(a);
dem:=0;
for i:=1 to x div 2 do
if a[i]<> a[x-i+1] then dem:=dem + 1;
if dem=0 then write (‘ Xau la palindrome’)
else write (‘ Xau la palindrome’);
readln
End.
Program bai1_b2;
var i,x :byte;
a: string;
Begin
write(‘Nhap vao xau: ’);
readln(a);
x:= length(a);
i:=1;
while (i <= (x div 2)) and (a[i] = a[x-i+1]) do i:= i+1;
if i >(x div 2) then write (‘ Xau la palindrome’)
else write (‘ Xau khong la palindrome’);
readln
End.
Cần tham chiếu tới tất cả các phần tử của xâu.
Chuyển tất cả các kí tự trong xâu sang viết hoa.
So sánh các kí tự trong xâu S với các chữ cái tiếng anh. Nếu giống chữ cái tiếng anh thì lưu số lần xuất hiện của chữ cái đó trong xâu S.
Đưa ra màn hình số lần xuất hiện của các kí tự trong xâu S là chữ cái tiếng anh
Program bai2;
var i,x, dem :byte;
a: string;
ch: char;
Begin
write(‘Nhap vao xau: ’); readln(a);
x:= length(a);
for i:=1 to n do a[i]:=upcase( a[i]);
for ch=‘A’ to ’Z’ do
begin
dem:=0;
for i:=1 to n do
if ch = a[i] then dem:=dem + 1;
if dem <> 0 then writeln(‘ki tu ’, ch, ‘ xuat hien ’ , dem, ‘ lan’);
end;
readln
End.
Xem lại bài 1 và 2.
Chuẩn bị bài 3
Làm bài tập 10 – sgk/80.