Đề ôn tập HK2 năm 2020 môn Tin học 11 Trường THPT Ung Văn Khiêm

Trong Pascal để đóng tệp ta dùng thủ tục

Khai báo  Var a: array[1..10] of Integer. Trong các câu lệnh sau, lệnh nào bị lỗi:

Mảng là kiểu dữ liệu:

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?

(Phần khai báo và kết thúc chương trình xem như viết đầy đủ)

For i:=10 to 1 downto Write(i, ‘ ’);

Để gắn tên tệp cho biến tệp ta sử dụng câu lệnh:

Trong ngôn ngữ lập trình pascal, thủ tục chèn xâu S1 vào xâu S2 bắt đầu từ vị trí vt ta viết:

Kết quả của việc thực hiện hàm pos(‘ab’, ‘defbcad’) là  :

Tham chiếu đến phần tử mảng một chiều được xác định bởi ?

Kiểu dữ liệu các phần tử có trong mảng là :

Cú pháp khai báo cấu trúc lặp dạng  lùi với số lần lặp biết trước là:

Cho st1:= ‘abc’;  st2:=‘deft’. Kết quả gọi insert(st2,st1,3):

Trong ngôn ngữ lập trình Pascal, (chọn câu đúng)

‘hoc’ +‘Tin’ thực hiện phép ghép xâu trên cho kết quả gì?

Trong ngôn ngữ lập trình Pascal, phát biểu nào sau đây là đúng với câu lệnh rẽ nhánh if…then…?

Cú pháp để khai báo mảng 1 chiều trực tiếp là:

Mở tệp f để đọc dữ liệu ta sử dụng lệnh nào sau đây:

Trong pascal mở tệp để ghi kết quả ta sử dụng thủ tục:

Hàm EOF(<biến tệp>) có giá trị

Mảng 1 chiều là:

Cho st:=‘chuc cac ban may man’,kết quả của hàm length(st) là:

Trong ngôn ngữ lập trình pascal, thủ tục Delete(st, vt, n) thực hiện công việc gì trong các công việc sau:

Trong ngôn ngữ lập trình Pascal, hàm Length(S) cho kết quả là gì ?

Trong ngôn ngữ lập trình pascal, thủ tục Insert(S1, S2, n) thực hiện công việc gì ?

Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là đúng ?

Hãy điền vào chỗ trống trong đoạn chương trình sau đây:Nhập 2 xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không?

            Program vd1;

            Uses crt;

            Var {1}…………………….

                        X:byte;

            Begin

                 Write(‘Nhap vao xau thu 1:’);

                  {2}………………….

                Write(‘{3}………………………….:’)

                  Readln(s2);

                        X:=length(s2);

                        if {4}………………………then

                                    Write(‘Trung nhau ’)

                                    {5}……………

                                    {6}……………………(‘khac nhau’);

                        {7}………………..

            {8}………………...

Hãy cho biết kết quả sau khi thực hiện chương trình sau đây:

Program mangmotchieu;

Var   M:array[1..10] of integer;

         i:byte;

Begin

         For i:=1 to 10 do

M[i]:=i;

         For i:=1 to 10 do

 Write(M[5]:2, M[7]:2, M[9]:2);

End.