De thi tin hoc 11 hoc ki 11

Tập hợp các chữ cái và các chữ số trong bảng chữ cái tiếng Anh; [ ] Trong ngôn ngữ lập trình Pascal, cách khai báo xâu kí tự nào sau đây là đúng.. Không phải là xâu kí tự; [<[r]

(1)

Phát biểu kiểu mảng phù hợp? A Là tập hợp số nguyên;

B Độ dài tối đa mảng 255;

C Là dãy hữu hạn phần tử kiểu; D Mảng khơng thể chứa kí tự; [ ]

Thế khai báo biến mảng gián tiếp? A Khai báo mảng ghi; B Khai báo mảng xâu kí tự;

C Khai báo mảng hai chiều;

D Khai báo thông qua kiểu mảng có; [ ] Phương án khai báo mảng hợp lệ? A mang : ARRAY[0 10] OF INTEGER;

B mang : ARRAY[0 10] : INTEGER; C mang : INTEGER OF ARRAY[0 10]; D mang : ARRAY(0 10) : INTEGER; [ ] Cho khai báo sau: a : array[0 16] of integer;

Câu lệnh in tất phần tử mảng trên? A for k := to 16 write(a[k]);

B for k := 16 downto write(a[k]); C for k:= to 15 write(a[k]);

D for k := 16 down to write(a[k]); [ ]

Cho khai báo mảng đoạn chương trình sau :

Đoạn chương trình thực cơng việc đây? A Tìm phần tử nhỏ mảng;

B Tìm phần tử lớn mảng;

C Tìm số phần tử lớn mảng;

D Tìm số phần tử nhỏ mảng; [ ]

Hãy chọn phương án ghép Độ dài tối đa xâu kí tự PASCAL A 256;

B 255; C 65535;

D Tùy ý; [ ]

Hãy chọn phương án ghép Cho xâu S ‘Hanoi-Vietnam’ Kết hàm length(S)

A 12; B 13 C 14

D 15 [ ]

Hãy chọn phương án ghép Cho xâu S ‘Hanoi-Vietnam’ Kết hàm Pos(‘Vietnam’,S)

A 5; B 6;

Var a : array[0 50] of real; k := 0;

for i := to 50

(2)

C 7;

D 8; [ ]

Cho khai báo sau: Var hoten : String; Phát biểu đúng?

A Câu lệnh sai thiếu độ dài tối đa xâu; B Xâu có độ dài lớn 0;

C Xâu có độ dài lớn 255;

D Cần phải khai báo kích thước xâu sau đó; [ ]

Hãy chọn phương án ghép Thủ tục chuẩn Insert(S1,S2,vt) thực A chèn xâu S1 vào S2 vị trí vt;

B chèn xâu S2 vào S1 vị trí vt; C nối xâu S2 vào S1;

D chép vào cuối S1 phần S2 từ vị trí vt; [ ] Đoạn chương trình sau in kết nào?

Program Welcome; Var a : string[10]; Begin

a := ‘tinhoc’; writeln(length(a)); End

A 6; B 7; C 10;

D Chương trình có lỗi; [ ]

Cho str xâu kí tự, đoạn chương trình sau thực cơng việc gì? for i := length(str) downto

write(str[i]);

A In xâu hình;

B In kí tự xâu hình;

C In kí tự hình theo thứ tự ngược, trừ kí tự đầu tiên; D In kí tự hình theo thứ tự ngược; [ ]

Cho str xâu kí tự, đoạn chương trình sau thực cơng việc for i := to length(str) –

str[i+1] := str[i];

A Dịch chuyển kí tự xâu sau vị trí; B Dịch chuyển kí tự xâu lên trước vị trí; C Khởi tạo lại kí tự xâu kí tự đầu tiên;

D Khởi tạo lại kí tự xâu kí tự cuối cùng; [ ]

Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type 1chieu=array[1 100] of char;

B Type mang=array[1-100] of char; C Type mang1c=array(1 100) of char;

D Type mang1c=array[1 100] of char; [ ]

Trong ngơn ngữ lập trình Pascal, để đổi giá trị hai phần tử mảng chiều A hai vị trí i j , ta viết mã lệnh sau :

(3)

A[j] := Tag; C Tag := A[i]; A[j] := A[i]; A[j] := Tag; D Tag := A[i]; A[i] := A[j];

Tag := A[j]; [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực việc việc sau (A mảng số có N phần tử)?

S := 0;

For i := to N S := S + A[i]; A Tính tổng phần tử mảng A; B In hình mảng A;

C Đếm số phần tử mảng A;

D Không thực việc việc [ ] Trong ngơn ngữ lập trình Pascal, xâu kí tự ?

A Mảng ký tự;

B Dãy kí tự bảng mã ASCII;

C Tập hợp chữ bảng chữ tiếng Anh;

D Tập hợp chữ chữ số bảng chữ tiếng Anh; [ ] Trong ngơn ngữ lập trình Pascal, cách khai báo xâu kí tự sau đúng? A S := file of string;

B S := file of char; C S : string;

D S = file of char [ ]

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

B 256 kí tự; C 16 kí tự;

D 255 kí tự; [ ]

Trong ngơn ngữ lập trình Pascal, xâu kí tự khơng có kí tự gọi là? A Xâu không;

B Xâu rỗng; C Xâu trắng;

D Không phải xâu kí tự; [ ]

Trong ngơn ngữ lập trình Pascal, phần tử xâu ký tự mang số là? A

B Do người lập trình khai báo C

D Khơng có số [ ]

Trong ngơn ngữ lập trình Pascal, khai báo khai báo sau sai khai báo xâu kí tự?

A S : string;

B X1 : string[100]; C S : string[256]; D X1 : string[1]; [ ]

Trong ngơn ngữ lập trình Pascal, thủ tục Delete(c, a, b) thực cơng việc việc sau?

(4)

C Xóa xâu c b kí tự vị trí a;

D Xóa xâu b c kí tự vị trí a; [ ]

Trong ngơn ngữ lập trình Pascal, hàm Length(S) cho kết gì? A Độ dài xâu S khai báo;

B Số ký tự có xâu S khơng tính dấu cách; C Số ký tự xâu khơng tính dấu cách cuối D Số ký tự có xâu S [ ]

Trong ngơn ngữ lập trình Pascal, sau chương trình thực xong đoạn chương trình sau, giá trị biến S là?

S := ‘Ha Noi Mua thu’; Delete(S,7,8);

Insert(‘Mua thu ’, S, 1); A Ha Noi Mua thu;

B Mua thu Ha Noi mua thu; C Mua thu Ha Noi;

D Ha Noi; [ ]

Trong ngôn ngữ lập trình Pascal, thủ tục chèn xâu S1 vào xâu S2 vị trí vt viết

A Insert(vt,S1,S2); B Insert(S1,S2,vt); C Insert(S1,vt,S2);

D Insert(S2,S1,vt); [ ]

Trong ngơn ngữ lập trình Pascal, với xâu kí tự có phép tốn là? A Phép cộng, trừ, nhân, chia

B Phép cộng phép trừ C Chỉ có phép cộng

D Phép ghép xâu phép so sánh [ ]

Trong ngôn ngữ lập trình Pascal, với xâu kí tự ta có thể? A So sánh hai xâu kí tự

B Gán biến xâu cho biến xâu C Gán kí tự cho biến xâu D Cả ba việc [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì? (giá trị biến đếm)

dem := 0;

For ch := ‘a’ to ‘z’

If pos(ch,S) <> then dem := dem+ 1; A Đếm số lượng ký tự khác dấu cách xâu S B Đếm số lượng ký tự chữ in hoa xâu S C Đếm số lượng ký tự chữ thường xâu S

D Đếm số lượng chữ thường khác có xâu S [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì? X := length(S);

For i := X downto

If S[i] = ‘ ’ then Delete(S, i, 1);{ ‘ ’ dấu cách } A Xóa dấu cách xâu ký tự S

B Xóa dấu cách thừa xâu ký tự S C Xóa dấu cách vị trí cuối xâu S D Xóa dấu cách xâu S [ ]

(5)

S1 := ‘anh’; S2 := ‘em’; i := pos(S2, S); While i <>

Begin

Delete(S, i, 2); Insert(S1, S, i); i := pos(S2, S); End;

A Thay toàn cụm từ ‘anh’ xâu S cụm từ ‘em’; B Thay toàn cụm từ ‘em’ xâu S cụm từ ‘anh’; C Thay cụm từ ‘em’ xâu S cụm từ ‘anh’;

D Thay cụm từ ‘anh’ xâu S cụm từ ‘em’; [ ]

Trong ngơn ngữ lập trình Pascal, để xóa ký tự xâu ký tự S ta viết : A Delete(S, 1, 1);

B Delete(S, i, 1); { i biến có giá trị } C Delete(S, length(S), 1);

D Delete(S, 1, i); { i biến có giá trị } [ ]

Trong ngôn ngữ lập trình Pascal, để tìm vị trí xuất xâu ‘hoa’ xâu S ta viết cách cách sau?

A S1 := ‘hoa’; i := pos(S1, ‘hoa’); B i := pos(‘hoa’, S);

C i := pos(S, ’hoa’);

D i := pos(‘hoa’, ‘hoa’); [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình thực cơng việc công việc sau :

i := pos(‘ ’, S); { ‘ ’ dấu cách } while i <>

Begin

Delete(S, i, 1);

i := pos(‘ ’, S);{ ‘ ’ dấu cách } End;

A Xóa dấu cách liền xâu; B Xóa dấu cách xâu;

C Xóa dấu cách xâu S để S khơng cịn dấu cách liền nhau; D Xóa dấu cách liền cuối xâu; [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau làm cơng việc : i := pos(‘ ’, X);{ ‘ ’ dấu cách }

while i <>0 Begin

Delete(X, i, 1);

i := pos(‘ ’, X);{ ‘ ’ dấu cách } End;

A Xóa tất dấu cách xâu X;

B Xóa tất dấu cách phía bên trái xâu X; C Xóa tất dấu cách phía bên phải xâu X; D Xóa tất dấu cách hai đầu xâu X; [ ]

(6)

A For i := to length(S) write(S[i]) B For i := length(S) downto write(S[i]) C For i := length(S) downto write(S)

D For i := to length(S) div write(S[i]) [ ]

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì? d := 0;

For i := to length(S)

if S[i] = ‘ ’ then d := d + 1; A Xóa dấu cách xâu;

B Đếm số ký tự có xâu; C Đếm số dấu cách có xâu; D Xóa ký tự số; [ ]

Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì? d := 0;

For i := to length(S)

if ( S[i] >= ‘ ’ ) AND ( S[i] <= ‘ ’ ) then d := d + 1; A Đếm số ký tự ký tự số xâu S;

B Đếm xem có ký tự số xâu S; C Xóa chữ số có S;

D Xóa ký tự S; [ ]

Hãy chọn phương án ghép Kiểu hàm xác định A Kiểu tham số

B Kiểu giá trị trả C Tên hàm

D Địa mà hàm trả [ ] Mô tả hàm sai? A Phải trả lại kết

B Phải có tham số

C Trong hàm gọi lại hàm D Có thể có biến cục [ ]

Trong chương trình chuẩn sau đây, chương trình chuẩn thủ tục chuẩn? A Sin(x);

B Length(S); C Sqrt(x);

D Delete(S,5,1); [ ]

Nói cấu trúc chương trình con, khẳng định sau không đúng? A Phần đầu phần thân thiết phải có, phần khai báo có khơng B Phần khai báo có khơng có tùy thuộc vào chương trình cụ thể C Phần đầu có khơng có

D Phần đầu thiết phải có để khai báo tên chương trình [ ] Khẳng định sau đúng?

A Một chương trình thiết phải có tham số hình thức B Một chương trình thiết phải có biến cục

C Một chương trình thiết phải có tham số hình thức, khơng thiết phải có biến cục

D Một chương trình khơng có tham số hình thức khơng có biến cục [ ]

Khẳng định sau đúng?

(7)

C Chỉ có hàm có tham số hình thức

D Thủ tục hàm phải có tham số hình thức [ ] Để khai báo hàm Pascal khóa

A Program B Procedure C Function D Var [ ]

Để khai báo thủ tục Pascal khóa A Program

B Procedure C Function D Var [ ]

Hãy chọn phương án ghép Cho thủ tục sau : Procedure p;

Var n : integer; Begin

…… …… End;

Phạm vi biến n là :

A Trong toàn chương trình; B Trong nội thủ tục;

C Trong tồn tệp chương trình nguồn;

D Tùy thuộc vào vị trí sử dụng thủ tục p; [ ] Cho chương trình sau :

Program Thidu; Var s : string[50];

Procedure foo(s : string); Var i : integer; Begin

i := 1;

while ( i <= length(S) ) begin

writeln( s[ i ] ); i := i + 1; end;

end; Begin

s := ‘tinhoc’; foo(s);

End

Số dịng chương trình in hình bao nhiêu? A 50 dòng;

B dòng; C dòng;

(8)

Var Mess : string; Begin

Mess := ‘StopHere’; Write(Mess);

End; Begin

Mess := ‘StartHere’; StopHere;

Write(Mess); End

Phương án kết thực chương trình trên? A StopHere StartHere;

B StartHere StopHere;

C StartHere StopHere StartHere; D StopHere StopHere; [ ] Cho chương trình sau :

Program Vi_du; Var x, y : integer;

Procedure godoit( x, y : integer ); Begin

x := y; y := 0;

Write( x, y ); End;

Begin

x := 1; y := 2;

godoit( x, y ); write( x, y ); End

Chương trình in dãy số nào? A 2001

B 1020 C 2012

D 1234 [ ]

Đoạn chương trình sau có lỗi gì? Procedure End ( key : char );

Begin

If key = ‘ q ’ then writeln( ‘ Ket thuc ’ ) End;

A Thiếu dấu “; ” sau từ khóa Begin;

B Không thể dùng câu lệnh if thủ tục; C Thiếu dấu “; ” sau lệnh writeln;

D End dùng làm tên thủ tục; [ ] Cho chương trình sau:

Program Chuong_Trinh; Var a, b, S : byte;

(9)

Begin

i := 5;

writeln(x,‘ ’, y); x := x + i; y := y + i; S := x + y; Writeln(x,‘ ’, y); End;

Begin

Write(‘nhap a b : ’); Readln(a, b);

TD(a,b);

Writeln(a,‘ ’, b, ‘ ’, S); Readln;

End

Trong chương trình có biến cục là: A x y

B i C a b D S [ ]

Cho chương trình sau: Program Chuong_Trinh; Var a, b, S : byte;

Procedure TD(Var x : byte; y : byte); Var i : byte;

Begin

i := 5;

Begin

TD(a,b);

End

Trong chương trình có biến toàn là: A x y

B i C a b

(10)

Begin

i := 5;

Begin

TD(a,b);

End

Trong chương trình có tham số thực là: A x y

B i C a b

D a, b, S [ ] Cho chương trình sau: Program Chuong_Trinh; Var a, b, S : byte;

Begin

i := 5;

Begin

TD(a,b);

End

Trong chương trình có tham số hình thức là: A x y

B i C a b

(11)

A lưu trữ ROM B lưu trữ RAM

C lưu trữ đĩa cứng

D lưu trữ nhớ [ ] Số lượng phần tử tệp

A Không lớn 128 B Không lớn 255 C Phải khai báo trước

D Không bị giới hạn mà phụ thuộc vào dung lượng đĩa [ ] Hãy chọn thứ tự hợp lí thực thao tác đọc liệu từ tệp : A Mở tệp => Gán tên tệp với biến tệp => Đọc liệu từ tệp => Đóng tệp B Mở tệp => Đọc liệu từ tệp => Gán tên tệp với biến tệp => Đóng tệp C Gán tên tệp với biến tệp => Mở tệp => Đọc liệu từ tệp => Đóng tệp

D Gán tên tệp với biến tệp => Đọc liệu từ tệp => Mở tệp => Đóng tệp [ ] Để gán tên tệp cho tên biến tệp ta sử dụng câu lệnh

A <tên biến tệp> := <tên tệp>; B <tên tệp> := <tên biến tệp>; C Assign(<tên biến tệp>,<tên tệp>);

D Assign(<tên tệp>,<tên biến tệp>); [ ]

Trong PASCAL mở tệp để đọc liệu ta phải sử dụng thủ tục A Reset(<tên tệp>);

B Reset(<tên biến tệp>); C Rewrite(<tên tệp>);

D Rewrite(<tên biến tệp>); [ ]

Để ghi kết vào tệp văn ta sử dụng thủ tục A Read(<tên tệp>,<danh sách kết quả>);

B Read(<tên biến tệp>,<danh sách kết quả>); C Write(<tên tệp>,<danh sách kết quả>);

D Write(<tên biến tệp>,<danh sách kết quả>); [ ]

Nếu hàm eof(<tên biến tệp>) cho giá trị true trỏ tệp nằm vị trí A Đầu dòng

B Đầu tệp C Cuối dòng

D Cuối tệp [ ]

Nếu hàm eoln(<tên biến tệp>) cho giá trị true trỏ tệp nằm vị trí A Đầu dịng

B Đầu tệp C Cuối dòng D Cuối tệp [ ]

Trong Pascal để đóng tệp ta dùng thủ tục A Close(<tên biến tệp>);

B Close(<tên tệp>); C Stop(<tên biến tệp>); D Stop(<tên tệp>); [ ]

Var <tên biến tệp> : Text; có ý nghĩa gì? A Thủ tục gán tên tệp cho tên biến tệp B Thủ tục mở tên để đọc liệu C Khai báo biến tệp

D Thủ tục đóng tệp [ ]

(12)

A Thủ tục gán tên tệp cho tên biến tệp B Thủ tục mở tên để đọc liệu C Khai báo biến tệp

Reset(<tên biến tệp>); có ý nghĩa gì? A Thủ tục gán tên tệp cho tên biến tệp B Thủ tục mở tên để đọc liệu C Khai báo biến tệp

Close(<tên biến tệp>); có ý nghĩa gì? A Thủ tục gán tên tệp cho tên biến tệp B Thủ tục mở tên để đọc liệu C Khai báo biến tệp

Rewrite(<tên biến tệp>); có ý nghĩa gì? A thủ tục mở tệp để ghi liệu

B thủ tục đọc liệu từ tệp C thủ tục ghi liệu vào tệp D thủ tục đóng tệp [ ]

read(<tên biến tệp>,<danh sách biến>);có ý nghĩa gì? A thủ tục mở tệp để ghi liệu

write(<tên biến tệp>,<danh sách kết quả>); có ý nghĩa gì? A thủ tục mở tệp để ghi liệu

Hãy chọn phương án ghép Tệp văn

A cho phép truy cập đến liệu tệp cách đầu tệp qua tất liệu trước

B Cho phép tham chiếu đến liệu cần truy cập cách xác định trực tiếp vị trí liệu

C tệp mà phần tử tổ chức theo cấu trúc định D tệp mà liệu ghi dạng ký tự theo mã ASCII [ ]

Trong Pascal, thực chương trình VD_bt1_txt ghi kết kết cho vào tệp văn BT1.TXT?

Program VD_bt1_txt; Uses crt;

Var f : text; Begin

Clrscr;

Assign(f, ‘BT1.TXT ’); Rewrite(f);

Write(f, 123 + 456); Close(f);

End

(13)

C 579

D 123 456 [ ]

Trong Pascal, cho trước tệp văn BT2.TXT chỉ có dịng, chứa dịng chữ : CHAO MUNG BAN DEN VOI LAP TRINH đầu dịng Thực chương trình

VD_bt2_txt , hìnhsẽ kết kết cho đây? Program VD_bt2_txt;

Uses crt; Var f : text;

S : string[13]; Begin

Clrscr;

Assign(f, ‘BT2.TXT ’); Reset(f);

Read(f, S); Write(S); Close(f); End

A CHAO MUNG BAN DEN VOI LAP TRINH B CHAO MUNG BAN

De thi tin hoc 11 hoc ki 11

Thông tin tài liệu

Từ khóa liên quan

Tài liệu cùng người dùng

Tài liệu liên quan