W www hoc247 net F www facebook com/hoc247 net Y youtube com/c/hoc247tvc Trang | 1 Vững vàng nền tảng, Khai sáng tương lai Sở GD ĐT Tỉnh Đồng Nai Kiểm tra 45 '''' HKII Năm học 2018 2019 Trường THPT Thống[.]
Vững vàng tảng, Khai sáng tương lai Kiểm tra 45' - HKII - Năm học: 2018- 2019 Môn: Tin- Lớp: 11 Thời gian: 45' ( khơng tính thời gian giao đề) Họ tên học sinh: Lớp: Sở GD-ĐT Tỉnh Đồng Nai Trường THPT Thống Nhất Câu Cho khai báo Var A: Array[1 4] of Integer ; i : Integer ; sau thực lệnh For i:=1 to A[i]:= i; For i:=1 to A[i]:= A[i]+1; mảng A có gía trị : A A[1]=2, A[2]=3, A[3]=4, A[4]=5 B A[1]=1, A[2]=2, A[3]=3, A[4]=4 C A[1]=1, A[2]=1, A[3]=1, A[4]=1 D A[1]=0, A[2]=1, A[3]=2, A[4]=3 Đoạn chương trình sau thực cơng việc gì? Câu Begin c:=a; a:=b; b:=c; End; A Hoán đổi giá trị hai biến b c cho B Hoán đổi giá trị hai biến a c cho C Gán giá trị biến cho b D Hoán đổi giá trị hai biến a b cho Câu Trong NNLT Pascal,chọn nhất, để nhập liệu cho mảng chiều A ta viết A write("a[",i,"]=");readln(a[i]); B write('a[' i ']=');readln(a[i]); C write('a[',i,']=');readln(a[i]); D write('a[i]=');readln(a[i]); Câu Chọn phát biểu cho biến d đoạn chương trình sau: d:=0; For i:=1 to N if a[i] mod =0 then d:=d+1; A Đếm phần tử bội số mảng a B Tổng phần tử bội số mảng a C Đếm phần tử chẳn D Tổng phần tử lẻ Câu Chương trình sau làm việc gì? Var A: array [1 50] of byte; i: integer; Begin For i:= to 10 write(A[i],' '); Readln End A Nhập phần tử cho mảng A B xuat phần tử mảng A hình Tính tổng phần tử mảng A C D Đếm số phần tử mảng A Câu Chọn đáp án nhất,trong NNLT Pascal A Các phần tử mảng chiều thứ tự theo số; B Các phần tử mảng chiều không thứ tự; C Các phần tử mảng chiều thứ tự giá trị tăng dần; D Các phần tử mảng chiều thứ tự giá trị giảm dần; Câu Điền vào ô trống.Tổng số chẵn i A[i 26 10 ] T 7 33 A 26 B C 33 D 34 W: www.hoc247.net F: www.facebook.com/hoc247.net Y: youtube.com/c/hoc247tvc Trang | Vững vàng tảng, Khai sáng tương lai Câu Chương trình sau trả giá trị bao nhiêu? Var y, x, i:byte; Begin X:=20; i:=1; y = 0; While i < x Begin Y:=x+i; i:=i+5; end; Writeln('gia tri cua y:= ',y); End A Y = 46 B Y = 26 C Y = 54 D Y = 36 Câu Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực việc việc sau: S:=0; For i:= to n S:=S+ A[i]; A Không thực việc B.Tính tổng phần tử mảng chiều; C In hình mảng A; D Đếm số phần tử mảng A; Điền vào ô trống.Tổng số lẻ Câu 10 i S 1 9 A.9 B C D Câu 11 Khai báo sau cho biết: Const Max=200; Type Ar = array[1 Max] of byte; Var T: Ar; A T mảng chứa tối đa 200 số thực B T mảng chứa số nguyên có giá trị từ đến 200; C T mảng chứa tối đa 200 số nguyên D T mảng Câu 12 Cho biết đoạn chương trình sau thực tính tổng nào? S := 1; FOR i := TO 10 DO S := S + 1/i; 1 10 1 C Tính tổng: S 10 A Tính tổng: S B Tính tổng: S 10 1 D Tính toång: S 10 Câu 13 Trong NNLT Pascal, giả sử mảng A có giá trị sau: A[1], A[2],…A[5] có giá trị 2, -3, 5, 7, -1 Tìm câu lệnh để in giá trị tất phần tử mảng hình: A for i:=1 to write(A[i]); B for i:=1 to write(A[1]); C for i:=1 to write(A[5]); D for i:=1 to write(A[2]); Câu 14 Cho đoạn chương trình sau: S:=0; For i:=1 To 10 Do If i mod 20 then S:=S+i*i; A Đoạn chương trình dùng tính tổng số lẻ từ đến 10 B Đoạn chương trình dùng tính tổng bình phương số lẻ từ đến 10 C Đoạn chương trình dùng tính tổng bình phương số từ đến 10 D Đoạn chương trình dùng tính tổng số chẵn từ đến 10 Câu 15 Trong khai báo sau cịn bỏ trống chỗ, chưa xác định kiểu liệu biến Max : A: Array['a' 'd'] of Real ; Var W: www.hoc247.net F: www.facebook.com/hoc247.net Y: youtube.com/c/hoc247tvc Trang | Vững vàng tảng, Khai sáng tương lai Ch : Char ; Max : ; Muốn biến Max lưu gía trị lớn mảng A cần khai báo kiểu liệu cho biến Max A Real B Char C String D Integer Câu 16 Chọn phát biểu cho biến t đoạn chương trình sau: t:=0; For i:=1 to N if (a[i] mod 2=0) and (a[i]>25) then t:=t+1; A Tổng phần tử có giá trị chẵn mảng a B Đếm phần tử lớn 25 mảng a C Đếm phần tử chẵn lớn 25 mảng a D Tổng phần tử chẵn lớn 25 mảng a Câu 17 Cho Đoạn chương trình: M:=A[1]; csm:=1; For i:=2 to n If A[i]5) and (x5 and x5) and (x5) and (x