kiem tra 1 tiet hk 2

Tiết 30
Kiểu xâu (mục 2)
Quan sát sách giáo khoa trang
71, chương trình nhập họ tên
của hai học sinh vào hai biến
xâu và đưa ra màn hình xâu dài
hơn, nếu bằng nhau thì đưa ra
xâu nhập sau.
5. MỘT SỐ VÍ DỤ
5. MỘT SỐ VÍ DỤ
1. Khai báo xâu
Var a, b:string;
2. Nhập xâu
BEGIN
Write(‘ Nhap ho ten thu nhat :’);
Readln(a);
Write(‘Nhap ho ten thu hai :’);
Readln(b);
IF Length(a)>Length(b) then write(a)
else write(b);
Readln
End.
3. Xử lí xâu
Quan sát sách giáo khoa trang
71, chương trình nhập hai xâu từ
bàn phím và kiểm tra kí tự đầu
tiên của xâu thứ nhất có trùng
với kí tự cuối cùng của xâu thứ
hai không.
5. MỘT SỐ VÍ DỤ
5. MỘT SỐ VÍ DỤ

1. Khai báo xâu
Var a, b:string;
2. Nhập xâu
BEGIN
Write(‘ Nhap xau thu nhat :’); Readln(a);
Write(‘Nhap xâu thu hai :’); Readln(b);
x:=length(b);
If a[1]=b[x] then write(‘Trung nhau’)
else write(‘Khac nhau’)
3. Xử lí xâu
* Kí tự cuối cùng của
xâu B: B[x] trong đó
x là độ dài của xâu B
* Kí tự đầu tiên của
xâu A: A[1]
x: byte
Readln
End.