1
2
3
4
5
6
7
8
9
10
CHÚC MỪNG ĐỘI THỎ
CONGRATULATIONS RABBIT TEAM
CHÚC MỪNG ĐỘI HỔ
CONGRATULATIONS TIGER TEAM
AI LÊN CAO HƠN
overtop
Câu 1: Để mô tả cấu trúc rẽ nhánh,
Pascal dùng câu lệnh gì?
If-then
RABBIT TEAM
Câu 2: Cách khai báo nào sau đây là đúng?
A. var x: string[25];
B. var x = string[40];
C. var x: string(40);
D. var x: = string(25)
A
RABBIT TEAM
Câu 3: s:= ‘Tap the lop 11a3’;
D:=length(s)
D có giá trị là bao nhiêu?
D = 16
RABBIT TEAM
Câu 4: s:=‘Lop 11a3 nang dong’;
k:= pos(‘11a3’,s);
Giá trị của k là?
K=5
RABBIT TEAM
Câu 5: s1:=‘ Phu nu’; s2:=‘Quoc te’;
Để kết quả s2:= ‘Quoc te Phu nu’ ta thực hiện thao tác nào?
s2:= insert(s1, s2, 6);
s2:= insert(s1, s2, 8);
s2:= insert(s1, s2, 5);
s2:= insert(s1, s2, 7);
B
Câu 6: Điền vào ... để hoàn chỉnh cấu trúc lặp với số lần biết trước dạng lặp lùi?

For := ... ... ;
For := downto do ;
TIGER TEAM
Câu 7: Cho xâu s:=‘tap the lop 11a3’;
Sau khi thực hiện 2 lệnh
s1:= copy(s,9,4);
Write(s1);
Kết quả in lên màn hình là gì?
S1 = ‘11a3’
TIGER TEAM
Câu 8: Em hãy đưa ra cấu trúc lặp với số lần chưa biết trước?
While <điều kiện> do
TIGER TEAM
Câu 9: Cho xâu s:= ‘Bac Giang’
Khi đó s[5]=?
S[5]=‘G’
TIGER TEAM
Câu 10: Thủ tục Delete(st,vt,n) thực hiện việc xoá ... kí tự của biến xâu ... bắt đầu từ vị trí ...
Thủ tục Delete(st,vt,n) thực hiện việc xoá n kí tự của biến xâu st bắt đầu từ vị trí vt
TIGER TEAM
Bài tập: Kiểu xâu
Bài 1: Viết chương trình nhập vào họ tên. In ra màn hình tên của người đó.
Gợi ý
B1: Khai báo biến
B2: Nhập xâu họ tên
B3: Tìm kí tự trắng gần tên nhất
1. Duyệt các phần tử từ cuối đến đầu dãy, kiểm tra kí tự đang xét có phải là kí tự trắng không?
2. Cách 1: Xoá trong xâu họ tên từ vị trí đầu tiên đến vị trí thứ i
Cách 2: Copy từ vị trí i+1 đến cuối xâu => được xâu tên.
B4: In ra kết quả.
Bài tập: Kiểu xâu

Nhóm 1+2: Sắp xếp thành chương trình hoàn chỉnh
Nhóm 3+4: Tìm lỗi sai và sửa lại
Bài tập: Kiểu xâu
Bài 2: Nhập vào 1 xâu thay thế tất cả các cụm kí tự ‘toan’ bằng cụm kí tự ‘tin’