Đề cương ôn tập chương 4 môn Tin học 11 năm 2019-2020 - Trường THPT Đức Trọng

Trường THPT Đức Trọng
Tổ: Tin học

CHƯƠNG IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC
A/ TÓM TẮT LÍ THUYẾT
 Kiểu dữ liệu có cấu trúc được xây dựng từ những kiểu dữ liệu đã có theo qui tắc,
khuôn dạng do ngôn ngữ lập trình cung cấp
 Mảng một chiều:
 Mảng một chiều là dãy hữu hạn các phần tử cùng kiểu
 Khái báo:
C1: Var <tên biến mảng>: array[kiểu chỉ số] of <kiểu phần tử>;
C2: Type <tên kiểu mảng>= array[kiểu chỉ số] of <kiểu phần tử>;
Var <tên biến mảng>: <tên kiểu mảng> ;
 Tham chiếu phần tử mảng: tên biến mảng[chỉ số phần tử].
 Kiểu dữ liệu xâu:
 Xâu là dãy kí tự trong bộ mã ASCII, số lượng kí tự trong xâu là độ dài của
xâu, xâu có độ dài =0 gọi là xâu rỗng, kí hiệu: ’’, độ dài lớn nhất của xâu
không vượt quá 255
 Khai báo:
C1: Var <tên biến xâu>: String[độ dài lớn nhất của xâu];
C2: Type <tên kiểu xâu>= string;
Var <tên biến xâu>: <tên kiểu xâu> ;
 Tham chiếu phần tử xâu: tên biến xâu[chỉ số phần tử]
 Các thao tác xử lí thường sử dụng
o Phép ghép xâu: (+)
o Phép so sánh: >, <, =, <>, >=, <=
Các thủ tục chuẩn:
+ Delete(s, vt, n);
+ Insert(s1, s2, vt);a
o Các hàm chuẩn:
+ Length(s)

+ Copy(s, vt, n)
+ Pos (s1,s2)
+ Upcase(ch)

B/ CÂU HỎI VÀ BÀI TẬP
1/ Một số câu hỏi trắc nghiệm:
Câu 1. Giả sử mảng A được khai báo như sau: Var A:array[-2..10] of integer; Để tham
chiếu đến phần tử thứ 3 của mảng, ta viết
A. A[2]
B. A[3]
C. A[0]
D. không thể tham chiếu được vì kiểu chỉ số sai
Câu 2. Hãy cho biết phần tử thứ 10 của mảng C có giá trị là bao nhiêu? For i:=1 to
100 do C[i]:=1;
A. 100
B. 1
C. 10
D. tất cả đều sai
Câu 3. Cho xâu S1='Dat chuan quoc gia' và xâu S2='Duc Trong'. Thủ tục
Copy(S1,1,Length(S2)) cho kết quả là:


A. 'Dat chuan'
B. 'Duc Trong'
C. 'quoc gia'
D. 'Duc Trong Dat chuan quoc gia'
Câu 4. Cho xâu S1='Tin hoc khoi 11 rat kho' và xâu S2='Hoc sinh'. Thủ tục
Delete(S1,9,Length(S2)) cho kết quả là:
A. 'khoi 11 ' B. 'Tin hoc' C. 'Hoc sinh' D. 'Tin hoc rat kho'
Câu 5. Cho S kiểu số thực, i và n thuộc kiểu số nguyên. Để tính tổng bình phương các

số chẵn từ 1 đến n, câu lệnh nào sau đây đúng?
A. For i:=3 to n do If i mod 2=0 then S:=S+sqt(i);
B. For i:=1 to n do S:=S+sqt(i);
C. For i:=1 to n do If i mod 2=0 then S:=S+sqr(i);
D. For i:=n downto 1 do If i mod 2<>0 then S:=S+sqt(i);
Câu 6. Cho biết kết quả của đoạn chương trình sau:
S:=0; For i:=1 to 6 do If (i mod 2=0) then S:=S+i; Write(S);
a 3
b 12
c 6
d 9
Câu 7. Cho biết kết quả của đoạn chương trình sau:
S:=0; i:=0; While S<=10 do begin i:=i+1; S:=S+i; end; Write(S);
a 5
b 15
c 20
d 10
Câu 8. Cho biết kết quả của đoạn chương trình sau:
S:=0; For i:=1 to 10 do If (i mod 3=0) Or (i mod 4=0) then S:=S+i; Write(S);
a 15
b 45
c 30
d 0
Câu 9. Cho biết kết quả của đoạn chương trình sau:
T:=0; For i:=1 to 10 do T:=T+i; Write(i);
a 1
b 55
c 10
d 0
Câu 10. Cho khai báo sau: Var C:array[1..5] of integer; . Để lưu trữ biến C cần bao

nhiêu byte bộ nhớ?
a 2
b 5
c 10
d 1
Câu 11. Mảng là kiểu dữ liệu có cấu trúc vì :
a Được xây dựng từ các kiểu dữ liệu chuẩn.
b Khai báo biến mảng ở dạng phức tạp.
c Là một dãy các phần tử khác kiểu mà mỗi phần tử có một chỉ số khác nhau.
d Là dãy các phần tử bất kì mà mỗi phần tử có một chỉ số khác nhau.
Câu 12. Hãy cho biết dòng lệnh nào sau đây dùng để tạo ngẫu nhiên mảng gồm n số
nguyên trong phạm vi từ 0 đến 299
a For i:=1 to n do A[i]:= random(0) - random(299);
b For i:=1 to n do A[i]:= random(1) - random(300);
c For i:=1 to n do A[i]:= random(300) - random(300);


d For i:=1 to n do A[i]:= random(299) - random(299);
Câu 13. Cho A={30, 15, 9, 23, 5, 27, 14} . Hãy cho biết khai báo nào sau đây là đúng
nhất?
a Var A:array['a'..'g'] of byte;
b Var A:array[1..7] of char;
c Var A:array[1..7] of byte
d Var A:array[5..30] of byte;
Câu 14. Giả sử mảng A được khai báo như sau: Var A:array[-2..3] of integer; . Để tham
chiếu đến phần tử thứ 2 của mảng, ta viết
a A[6]
b A[2]
c A[-1]
d A(2)

2/ Một số câu hỏi tự giải:
Câu 1: Viết khai báo xâu cho chương trình sau:
Viết chương trình nhập từ bàn phím xâu kí tự S1 có độ dài không quá 100. hãy tạo xâu
S2 gồm tất cả các chữ số có trong S1.
Câu 2: Cho xâu S1 = ‘Hinh .1’ và xâu S2 = ‘2’. Thủ tục Insert(S2,S1,6) cho kết quả là?
Câu 3: Điền vào chỗ trống … trong câu sau:
“Xâu là dãy … … … … … … … … … trong bộ mã ASCII”
Câu 4: Giá trò của xâu S = ‘Em se la mua xuan cua me’ Hãy sử dụng thủ tục Delete
như thế nào để có
kết quả là ‘Em la mua xuan cua me’ ?
Câu 5: Hàm Pos(‘em’, ‘ngay mai em di bien nho ten em goi ve’) cho kết quả là?
Câu 6: Cho xâu S1=’Dat chuan quoc gia’ và xâu S2=’Duc Trong’
Hàm Copy(S1,1,Length(S2)); cho kết quả là?
Câu 7: Cho xâu S=’500 dong’. Hàm Length(S); cho kết quả là?
Câu 8: Cho xâu S=’Lop 11’. Hàm Upcase(S); cho kết quả là?
Câu 9: Viết cấu trúc khai báo biến kiểu xâu?
Câu 10: Cho xâu S=’TRAN VAN AN’. Để tham chiếu đến kí tự đầu tiên của tên ta
viết như thế nào?

3/ Một số dạng bài tự luận:
Câu 1: Tạo mảng B gồm n (n<=200) số nguyên, mỗi số có trò tuyệt đối không vược
quá 500. Hãy cho biết có bao nhiêu số hạng trong mảng B có giá trò bằng 0.
Program zero;
Uses Crt;
Const Nmax = 200;
Type ArrInt = Array[1..Nmax] of Integer;
Var i,n,dem: byte;
B:ArrInt;
Begin

Clrscr;
Write('Nhap so luong phan tu cua day so, N = ');
Readln(N);
For i:=1 to N do


Begin
Write('Phan tu thu ',i,' = ');
Readln(B[i]);
End;
dem:=0;
For i:=1 to N do
If B[i] = 0 then dem:=dem+1;
Write('Co ',dem,' so hang trong mang B co gia tri bang 0');
Readln
End.
Câu 2: Tạo mảng C gồm n (n<=100) số nguyên, mỗi số có trò tuyệt đối không vược
quá 300. Cho biết Chỉ số và giá trò nhỏ nhất trong dãy số đã cho (nếu có nhiều phần tử
nhỏ nhất thì đưa ra tất cả vò trí của chúng)
Program cau2;
Uses crt;
Const Nmax = 100;
Type ArrInt = array[1..Nmax] of Integer;
Var i,n,min: integer;
C:ArrInt;
Begin
Clrscr;
Write('Nhap so luong phan tu cua mang, N = ');
Readln(N);
For i:=1 to N do

Begin
Write('C[',i,']= ');
Readln(C[i]);
End;
For i:=1 to N do write(C[i]:5);
Writeln;
Min:=C[1];
For i:=2 to N do
If C[i] < Min then Min:=C[i];
Writeln('Ket qua la : ',Min);
For i:=1 to N do
If C[i] = Min then write(i:5);
Readln
End.
Câu 3: Viết chương trình Pascal nhập từ bàn phím dãy A gồm n (n<=100) số nguyên
dương A1, A2, … , AN. Hãy xuất ra những thông tin sau:
a/ Tổng các số lẻ trong dãy
b/ Số lượng và vò trí của các số chẵn trong dãy
Program kt_th1;


Uses crt;
Const Nmax = 100;
Type ArrW = Array[1..Nmax] of word;
Var A: ArrW;
i,n,d:byte; S:Word;
Begin
clrscr;
write('Nhap so luong phan tu mang : '); Readln(N);
For i:=1 to n do

Begin
write('Nhap phan tu thu ',i,' = ');
Readln(A[i]);
End;
S:=0;
Writeln('Vi tri cac so chan nhu sau:');
For i:=1 to n do
If A[i] mod 2 = 1 then S:=S+A[i]
Else
Begin
d:=d+1;
Write(i:5);
End;
Writeln;
Writeln('Co ',d,' so chan trong day');
Writeln('Tong cac so le trong day la : ',S);
Readln
End.
Câu 4: Viết chương trình Pascal nhập từ bàn phím dãy A gồm n (n<=100) số nguyên
A1, A2, … , AN. Hãy xuất ra những thông tin sau:
a/ Tổng các số âm trong dãy
b/ Số lượng và vò trí của các số dương trong dãy
Program kt_th2;
Uses crt;
Const Nmax = 100;
Type ArrInt = Array[1..Nmax] of Integer;
Var A: ArrInt;
i,n,d:byte; S:Integer;
Begin
clrscr;

write('Nhap so luong phan tu mang : '); Readln(N);
For i:=1 to n do
Begin
write('Nhap phan tu thu ',i,' = ');


Readln(A[i]);
End;
S:=0; d:=0;
Writeln('Vi tri cac so duong trong day la:');
For i:=1 to n do
If A[i] < 0 then S:=S+A[i]
Else
Begin
d:=d+1;
Write(i:5);
End;
Writeln;
Writeln('Co ',d,' so duong trong day');
Writeln('Tong cac so am trong day la : ',S);
Readln
End.
Câu 5: Sử dụng ngôn ngữ lập trình Pascal, viết chương trình nhập từ bàn phím số nguyên
dương N (0tin sau:
- Khi người sử dụng nhập N ngoài đoạn (0- Hãy tạo ra dãy B gồm các phần tử trong dãy A có chỉ số là lẻ và xuất kết quả ra
màn hình
Ví dụ:
Dãy A

2.5
43.7 43.6 8.9
23.4 45.2 22.9 56.1 34.6 3.8
I
1
2
3
4
5
6
7
8
9
10
Dãy B được tạo ra như sau:
B
2.5
43.6 23.4 22.9 34.6
J
1
2
3
4
5
Giải
Program mang_cau1;
Uses crt;
Var A, B : Array[1..100] of real;
i,j,n: Integer;
Begin

clrscr;
write('So phan tu cua day A(0For i:=1 to j do write(B[i]:10:1);
readln
End.
Câu 6: Sử dụng ngơn ngữ lập trình Pascal, viết chương trình nhập từ bàn phím số ngun
dương N (0không lớn hơn 1000. Hãy đưa ra những thơng tin sau:
- Khi người sử dụng nhập N ngồi đoạn (0

- Hãy tạo ra dãy B gồm các phần tử trong dãy A có giá trị chia hết cho 3 và 5 và
xuất kết quả ra màn hình
Ví dụ:
Dãy A
5
15
7
39
45
75
22
56
60
38
I
1
2
3
4
5
6
7
8
9
10
Dãy B được tạo ra như sau:
B
15
45
75

60
J
1
2
3
4
Giải
Program mang_cau2;
Uses crt;
Var A, B : Array[1..100] of Integer;
i,j,n: Integer;
Begin
clrscr;
write('So phan tu cua day A(0For i:=1 to j do write(B[i]:5);
readln
End.
4/ Một số bài tập tự giải:
Câu 1: Viết chương trình nhập từ bàn phím một xâu kí tự. Cho biết độ dài của xâu vừa
nhập?
Câu 2: Viết chương trình nhập từ bàn phím một xâu kí tự. Cho biết trong xâu vừa nhập có
bao nhiêu kí tự trắng ?
Câu 3: Viết chương trình nhập từ bàn phím một xâu kí tự. Xuất ra màn hình xâu kí tự đó
nhưng xóa đi tất cả các kí tự ’A’ hoặc ’a’.
Câu 4: Viết chương trình nhập từ bàn phím một xâu kí tự.
a/ Cho biết có bao nhiêu kí tự số
b/ Cho biết có bao nhiêu kí tự chữ
Câu 5: Viết chương trình nhập từ bàn phím một xâu kí tự và một kí tự ’k’. Cho biết có bao
nhiêu kí tự ’k’?
Câu 6: Viết chương trình nhập từ bàn phím một xâu kí tự. Cho biết trong xâu có bao nhiêu
cụm kí tự ’anh’?
Câu 7/ Cho xâu s:=’Truong THPT Duc Trong’;
Cho biết kết quả của hàm và thủ tục sau:
+ Delete(s, 5, 4);
+ Cho s1:=’Duc’; Insert(s1, s, 4);
+ Length(s)
+ Copy(s, 3, 8)
+ Cho s1:=’Duc’; vt:=Pos (s1,s)
+ Upcase(S[5]);

Câu 8/ Viết chương trình cho hàm copy và thủ tục Insert Sự khác nhau giữa hàm và thủ
tục
5/ Sách giáo khoa
-Bài 1 đến bài 5 SGK trang 71 – 72
-Bài 1; 2; 3 SGK trang 73
-Bài 5; 6 SGK trang 79
-Bài 10 SGK trang 80