• Lớp 11
  • Tin Học
  • Mới nhất

16. Cho A là mảng một chiều có 10 phần tử, có giá trị lần lượt là: 20 7 12 9 26 8 13 20 9 5 Khi tham chiếu tới phần tử thứ 7 của mảng sẽ được giá trị là: (1 Điểm) A. 7 B. 20 C. 13 D. 8 17. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 9 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: for i := 1 to 10 do write(A[i]:6); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 7 9 13 9 5 B. 5 9 20 13 8 26 9 12 7 20 C. 20 7 12 9 26 8 13 20 9 5 D. 20 12 26 8 20 18. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 10 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: t := 0; for i := 1 to 10 do if A[i] >= 10 then t := t+1; writeln(t); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 6 B. 101 C. 5 D. 10 19. Đoạn chương trình sau thực hiện cho ra kết quả gì? Var A : Array[1..3] of byte; i : byte; Begin For i := 1 to 3 do A[i] :=i; For I := 1 to 3 do If A[i] mod 2 = 0 then Write(A[i]:4); End. (1 Điểm) A. 1 2 3 B. 2 C. 3 D. 1 20. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 10 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: t := 0; for i := 1 to 10 do if A[i] <= 10 then t := t+A[i]; writeln(t); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 5 B. 7 10 8 9 5 C. 39 D. 7 8 9 5 22. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? t := 0; for i := 1 to n do if A[i] mod 2 <> 0 then t := t + A[i]; (1 Điểm) A. Tính số lượng các phần tử có giá trị lẻ B. Xuất ra màn hình tổng giá trị các phần tử của mảng C. Tính tổng giá trị các phần tử có giá trị lẻ D. Xuất ra màn hình các phần tử có giá trị lẻ 23. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? s := A[1]; for i := 2 to n do if s >= A[i] then s := A[i]; write(s); (1 Điểm) A. Xuất ra màn hình giá trị lớn nhất của mảng B. Xuất ra màn hình giá trị nhỏ nhất của mảng C. Xuất ra màn hình giá trị các phần tử của mảng D. Xuất ra màn hình mảng sau khi đã sắp xếp giá trị các phần tử tăng dần 24. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? g := 1; for i := 2 to n do if A[g] <= A[i] then g := i; write(g); (1 Điểm) A. Tìm chỉ số của phần tử có giá trị nhỏ nhất của mảng B. Tìm phần tử có giá trị lớn nhất của mảng C. Tìm chỉ số của phần tử có giá trị lớn nhất của mảng D. Tìm phần tử có giá trị nhỏ nhất của mảng 25. Cho A là mảng một chiều gồm 10 phần tử, giá trị các phần tử lần lượt là: 20 7 12 10 16 7 13 20 9 17 Sau khi thực hiện đoạn chương trình dưới đây: t := 1; for i := 1 to 10 do if A[t] < A[i] then t := i; write(t); Thì kết quả hiện trên màn hình là gì? (1 Điểm) A. 8 B. 2 C. 1 D. 6 27. Cho câu lệnh: FOR i:=1 TO 100 DO A[i]:= Random(50)-Random(50); Hãy cho biết giá trị các phần tử của mảng A trong câu lệnh trên nhận giá trị nguyên trong đoạn nào? (1 Điểm) A. Từ -49 đến 49 B. Từ -49 đến 50 C. Từ -50 đến 49 D. Từ -50 đến 50

2 đáp án
101 lượt xem

16. Cho A là mảng một chiều có 10 phần tử, có giá trị lần lượt là: 20 7 12 9 26 8 13 20 9 5 Khi tham chiếu tới phần tử thứ 7 của mảng sẽ được giá trị là: (1 Điểm) A. 7 B. 20 C. 13 D. 8 17. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 9 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: for i := 1 to 10 do write(A[i]:6); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 7 9 13 9 5 B. 5 9 20 13 8 26 9 12 7 20 C. 20 7 12 9 26 8 13 20 9 5 D. 20 12 26 8 20 18. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 10 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: t := 0; for i := 1 to 10 do if A[i] >= 10 then t := t+1; writeln(t); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 6 B. 101 C. 5 D. 10 19. Đoạn chương trình sau thực hiện cho ra kết quả gì? Var A : Array[1..3] of byte; i : byte; Begin For i := 1 to 3 do A[i] :=i; For I := 1 to 3 do If A[i] mod 2 = 0 then Write(A[i]:4); End. (1 Điểm) A. 1 2 3 B. 2 C. 3 D. 1 20. Cho A là mảng một chiều gồm 10 phần tử, có giá trị lần lượt là: 20 7 12 10 26 8 13 20 9 5 Khi thực hiện đoạn chương trình sau: t := 0; for i := 1 to 10 do if A[i] <= 10 then t := t+A[i]; writeln(t); thì kết quả trên màn hình sẽ là gì? (1 Điểm) A. 5 B. 7 10 8 9 5 C. 39 D. 7 8 9 5 22. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? t := 0; for i := 1 to n do if A[i] mod 2 <> 0 then t := t + A[i]; (1 Điểm) A. Tính số lượng các phần tử có giá trị lẻ B. Xuất ra màn hình tổng giá trị các phần tử của mảng C. Tính tổng giá trị các phần tử có giá trị lẻ D. Xuất ra màn hình các phần tử có giá trị lẻ 23. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? s := A[1]; for i := 2 to n do if s >= A[i] then s := A[i]; write(s); (1 Điểm) A. Xuất ra màn hình giá trị lớn nhất của mảng B. Xuất ra màn hình giá trị nhỏ nhất của mảng C. Xuất ra màn hình giá trị các phần tử của mảng D. Xuất ra màn hình mảng sau khi đã sắp xếp giá trị các phần tử tăng dần 24. Cho A là mảng một chiều gồm n phần tử, đoạn chương trình sau thực hiện công việc gì? g := 1; for i := 2 to n do if A[g] <= A[i] then g := i; write(g); (1 Điểm) A. Tìm chỉ số của phần tử có giá trị nhỏ nhất của mảng B. Tìm phần tử có giá trị lớn nhất của mảng C. Tìm chỉ số của phần tử có giá trị lớn nhất của mảng D. Tìm phần tử có giá trị nhỏ nhất của mảng 25. Cho A là mảng một chiều gồm 10 phần tử, giá trị các phần tử lần lượt là: 20 7 12 10 16 7 13 20 9 17 Sau khi thực hiện đoạn chương trình dưới đây: t := 1; for i := 1 to 10 do if A[t] < A[i] then t := i; write(t); Thì kết quả hiện trên màn hình là gì? (1 Điểm) A. 8 B. 2 C. 1 D. 6 27. Cho câu lệnh: FOR i:=1 TO 100 DO A[i]:= Random(50)-Random(50); Hãy cho biết giá trị các phần tử của mảng A trong câu lệnh trên nhận giá trị nguyên trong đoạn nào? (1 Điểm) A. Từ -49 đến 49 B. Từ -49 đến 50 C. Từ -50 đến 49 D. Từ -50 đến 50

2 đáp án
90 lượt xem

Câu 1: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng cú pháp? A. For i:=1 to n do; if a[i] mod 2 = 0 then writeln(a[i], ‘la so le’); B. For i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i] ‘la so le’); C. For i:=1 to n do if a[i] mod 2 = 0 then writeln(‘a[i], ‘la so le’); D. For i:=1 to n do if a[i] mod 2 = 0 then writeln(‘a[i], la so le’); Câu 2: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là sai cú pháp? A. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i] = 1); B. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i], ‘= 1’); C. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i] = 0); D. For i:=10 downto 1 do if a[i] div 2 = 0 then write(a[i], ‘≥ 1’); Câu 3: Cho khai báo biến mảng sau: Var a:array[0..16] of byte; Câu lệnh nào sau đây in ra tất cả các phần tử của mảng. A. For i:=1 to 16 do write(a[i]); B. For i:= 0 to 15 do write(a[i]); C. For i:=16 downto 0 do write(a[i]); D. For i:=16 downto 1 do write(a[i]); Câu 4: Cho khai báo biến mảng sau: Var a:array[0..16] of byte; Phương án nào dưới đây chỉ phần tử thứ 10 của mảng. A. a[9] B. a[10] C. a[11] D. a(10) Câu 4:Đoạn chương trình sau khi thực hiện cho kết quả gì? Var a:array[1..3] of byte; i:byte; Begin For i:=1 to 3 do a[i]:=i; For i:=1 to 3 do If a[i] mod 2 = 0 then Write(a[i]); End. A. 1 B. 2 C. 3 D. 1 2 3 Câu 5: Cho chương trình sau: var f:array[0..50] of word; i:byte; Begin f[0]:=0; f[1]:=1; for i:=2 to 10 do begin f[i]:=f[i-1]+f[i-2]; write(f[i]:4); end; End. Phần tư a[6] có giá trị là: A. 6 B. 7 C. 8 D. 9 Câu 6: Sau khi chạy chương trình dưới, giá trị của f là bao nhiêu: var a:array[1..100] of byte; i,f,d:byte; begin for i:=1 to 100 do a[i]:=i; d:=a[2]-a[1]; for i:=2 to 100 do if a[i]=a[i-1]+d then f:=1 else f:=0; write(f); readln End. A. 0 B. 1 C. 100 số 0 D. 100 số 1 Câu 7: Sau khi chạy chương trình dưới, giá trị của f là bao nhiêu: var a:array[1..100] of byte; i,f,d:byte; begin for i:=1 to 10 do a[i]:=2*i+1; d:=a[2]-a[1]; for i:=2 to 10 do if a[i]+d=a[i+1] then f:=1 else f:=0; write(f); end. A. 1 B. 0 C. 10 số 0 D. 10 số 1 Câu 8: Chương trình sau thực hiện giải bài toán gì? A. Đếm số lượng số nguyên tố trong dãy B. Đếm số lượng số chẵn trong dãy C. Đếm số lượng số hỗn hợp trong dãy D. Đáp án khác Câu 9: Chương trình sau giải bài toán gì: k:=5-1; for i:=1 to n do if a[i] mod k = 0 then s:=s+a[i]; A. Tính tổng các phần tử trong mảng là bội của k B. Tính tổng các phần tử trong mảng là bội của 5 C. Tính tổng các phần tử chẵn trong mảng D. Tính tổng các phần tử lẻ trong mảng Câu 10: Cho đoạn chương trình giải bài toán tìm phần tử có giá trị lớn nhất trong mảng và chỉ số của phần tử tìm được như sau: j:=1; For i:=2 to n do if a[i] > a[j] then j:=i; Write(‘gia trị lớn nhat la’,a[j], ‘chi so:’,j); Giải thích nào dưới đây cho đoạn chương trình trên là hợp lí A. Đưa ra tất cả các phần tử lớn nhất và chỉ số của nó B. Nếu có nhiều phần tử cùng có giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất C. Nếu có nhiều phần tử cùng có giá trị lớn nhất thì đưa ra phần tử có chỉ số lớn nhất D. Đưa ra 1 giá trị lớn nhất và tất cả các chỉ số Ai trả lời hộ với ạ. Em cảm ơn

2 đáp án
105 lượt xem