Tạo kiểu dữ liệu mới tên Mang là mảng 2 chiều gồm 5 dòng và 3 cột, các phần tử trong mảng kiểu số nguyên.. Chọn khai báo xâu hợp lệ [].[r]
(1)[TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền Chương 4: Kiểu liệu có cấu trúc – Chương 5: Dữ liệu kiểu tệp ID Questions Image Các khẳng định nào không đúng mảng chiều? () Mảng có số phần tử đếm () Các phần tử mảng có thể khác kiểu () Các phần tử mảng phân biệt số () Mảng có tên là tên mảng Yếu tố nào sau đây không thật cần thiết xây dựng mảng chiều () Tên mảng, tên kiểu mảng () Số lượng phần tử tối đa () Số byte bị chiếm dụng nhớ khai báo mảng () Kiểu liệu phần tử Khai báo kiểu mảng chiều nào sau đây không hợp lệ? () Type m=Array[-100 100] or real; () Type m=Array[1.5 10.5] of real; () Type m=Array[0 100] of Integer; () Type m=Array['a' 'z'] of boolean; Chương trình có sử dụng biến mảng thường chứa câu lệnh lặp loại nào ? (gõ chữ thường) _ type ArrayInt=Array[1 20] of integer; ArrayInt là _ () Kiểu mảng () Mảng () Số nguyên () Số nguyên >=1 và <=20 Khai báo mảng sau đây đã sẵn sàng sử dụng chưa ? const n=100; type M=Array[1 n] of real; 1|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (2) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 10 () Được () Chưa Để lưu trữ và xử lý nhiệt độ 31 ngày tháng (tính nhiệt độ trung bình, đếm nhiệt độ cao nhiệt độ trung bình), phải khai báo biến theo giải pháp nào là tối ưu ? () Tạo mảng thực gồm 31 phần tử () Tạo 31 số thực rời rạc () Chỉ cần số thực là đủ () Tạo 32 số thực rời rạc Khai báo mảng nào hợp lệ [] var M: Array[1 10] of Integer; [] var N: Array(1 10) of Integer; [] var P: Array[-10 10] of Integer; [] var Q: Array(1 10) of Integer; Chọn các khẳng định đúng các khẳng định sau đây [] Xâu là mảng chiều mà phần tử là ký tự bảng mã Ascii [] Xâu có độ dài tối đa là 65.535 ký tự [] Xâu có đặc tính mà mảng chiều không có [] Xâu có đặc tính mảng chiều Khai báo mảng nào sau đây hợp lệ ? [] const Max=366; type ND=Array[1 Max] of real; var ND: ND; [] const Max=366; var ND: Array[1 Max] of real; [] type tND=Array[1 366] of real; var ND: tND; [] 11 var ND: Array[1 366] of real; Muốn truy cập đến phần tử thứ mảng A ta phải theo cú pháp: () A[5] () A5 () A(5) 2|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (3) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền () 12 A{5} Cho khai báo mảng: var P:Array[1 50] of word; Tham chiếu đến phần tử mảng nào sau đây là không hợp lệ? 13 () P[0] () P[1] () P[20] () P[50] Nhóm lệnh nào dùng để nhập giá trị cho mảng A const n=500; var A:Array[1 n] of real; 14 () for i:=1 to n readln(A[i]); () for i:=1 to n readln(A[1]); () for i:=1 to n writeln(A[i]); () for i:=1 to n writeln(i); Nhóm lệnh nào dùng để xuất giá trị mảng A màn hình const n=500; var A:Array[1 n] of real; 15 () for i:=1 to n readln(A[i]); () for i:=1 to n readln(A[1]); () for i:=1 to n writeln(A[i]); () for i:=1 to n writeln(i); Muốn khai báo mảng M gồm 100 số nguyên (âm và dương) Hãy hoàn chỉnh khai báo sau đây: var M:Array[1 100] of ; _ 16 Nhóm lệnh nào yêu cầu người dùng nhập giá trị cho mảng theo hình thức: A[1]= A[2]= A[10]= () for i:=1 to n begin 3|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (4) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền write('A[',i,']='); readln(A[i]); end; () for i:=1 to n begin write('A[i]='); readln(A[i]); end; () 17 18 for i:=1 to n readln('A[',i,']=',A[i]); Nhóm lệnh nào in giá trị các phần tử mảng trên cùng dòng [] for i:=1 to n write(' ',A[i]); [] for i:=n downto write(A[i],' '); [] for i:=n downto writeln(A[i],' '); [] for i:=1 to n writeln(' ',A[i]); Đoạn chương trình sau đây làm gì ? for i:=1 to n if i mod = then write(A[i],' '); 19 () In màn hình các phần tử chẳn mảng A () In màn hình các phần tử có số chẳn mảng A () In tất các phần tử mảng A Khai báo mảng sau đây đã sẵn sàng sử dụng chưa ? const n=100; var M:Array[1 n] of real; 20 () Được () Chưa Sắp xếp các lệnh (nhóm lệnh) để thành chương trình đúng a type MyArray=Array[1 n] of real; b var A:MyArray; i: byte; c end d const n=200; 4|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (5) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 21 e for i:=1 to n readln(A[i]); f begin Đoạn chương trình sau đây làm gì ? const n=100; var A:array[1 n] of byte; c, i: byte; begin c:=0; for i:=1 to n if A[i] mod = then inc(c); writeln(c); end 22 () Kiểm tra xem mảng A có số chẳn hay không () Đếm xem mảng A có bao nhiêu số chẳn () In màn hình các số chẳn () Đếm xem mảng A có bao nhiêu số Đoạn chương trình sau đây làm gì ? const n=100; var A:array[1 n] of byte; c, i: byte; begin c:=0; for i:=1 to n if A[i] = then inc(c); writeln(c); end () Kiểm tra xem mảng A có số chẳn hay không () Đếm xem mảng A có bao nhiêu số chẳn () In màn hình các số chẳn () Đếm xem mảng A có bao nhiêu số 5|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (6) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 23 Đoạn chương trình sau đây làm gì ? const n=100; var A:array[1 n] of byte; c, i: byte; begin c:=0; for i:=1 to n if A[i] mod <> then c:=c+A[i]; writeln(c); end 24 25 () Kiểm tra xem mảng A có số chẳn hay không () Đếm xem mảng A có bao nhiêu số chẳn () Tính tổng các số lẻ () Đếm xem mảng A có bao nhiêu số Muốn tham chiếu đến phần tử dòng cột mảng chiều M () M(3,5) () M[3],[5] () M[3.5] () M[3,5] Đoạn chương trình sau đúng hay sai ? var A:Array[1 100] of byte; A[1]:=2.5; 26 () Đúng () Sai Đoạn chương trình sau đúng hay sai ? var A:Array[byte] of real; A[1]:=2.5; () Đúng 6|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (7) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền () 27 28 29 Sai Sắp xếp lại chương trình sau cho đúng a const n=100; b Var M,N: Mang; c {Thân chương trình} d program chuong_trinh_mau; e type Mang=Array[1 n] of real; f Begin g end Sắp xếp lại cho đúng ý nghĩa các khai báo sau đây: Choice Match type Mang=Array[1 10] of byte; Khai báo biến Mang là mảng chiều gồm 10 phần tử là số nguyên var Mang: Array[1 5,1 3] of byte; Khai báo biến Mang là mảng chiều gồm dòng và cột, các phần tử mảng là số nguyên type Mang=Array[1 5,1 3] of byte; Tạo kiểu liệu tên Mang là mảng chiều gồm 10 phần tử là các số nguyên var Mang: Array[1 10] of byte; Tạo kiểu liệu tên Mang là mảng chiều gồm dòng và cột, các phần tử mảng kiểu số nguyên Chọn khai báo xâu hợp lệ [] var S: string; [] var S: string[200]; [] type Xau=string[20]; var S: Xau; [] Type Xau=string[300]; var S:Xau; 30 Khi muốn tham chiếu đến phần tử nào đó mảng ta cần phải có tối thiểu các thông tin nào ? [] Tên mảng [] Tên kiểu mảng 7|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (8) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 31 [] Chỉ số phần tử [] Giá trị phần tử Chọn phép gán hợp lệ với xâu S sau đây: type Xau=string[10]; var s:Xau; 32 [] s:=' '; [] s:='Ngo' + ' ' + 'Quyen'; [] s:='Happy New Year'; [] s:="Chuc Mung Nam Moi"; Cho biết kết phép so sánh sau đây: 'MAY VI TINH' > 'may vi tinh' 33 () True () False Cho biết kết phép so sánh sau: 'ABBA' = 'abba' 34 () True () False Cho biết kết phép so sánh sau: 'a' > 'ABC' 35 () True () False Hãy cho biết giá trị biến L = ? s:='Ngo'; s:=s+'Quyen'; L:=length(s); _ 36 Hãy cho biết giá trị biến L = ? s:='Ngo'; s:=s+' Quyen'; L:=length(s); _ 37 Hãy cho biết giá trị biến L = ? s:='Ngo '; s:=s+' Quyen'; 8|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (9) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền L:=length(s); _ 38 Giá trị xâu s = ? s:='Ngo Quyen'; delete(s,4,5); writeln(s); _ 39 Cho biết giá trị xâu s = ? s:='Xuan Canh Dan'; delete(s,1,5); writeln(s); _ 40 Cho biết giá trị L = ? s:='Xuan Canh Dan'; delete(s,1,5); L:=length(s); _ 41 Đoạn chương trình sau đây làm gì ? s:=''; s1:='Van Su Nhu Y'; insert(s1,s,1); 42 () Chèn xâu s1 vào xâu s () Chèn xâu s1 vào xâu s vị trí thứ () Chèn xâu s vào s1 vị trí thứ () Tìm xâu s có s1 hay không Đoạn chương trình sau đây làm gì ? var k: byte; s, s1: string; write('k=');readln(k); write('s1=');readln(s1); insert(s1,s,k); 9|Page Gv: Nguyễn Hồ Thiên Đăng Lop11.com (10) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 43 () Chèn s1 vào s vị trí k () Chèn k vào s1 () Chèn s vào s vị trí k () Chèn k vào s1 vị trí thứ Hãy cho biết giá trị biến x = ? x:=copy('An Khang Thinh Vuong',1,8); _ 44 Hãy cho biết giá trị biến y = ? x:='An Khang Thinh Vuong' y:=copy(x,10,5); _ 45 Hãy tìm các lệnh sai các lệnh sau đây: [] var k: byte; k:=length("2010"); [] var s,s1: string[20]; s1:='Tron Doi Ben Em'; s:=copy(s1,1,length(s1)); [] var s: string; delete(s,257,10); [] s1:='Ly Hai'; s2:='Minh Ha'; s1:=s1 + ' ' + s2; [] s1:='Ly Hai'; s2:='Minh Ha'; s1:=s1 & s2; 46 Hãy cho biết giá trị biến p=? var p: byte; s1:='Xuan Canh Dan'; s2:='Canh Dan'; p:=pos(s2,s1); 10 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (11) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền _ 47 Hãy cho biết kết biến y=? var x, y: string; L, i: byte; begin x:='Viet Nam'; L:=length(x); y:=''; for i:=L downto y:=y+x[i]; writeln(y); end _ 48 Chương trình sau đây làm gì ? Hãy chọn câu trả lời chính xác type xau30=string[30]; var x: xau; p: byte; begin write('x =');readln(x); p:=pos(' ',x); if p>0 then delete(x,p,1); writeln(x); end 49 () Xoá khoảng trống đầu tiên xâu x () Tìm khoảng trống đầu tiên xâu x () Tìm khoảng trống đầu tiên xâu x, có thì xoá () Tính chiều dài xâu x Chương trình sau đây làm gì ? program RSP; var s1, s2: string; L, i: byte; begin write('s1=');readln(s1); L:=length(s1); s2:=''; 11 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (12) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền for i:=1 to L if s1[i]<>' ' then s2:=s2 + s1[i]; writeln(s2); end 50 [] Loại bỏ các khoảng trống xâu [] Sao chép ký tự xâu s1 qua xâu s2 bỏ qua các khoảng trống [] Tạo xâu s2 là xâu đảo ngược s1 [] Tạo xâu s1 và s2 giống hệt Sắp xếp lại để hoàn chỉnh chương trình kiểm tra xâu có đối xứng hay không ? a for i:=L downto s2:=s2 + s1[i]; b write('s1=');readln(s1); c begin d s2:=''; L:=length(s1); e var s1, s2: string; L, i: byte; 51 f if s1=s2 then writeln('Xâu đối xứng') else writeln('Xâu không đối xứng'); g end Lệnh nào sau đây dùng để chép nội dung từ xâu B qua xâu A [] A:=copy(B,1,length(B)); [] B:=A; [] L:=length(B); A:=''; for i:=1 to L A:=A + B[i]; [] L:=length(B); for i:=1 to L A[i]:=B[i]; 52 Đoạn chương trình sau đây đúng hay sai: var X: Array[1 255] of char; Y: string; i: byte; Begin 12 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (13) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền Y:='Computer'; for i:=1 to lenght(Y); X:= X + Y[i]; writeln(X); end 53 () True () False Hãy chọn khai báo đúng [] type HOCSINH=record hoten: string[30]; dtb: real; end; [] var HOCSINH=record hoten:string[30]; dtb: real; end; [] type HOCSINH:record hoten: string[30]; dtb: real; end; [] type PHANSO=record tu_so, mau_so: real; end; 54 55 Chọn khẳng định đúng [] Sau dùng từ khoá Type để định nghĩa kiểu liệu RECORD ta có kiểu liệu [] Sau dùng từ khoá Type để định nghĩa kiểu liệu RECORD ta có biến có kiểu liệu khai báo [] Kiểu liệu kiểu RECORD có thể tạo từ kiểu liệu sở [] Kiểu liệu kiểu RECORD có thể tạo từ kiểu RECORD đã khai báo trước đó Chọn các khai báo đúng [] type DIEM=record x, y: real; end; 13 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (14) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền type TAMGIAC=record A, B, C: DIEM; end; [] type PHANSO=record tu_so, mau_so: real; end; var PS1, PS2: PHAN_SO; [] type TAMTHUC=record A, B, C: real; end; Var T: TAMTHUC; 56 Cho khai báo sau: type PHANSO=record tu_so, mau_so: real; end; var P: PHANSO; Muốn tham chiếu đến tu_so phân số P ta dùng lệnh: _ 57 Cho khai báo sau đây: type DIEM=record x, y: real; end; Var A, B: DIEM; Tham chiếu nào sau đây đúng ? 58 () A.x () A[x] () B[y] () A_x Cho khai báo sau: type DIEM=record x, y: real; end; type TAMGIAC=record A, B, C: DIEM; end; Var T1, T2: TAMGIAC; 14 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (15) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền M: DIEM; Chọn lệnh (nhóm lệnh) sai: 59 [] T1.X:=2.5; [] T1.A.X:=2.5; [] T1.X:=M; [] T1:=T2; [] T2:=M; [] T2.A:=M; Cho khai báo sau đây: type PHANSO=record tu_so, mau_so: real; end; var P, P1, P2: PHANSO; Chọn lệnh (nhóm lệnh sai) () if P1=P2 then writeln('P1 P2') else writeln('P1 khác P2'); () if (P1.tu_so=P2.tu_so) and (P1.mau_so=P2.mau_so) then writeln('P1 P2') else writeln('P1 khác P2'); () if P1.mau_so=P2.mau_so then begin P.mau_so:=P1.mau_so; P.tu_so:=P1.tu_so+P2.tu_so; writeln(P.tu_so,'/',P.mau_so); end else writeln('Phân số không cùng mẫu'); 60 Cho khai báo record sau đây: type NhanVien=record ma_nhan_vien: string[5]; ho_ten: string[30]; CMND:string[10]; he_so_luong: real; 15 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (16) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền luong_co_ban: real; end; Hãy chọn khai báo (lệnh) đúng [] Var Danh_Sach_Nhan_Vien: Array[1 50] of NHANVIEN; [] Type DSNV=Array[1 100] of NHANVIEN; var Nhan_Vien_CTY: DSNV; [] Var NV: NHANVIEN; NV.ma_nhan_vien:='PKD006'; [] Var Danh_sach: Array[1 20] of NHANVIEN; Danh_sach.ho_ten:='Dam Vinh Hung'; 61 Hãy xem định nghĩa sau đây đúng hay sai type PHANSO=record; tu_so, mau_so: integer; end; 62 63 64 () Đúng () Sai Trình tự làm việc với liệu kiểu tập tin (tệp) Pascal là: a Đóng tập tin lại b Gán đường dẫn và tên tập tin vào biến tập tin c Khai báo biến tập tin d Đọc ghi liệu vào tập tin e Mở tập tin Muốn mở tập tin để ghi liệu vào ta dùng thủ tục: () rewrite(f) () write(f) () writeln(f) () reset(f) Muốn mở tập tin để đọc liệu, ta dùng thủ tục nào sau đây () Reset(f) () ReWrite(f) () Readln(f) () Read(f) 16 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (17) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 65 66 67 Khi trỏ cuối tập tin f, hàm eof(f) trả giá trị nào ? () True () False Sau đây là số thủ tục làm việc với liệu kiểu tệp Pascal Em hãy cho biết ý nghĩa chúng Choice Match Reset(f) Đóng tập tin Close(f) Ghi giá trị biến vào tập tin Assign(f,'ketqua.txt') Khai báo biến F kiểu tệp Read(f,c) Readln(f,s1) Mở biến tập tin f để đọc Write(f,s1) Writeln(f,s2) Gán biến f trỏ vào tập tin ketqua.txt trên đĩa hành ReWrite(f) Đọc liệu từ tập tin vào biến Var F: Text; Mở biến tập tin f để ghi Cho đoạn chương trình sau đây, hãy xem đúng cú pháp hay không ? var F: text; begin f:='c:\dulieu.txt'; end 68 () True () False Cho đoạn chương trình sau đây, hãy xem đúng cú pháp hay không ? var F: text; begin assign(f,'c:\dulieu.txt'); end 69 () True () False Muốn ghi dòng văn có nội dung là: Pascal vào tập tin f 17 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (18) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền em có thể dùng lệnh (nhóm lệnh) nào ? [] writeln(f,'Pascal'); [] s:='Pascal'; write(f,s); [] Writeln('Pascal',f); [] s:='Pascal'; Writeln(s); 70 Nhóm lệnh sau đây làm gì ? var f: text; readln(f,s); 71 72 73 74 () Đọc liệu tập tin f () Đọc dòng liệu tập tin f và đưa nội dung vào biến s () Đọc liệu cho biến f và s từ bàn phím () Đọc liệu từ bàn phím sau đó ghi vào tập tin f Khi lập trình Pascal, muốn lưu trữ liệu lâu dài, ta nên chọn loại thiết bị lưu trữ nào ? () Bộ nhớ ngoài () Bộ nhớ () Không câu nào đúng Xét theo cách tổ chức liệu, tập tin có thể phân thành loại ? () Tập tin văn bản, tập tin có cấu trúc () Tập tin truy cập tuần tự, tập tin truy cập trực tiếp () Tập tin nhị phân, tập tin văn () Tất đúng Xét theo cách thức truy cập, tập tin có thể phân thành loại ? () Tập tin văn bản, tập tin có cấu trúc () Tập tin truy cập tuần tự, tập tin truy cập trực tiếp () Tập tin nhị phân, tập tin văn () Tất đúng Thao tác trên tập tin là: 18 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (19) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 75 76 77 78 () Đọc, ghi liệu () Tính kích thước tập tin () Xoá tập tin () Đổi tên tập tin Đặc điểm nào sau đây không đúng với liệu kiểu tập tin () Lưu trữ lượng lớn thông tin () Lưu trữ dài lâu và không bị tắt máy tính () Được lưu trữ nhớ ngoài () Được lưu trữ nhớ Trong các khai báo tập tin sau đây, khai báo nào sai: [] Type F: File of char; [] Var F: Text; [] Var F: File of Integer; [] Type F=file; Để mở tập tin và ghi nội dung vào ta chọn lệnh: () Reset(f); () Rewrite(f); () Writer(f); () New(f); Để tạo tập tin lưu trữ thông tin học sinh theo khai báo sau đây, em hãy chọn khai báo tập tin đúng: type HOCSINH=record hoten:string[30]; gioitinh: string[3]; end; 79 () Var F: Text; () Var F: File of HOCSINH; () Var HOCSINH: Text; () Var hoten, gioitinh: File; Hàm EOLN(f) trả false trỏ nằm vị trí nào tập tin ? () Khi cuối dòng () Khi cuối tập tin 19 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (20) [TIN HỌC 11 – CHƯƠNG & 5] Trường THPT Ngô Quyền 80 () Khi chưa đến cuối dòng () Không câu nào đúng Cho biến tập tin là f, đường dẫn tập tin là c:\vanban.txt Em viết thủ tục (bằng chữ thường) gán đường tập tin vào biến f _ 81 Hãy chọn lệnh sai các lệnh ghi liệu vào tập tin sau đây () writeln(f,'Fast Track'); () s:='Fast Track'; writeln(f,s); () type hocsinh=record end; var hs: hocsinh; writeln(f,hs); () type diem=record end; var A, B: diem; write(f,A,B); 82 83 84 Hãy chọn khẳng định sai () ReWrite(f): Mở tập tin để ghi () Assign(f,'c:\vanban.txt'); () Close(f): Đóng tập tin () Reset(f): Xoá tập tin Để định nghĩa kiểu RECORD mới, ta cần phải có yếu tố nào ? [] Tên kiểu [] Tên (các) thuộc tính [] Kiểu liệu (từng) thuộc tính [] Tên biến kiểu record Hãy xem đoạn chương trình sau đây làm gì ? type PHANSO=record ts, ms: integer; 20 | P a g e Gv: Nguyễn Hồ Thiên Đăng Lop11.com (21)