ĐỀ CƯƠNG ÔN TẬP CHƯƠNG IV MÔN TIN HỌC LỚP 11 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
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
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. 1 C. 10
B. 'Duc Trong' D. 'Duc Trong Dat chuan quoc gia'
D. 'Tin hoc rat kho'
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 B. A[3] A. A[2] D. không thể tham chiếu được vì kiểu chỉ số sai C. A[0] 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; D. tất cả đều sai A. 100 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' C. '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' 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: Caâu 1: Vieát khai baùo xaâu cho chöông trình sau: Vieát chöông trình nhaäp töø baøn phím xaâu kí töï S1 coù ñoä daøi khoâng quaù 100. haõy taïo xaâu S2 goàm taát caû caùc chöõ soá coù trong S1. Caâu 2: Cho xaâu S1 = ‘Hinh .1’ vaø xaâu S2 = ‘2’. Thuû tuïc Insert(S2,S1,6) cho keát quaû laø? Caâu 3: Ñieàn vaøo choã troáng … trong caâu sau: “Xaâu laø daõy … … … … … … … … … trong boä maõ ASCII” Caâu 4: Giaù trò cuûa xaâu S = ‘Em se la mua xuan cua me’ Haõy söû duïng thuû tuïc Delete nhö theá naøo ñeå coù keát quaû laø ‘Em la mua xuan cua me’ ? Caâu 5: Haøm Pos(‘em’, ‘ngay mai em di bien nho ten em goi ve’) cho keát quảlaø? Caâu 6: Cho xaâu S1=’Dat chuan quoc gia’ vaø xaâu S2=’Duc Trong’ Haøm Copy(S1,1,Length(S2)); cho keát quaû laø? Caâu 7: Cho xaâu S=’500 dong’. Haøm Length(S); cho keát quaû laø? Caâu 8: Cho xaâu S=’Lop 11’. Haøm Upcase(S); cho keát quaû laø? Caâu 9: Vieát caáu truùc khai baùo bieán kieåu xaâu? Caâu 10: Cho xaâu S=’TRAN VAN AN’. Ñeå tham chieáu ñeán kí töï ñaàu tieân cuûa teân ta vieát nhö theá naøo? 3/ Một số dạng bài tự luận: Câu 1: Taïo maûng B goàm n (n<=200) soá nguyeân, moãi soá coù trò tuyeät ñoái khoâng vöôïc quaù 500. Haõy cho bieát coù bao nhieâu soá haïng trong maûng B coù giaù trò baè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: Taïo maûng C goàm n (n<=100) soá nguyeân, moãi soá coù trò tuyeät ñoái khoâng vöôïc quaù 300. Cho bieát Chæ soá vaø giaù trò nhoû nhaát trong daõy soá ñaõ cho (neáu coù nhieàu phaàn töû nhoû nhaát thì ñöa ra taát caû vò trí cuûa chuù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: Vieát chöông trình Pascal nhaäp töø baøn phím daõy A goàm n (n<=100) soá nguyeân döông A1, A2, … , AN. Haõy xuaát ra nhöõng thoâng tin sau:
a/ Toång caùc soá leû trong daõy b/ Soá löôïng vaø vò trí cuûa caùc soá chaün trong daõ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: Vieát chöông trình Pascal nhaäp töø baøn phím daõy A goàm n (n<=100) soá nguyeân A1, A2, … , AN. Haõy xuaát ra nhöõng thoâng tin sau: a/ Toång caùc soá aâm trong daõy b/ Soá löôïng vaø vò trí cuûa caùc soá döông trong daõ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 (0 - Khi người sử dụng nhập N ngoài đoạn (0 lại - 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 23.4 45.2 22.9 56.1 34.6 3.8
10
5 I 9 8 7 6 4 1 43.7 43.6 8.9
3
2 4 5 3 2.5
1 43.6 23.4 22.9 34.6
2 Ví dụ:
Dãy A 2.5
Dãy B được tạo ra như sau:
B
J
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(0 - Khi người sử dụng nhập N ngoài đoạn (0 lại - 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 75
6 22
7 56
8 60
9 38
10 I 15
2 7
3 39
4 45
5 Ví dụ:
Dãy A 5
1
Dãy B được tạo ra như sau:
B
J 45
2 75
3 15
1 60
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(0 + 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
