Đề kiểm tra HK2 môn Tin học lớp 11 năm 2017-2018 trường THPT Tháp Chàm

Câu 2: Trong Pascal, đoạn chương trình sau thực hiện công việc gì ? 
For i := length(S) downto 1 do  If S[i] = ‘ ’ then Delete(S, i, 1) ; 

Câu 3: Trong ngôn ngữ lập trình Pascal, với khai báo như sau: 
Type mang = ARRAY[1..100] of integer ; 
Var a, b : mang ; c : array[1..100] of integer ; 
Câu lệnh nào dưới đây là hợp lệ ?

Câu 4: Trong ngôn ngữ lập trình Pascal, xâu kí tự có tối đa ? 

Câu 5: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau (A là mảng số có N phần tử) ? 
S := 0 ; For i := 1 to N do S := S + A[i] ; 

Câu 6: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì? 
d :=  0 ;   For i := 1 to  length(S)  do   if  ( S[i] >= ‘ 0 ’ ) AND ( S[i] <= ‘ 9 ’ ) then  d := d + 1 ; 

Câu 7: Với khai báo A : Array [1 .. 100] Of Integer; thì việc truy xuất đến phần tử thứ 5 như sau: 

Câu 8: Cú pháp để khai báo biến mảng một chiều trực tiếp là: 

Câu 9: Cho sâu s1 = ‘123’; s2 = ‘abc’ sau khi thực hiện thủ tục Insert(s1,s2,2) thì: 

Câu 10: Trong Pascal, cho đoạn chương trình sau: 
S := 0; For I := 1 To 5 Do If  (I mod 2 = 0) Then s := s + a[1]; 
Với mảng a có các giá trị là: 3    6  7  9  4. Đoạn chương trình trên cho kết quả là: 

Câu 11: Cho s = ‘123456789’ hàm Copy(s,2,3) cho giá trị bằng: 

Câu 12: Trong Pascal, để tìm vị trí xuất hiện đầu tiên của xâu ‘hoa’ trong xâu S ta có thể viết bằng cách nào trong các cách sau ? 

Câu 13: Cho str là một xâu kí tự, đoạn chương trình sau thực hiện công việc gì? 
for  i := length(str) downto 1 do write(str[i]) ; 

Câu 14: Trong các phát biểu sau, phát biểu nào là Sai? 

Câu 15: Cho xâu s = ‘123456789’, sau khi thực hiện thủ tục delets(s,3,4) thì: 

Câu 16: Cho A = ‘abc’; B = ‘ABC’; Khi đó A + B cho kết quả nào? 

Câu 17: Cho khai báo mảng và đoạn chương trình như sau: 
Var a : array[0..50] of real; 
k := 0 ;   for i := 1 to 50 do   if a[i] > a[k] then k := i ; 
Đoạn chương trình trên thực hiện công việc gì dưới đây ? 

Câu 18: Để khai báo kiểu xâu trực tiếp ta sử dụng cú pháp nào? 

Câu 19: Hãy điền vào chổ trống để đoạn chương trình sau thực hiện đếm các phẩn tử có giá trị bằng 10? 
Dem := 0;For I := 1 To n Do If ………………Then inc(dem); Write(‘Dãy có ’, dem, ‘phần tử có giá trị bằng 10’); 

Câu 20: Trong ngôn ngữ lập trình Pascal, xâu kí tự là ? 

Câu 21: Xâu ‘ABBA’ lớn hơn xâu:

Câu 22: Cú pháp câu lệnh nào sau đây là đúng? 

Câu 23: Đoạn chương trình sau in ra kết quả nào? 
Program Welcome ; 
Var a : string[10]; 
Begin 
a := ‘tinhoc ’; writeln(length(a)); 
End. 

Câu 24: Trong ngôn ngữ lập trình Pascal, khai báo nào trong các khai báo sau là  sai khi khai báo xâu kí tự ? 

Câu 25: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?