Xâu đối xứng (palindrome) là xâu khi đọc từ trái sang phải cũng thu được kết quả giống như đọc từ phải sang trái.... - Kiểm tra xâu đó có phải là đối xứng hay không.[r]
(1)(TIN HỌC 11 - TUẦN 24 - TIẾT 29, 30)
(2)1 Mục đích, yêu cầu:
(3)2 Nội dung:
- Nhập vào từ bàn phím xâu
- Kiểm tra xâu có phải đối xứng hay không?
(4)2 Nội dung:
*Bài tập 1: (SGK P 73)
A A B A D C D C B D D C
B C B A
S1:
S2:
Xâu đối xứng? Thế
(5)2 Nội dung:
*Bài tập 1: (SGK P 73)
(6)2 Nội dung:
*Bài tập 1: (SGK P 73)
- Nhập vào từ bàn phím xâu
- Kiểm tra xâu có phải đối xứng hay không? Xác định Input
và Output?
Input: Nhập vào xâu
(7)2 Nội dung:
*Bài tập 1: (SGK P 73)
var i, x: byte; a, p: string;
BEGIN
write(‘Nhap vao mot xau:’); readln(a);
x:= length(a); p:= ‘’;
for i:= x downto do
p:= p+a[i]; if a=p then
write(‘Day la xau doi xung’) else
write(‘Day la xau khong doi xung’); readln;
END.
Viết chương trình:
Nhap vao mot xau: bannab Day la xau doi xung
Nhap vao mot xau: bantoi Day la xau khong doi xung
(8)2 Nội dung:
- Viết chương trình nhập vào xâu S
- Thơng báo hình số lần xuất kí tự có xâu S (Lưu ý: khơng phân biệt chữ
hoa chữ thường).
*Bài tập 2: (SGK P73)
Ví dụ: S= ‘HELLO’
(9)2 Nội dung:
- Viết chương trình nhập vào xâu S
- Thơng báo hình số lần xuất kí tự có xâu S
*Bài tập 2: (SGK P73)
Xác định Input Output?
Input: Nhập vào xâu S
(10)2 Nội dung:
*Bài tập 2: (SGK P73)
Program bai_2; Uses crt;
Var S: string[50]; ch, x: char; i: byte;
Dem: array[‘A’ ’Z’] of byte; Begin
clrscr;
write(‘Nhap vao xau S: ‘); readln(S);
(11)2 Nội dung:
*Bài tập 2: (SGK P73)
For ch:= ‘A’ to ‘Z’ Dem[ch]:= 0; For i:= to length(S)
Begin
x:= upcase(S[i]);
If (x>= ‘A’) and (x<=‘Z’) then Dem[x]:= Dem[x] + 1; End;
For ch:= ‘A’ to ‘Z’
If Dem[ch] <> then
writeln(‘Ki tu ‘,ch,’ xuat hien ‘,Dem[ch],’ lan’); Readln;
(12)2 Nội dung:
*Bài tập 2: (SGK P73)
Nhap vao mot xau:
Kết quả:
abCgbbc Ki tu A xuat hien lan
(13)