Tập hợp các chữ cái và các chữ số trong bảng chữ cái tiếng Anh; [<br>] 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ự; [<br>]
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ó; [<br>] 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; [<br>] 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]); [<br>]
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; [<br>]
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 ý; [<br>]
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 [<br>]
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; [<br>]
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 đó; [<br>]
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; [<br>] Đ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; [<br>]
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; [<br>]
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; [<br>]
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; [<br>]
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]; [<br>]
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 [<br>] 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; [<br>] 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 [<br>]
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ự; [<br>]
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ự; [<br>]
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ố [<br>]
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]; [<br>]
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; [<br>]
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 [<br>]
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; [<br>]
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); [<br>]
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 [<br>]
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 [<br>]
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 [<br>]
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 [<br>]
(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’; [<br>]
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ị } [<br>]
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’); [<br>]
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; [<br>]
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; [<br>]
(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]) [<br>]
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ố; [<br>]
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; [<br>]
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ả [<br>] 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 [<br>]
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); [<br>]
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 [<br>] 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 [<br>]
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 [<br>] Để khai báo hàm Pascal khóa
A Program B Procedure C Function D Var [<br>]
Để khai báo thủ tục Pascal khóa A Program
B Procedure C Function D Var [<br>]
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; [<br>] 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; [<br>] 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 [<br>]
Đ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; [<br>] 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 [<br>]
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;
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 toàn là: A x y
B i C a b
(10)Procedure TD(Var x : byte; y : byte); Var i : byte;
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ó tham số thực là: A x y
B i C a b
D a, b, S [<br>] 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;
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ó 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ớ [<br>] 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 [<br>] 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 [<br>] Để 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>); [<br>]
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>); [<br>]
Để 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ả>); [<br>]
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 [<br>]
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 [<br>]
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>); [<br>]
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 [<br>]
(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
D Thủ tục đóng tệp [<br>]
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
D Thủ tục đóng tệp [<br>]
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
D Thủ tục đóng tệp [<br>]
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 [<br>]
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
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 [<br>]
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
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 [<br>]
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 [<br>]
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 [<br>]
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