Trắc nghiệm Lập trình Cấu trúc Pascal - Đại học Kinh doanh và Công nghệ Hà Nội (HUBT)

Bộ câu hỏi trắc nghiệm về Lập trình Cấu trúc Pascal dành cho sinh viên Đại học Kinh doanh và Công nghệ Hà Nội (HUBT). Tài liệu giúp ôn tập và củng cố kiến thức về cú pháp Pascal, biến, kiểu dữ liệu, cấu trúc điều khiển, mảng, hàm, và thủ tục. Hỗ trợ sinh viên chuẩn bị tốt cho các kỳ thi học phần và nâng cao kỹ năng lập trình cơ bản.

Từ khoá: trắc nghiệm Lập trình Pascal Cấu trúc Pascal Đại học Kinh doanh và Công nghệ Hà Nội HUBT cú pháp Pascal kiểu dữ liệu Pascal vòng lặp Pascal hàm và thủ tục ôn tập lập trình câu hỏi trắc nghiệm luyện thi công nghệ thông tin

Số câu hỏi: 250 câuSố mã đề: 5 đềThời gian: 1 giờ

41,234 lượt xem 3,161 lượt làm bài

Bạn chưa làm Mã đề 1!

Xem trước nội dung

Câu 1: 0.2 điểm

Tìm dòng sai trong 3 dòng sau:
type
IntList = array[1..100] of Integer;
CharData = array{'A'..'Z'} of Byte;

dòng 1

dòng 2

dòng 3

Không dòng nào sai

Câu 2: 0.2 điểm

SQR(x) là hàm:

Bình phương của một số nguyên hay số thực

Trị tuyệt đối của x

Căn bậc hai của x

Cắt bỏ phần thập phân của x nếu có

Câu 3: 0.2 điểm

Đoạn chương trình sau in ra kết quả nào? khi ta nhập chuỗi sau:
"Cộng hoà xã hội chủ nghĩa Việt Nam".
Var St:sting[20];
Begin
Readln(st);
Writeln('chuỗi được in ra là:', st);
End.

Cộng hoà xã hội

Cộng hoà xã hội chủ

Cộng hoà xã hội chủ nghĩa Việt Nam

Cộng hòa xã hội chủ ng

Câu 4: 0.2 điểm

Trong Turbor pascal Tập tin GRAPH.TPU là:

Thư viện đồ hoạ

Thư viện chuẩn

Soạn thảo và dịch chương trình

Thư viện liên quan đến màn hình

Câu 5: 0.2 điểm

Với câu lệnh sau:
Writeln('KQ là: ',a);
màn hình sẽ in ra kêt quả nào?

Ket qua la: a

KQ la a

Không đưa ra gì cả

KQ là:

Câu 6: 0.2 điểm

Trong Turbo Pascal, khẳng định nào sai?

Để lưu chương trình lên đĩa, gõ phím F2 hoặc chọn lệnh File/Save;

Để chạy chương trình, gõ phím ^F9 hoặc F9.

Để tìm lỗi có pháp của chương trình, gõ phím Alt_F9, hay F9;

Để mở một tập tin gõ phím F1;

Câu 7: 0.2 điểm

Đoạn mã sau sai vì sao ?
Var
a,b,c:Real;
Begin;
D:= b*b - 4 *a*c;
Writeln ('D = ', D);
End.

a,b,c phải là Kiểu integer

Thiếu Begin và chưa khai báo biến d

Thiếu Begin

d chưa khai báo

Câu 8: 0.2 điểm

Đoạn mã sau in kết quả nào?
Var
Procedure Vao;
A,b,s: Real;
Begin
a:=5;
b:=4;
End;
Begin
Vao;
s:=a+b;
Writeln('s=',s);
End.

S=-9

S=9

S=0

Không xác định

Câu 9: 0.2 điểm

Cách khai báo biến trong pascal

var tên biến =Kiểu dữ liệu

var tên biến: Kiểu dữ liệu

var tên biến:= Kiểu dữ liệu

var tên biến Kiểu dữ liệu

Câu 10: 0.2 điểm

I sẽ nhận giá trị nào khi gặp đoạn mã sau:
I:=7;
Min:=2;
Max:=6;
if (I < Min) or (I > Max) then I:= 0;

Câu 11: 0.2 điểm

Thủ tục (procedure) là?

Là chương trình con trả về một giá trị duy nhất

Là chương trình con trả về dữ liệu có cấu trúc

Là chương trình con dùng để thực hiện một hay nhiều nhiệm vụ

Là chương trình con trả về giá trị Kiểu File

Câu 12: 0.2 điểm

Trong pascal trả về giá trị trong bảng mã ascii tưong ứng với vị trí n ta dùng hàm

Ord(n)

Chr(n)

Pred(n)

Succ(n)

Câu 13: 0.2 điểm

Thủ tục sau in chữ "Lớp Tin 3" ở cột nào?
Procedure chuyen;
Var X,Y: integer;
Begin
X: = 15;
Y:= 20;
GoToxy(X,Y);
Write('lop tin 3');
End;

Cột 20

Cột 15.

Cột 0.

Cột 45

Câu 14: 0.2 điểm

S bằng bao nhiêu sau khi chạy đoạn lệnh sau:
s:=0;
For I:=1 to 100 do
S:=s+I;

s là tổng từ 1 đến 100

s=100

s=101

s=1000

Câu 15: 0.2 điểm

Tham biến trị là:

Là tham số hình thức khai báo sau từ khoá var

Là biến khai báo trong chơơng trình chính

Là tham số hình thức khai báo không có từ khoá var

Là biến khai báo trong chơơng trình con

Câu 16: 0.2 điểm

Trong pascal để tính giá trị E mũ x ta dùng hàm

EX(x)

LN(x)

INT(x)

Exp(x)

Câu 17: 0.2 điểm

Khai báo sau sai ở dòng nào?
1. Var
2. Maxdata=1..Integer;
3. numchars=1..10;
4. message = '1'..'2';

dòng 1,2,3,4

dòng 3,4

dòng 2,3,4

dòng 1,3,4

không sai dòng nào

Câu 18: 0.2 điểm

Chọn câu trả lời đúng nhất về Biến cục bộ là gì?

Biến khai báo trong chương trình chính nhưng chỉ sử dụng được trong chương trình chính thôi không sử dụng cho các chương treình con.

Biến được khai báo ở chương trình chính và có thể sử dụng nó ở mọi nơi trong chương trình

Biến được khai báo trong chương trình con và chỉ có thể sử dụng được trong chương trình con đó mà thôi.

Biến được khai báo trong chương trình con và có thể sử dụng được trong mọi chương trình con và chương trình chính.

Câu 19: 0.2 điểm

Trong pascal trả về số thứ tự trong bảng mã ASCII của kí tự ch ta dùng hàm

Chr(ch)

Ord(ch)

Pred(ch)

Succ(ch)

Câu 20: 0.2 điểm

Kết quả của chương trình sau là gì?
Var a,b:integer;
Procedure vidu(x:integer,var Y:integer)
Begin
X:=x+1
Y:=y+1;
End;
Begin
A:=0; b:=3;
Vidu(a,b)
Write(a:3,b:3);
END.

1 3

0 3

1 4

0 4

tất cả đều sai

Câu 21: 0.2 điểm

Đoạn mã sau cho kết quả nào?
Var
i: Integer;
s,a,b: Real;
Begin
b:=0.5;
a:=1; I:=1; s:=0;
Repeat
s:=s+a;
i:=i+1;
a:=1/i;
Until a<=b;
Writeln ( ' Tong = ', S );
End.

S=1

S=13.5

S=0.01

S=0

Câu 22: 0.2 điểm

Trong pascal để khai báo Hằng ta dùng từ khoá

USES ......;

VAR

TYPE .......;

CONST .....;

Câu 23: 0.2 điểm

Đoạn chương trình sau thực hiện công việc gì?
Type
a = Record
Hoten: String[20];
Ngaysinh: String[8];
Lương: real;
End;
Ns: Array[1..20] of A;
Var Nhansu: Ns;

Khai báo biến Nhansu có Kiểu là 1 mảng chuỗi gồm 3 trường.

Khai báo biến Nhansu có Kiểu là 1 mảng bản ghi gồm 3 trường.

Khai báo biến Nhansu có Kiểu bản ghi gồm 20 trường.

Khai báo biến Nhansu có Kiểu chuỗi và Kiểu số thực.

Câu 24: 0.2 điểm

Đối với dữ liệu Kiểu TệpThủ tục Rewite(F) có nghĩa

Gán tên file trên đĩa có tên fieldname cho biến file F

Tạo mới file trên đĩa có tên fieldname gán cho biến file F

Mở file trên đĩa có tên fieldname gáncho biến file F

Đóng file trên đĩa có tên fieldname

Câu 25: 0.2 điểm

Từ khoá khai báo Kiểu số thực:

Tất cả các đáp án

Single

Double

Real

Câu 26: 0.2 điểm

Chương trình sau in kết quả bao nhiêu ?
Program ViDu;
Var
S,i:Integer;
Begin
I:=1;
S:=2;
S:=S+I;
S:=S*S;
Writeln(S);
End.

Câu 27: 0.2 điểm

Đoạn mã sau in kết quả nào? Var
Procedure Vao;
A,b,s: Real;
Begin
a:=5.0;
b:=4.0;
End;
Begin
Vao;
s:=a+b;
Writeln('s=',s);
End.

Không xác định

S=9

S=0

S=-9

Câu 28: 0.2 điểm

Nguyên tắc tạo Unit

Tên unit phải trùng với tên file

Tất cả các ý nêu ra

Các thủ tục và hàm khai báo trong interface bắt buộc phải có trong phần IMPLEMENTATION.

Chỉ có chơương trình con khai báo sau interface mới sử dụng các chơương trình con khác

Câu 29: 0.2 điểm

Trong Turbor pascal Tập tin TURBO.TPL dùng để:

Soạn thảo và dịch chương trình

Thư viện đồ hoạ

Thư viện chuẩn

Thư viện liên quan đến màn hình

Câu 30: 0.2 điểm

Máy tính cho kết quả như thế nào nếu nhập các giá trị: 1,2,3,4
var a,b,s: string;
c,d,t,p: integer;
Begin
read(a,b,c,d);
s:=a+b;
t:=a+c;
p:=a+d;
writeln(s: 4,t: 4, p:4)
end;

12 13 14

3 4 5

12 4 5

chương trình báo lỗi.

Câu 31: 0.2 điểm

Đối với dữ liệu Kiểu tệp Hàm FileSize(F);

Trả về vị trí con trỏ File

Kiểm tra cuối file

Số lượng phần tử có trong file

Kiểm tra cuối dòng

Câu 32: 0.2 điểm

P sẽ nhận giá trị nào khi gặp đoạn mã sau:
p:=2;
if P <> 2 then
Writeln('P=',20);
else
Writeln('P=',120);

120

Báo lỗi chương trình

Câu 33: 0.2 điểm

Hàm (function) là gì?

Là chương trình con trả về dữ liệu có cấu trúc

Là chương trình con dùng để thực hiện một hay nhiều nhiệm vụ

Là chương trình con trả về một giá trị duy nhất

Là chương trình con trả về giá trị Kiểu File

Câu 34: 0.2 điểm

Đoạn mã sau in kết quả nào?
A:=34;
B:=78;
If a < b Then
Max:=b
Else
max:=a;
writeln(max);

102

Câu 35: 0.2 điểm

Giá trị biến Tong là bao nhiêu?
Label 3;
Var
Tong, I: integer;
Begin
Tong:=0;
I:=1;
tong:=tong+I;
I:=I+1;
If I<=2 then goto3;
Writeln('tong=', tong);
End.

tong=1

tong=2

tong=4

tong=3

Câu 36: 0.2 điểm

SQR(x) là hàm:

Trị tuyệt đối của x

Bình phương của một số nguyên hay số thực

Căn bậc hai của x

Cắt bỏ phần thập phân của x nếu có

Câu 37: 0.2 điểm

Khi tạo một thư viện chương trình thì tên thư viện phải:

Trùng tên File

Khác tên File

Khai báo sau từ khoá interface

Viết hoa

Câu 38: 0.2 điểm

Trong Turbor pascal 7.0 Tập tin TURBO.EXE dùng để:

Soạn thảo và dịch chương trình

Thư viện chuẩn

Thư viện đồ hoạ

Thư viện liên quan đến màn hình

Câu 39: 0.2 điểm

Biến toàn cục là

Là tham số hình thức khai báo sau từ khoá var

Là biến khai báo trong chơương trình chính

Là tham số hình thức khai báo không có từ khoá var

Là biến khai báo trong chơương trình con

Câu 40: 0.2 điểm

Đoạn mã sau in kết quả nào?
Var x:integer;
Begin
Write(‘nhap x=’);readln(x);
Write(sqrt(sqr(x)));
End.

Câu 41: 0.2 điểm

Khai báo sau sai tại dòng nào
type
IdentRec = Record
aref: string[15];
RefCount: integer;
end;

sai dòng: a ref:string[15];

sai dòng: Ref-Count: integer;

không sai dòng nào

sai dòng: type

Câu 42: 0.2 điểm

Đoạn Chương trình sau in ra gì?
begin
Writeln(sqr(4));

End;

Câu 43: 0.2 điểm

Đoạn mã sau in kết quả nào?

Var

procedure vao;

a,b,s: real;

Begin

a:=5;

b:=4;

end;

Begin

vao;

s:= a+b;

writeln('s=',s);

end.

s=-9

s=9

s=0

không xác định, chương trình có lỗi

Câu 44: 0.2 điểm

Để so sánh các giá trị Kiểu boolean ta có:

False>true

true=false

true

true>false

Câu 45: 0.2 điểm

Đoạn mã sau sai vì sao?
var a, b, c:real;
d:=b*b-4*a*c;
Writeln('d=',d);
End.

thiếu begin và chưa khai báo biến d

d chưa khai báo

thiếu begin

a,b, c phải là Kiểu integer

Câu 46: 0.2 điểm

Trong pascal để trả về số nguyên gần với x nhưng bé hơn x ta dùng hàm

Frac(x)

Int(x)

Trunc(x)

Round(x)

Câu 47: 0.2 điểm

Đoạn mã sau in kết quả nào?
var a,b,s: real;
procedure vao;
Begin
a:=2;
b:=6;
end;
Begin
vao;
s:= a+b;
writeln('s=',s);
end.

không xác định, chương trình có lỗi

Câu 48: 0.2 điểm

Thủ tục sau thực hiện công việc gì?

Var

I: integer;

F: File of Integer;

Begin

Assign (F, 'So.dat');

Rewrite (F);

I:=1;

While i<=99 Do

Begin

Write (F, i);

I:=i+2;

End;

Close (F);

End.

Tạo một tệp số nguyên

Tạo một tệp số nguyên tố

Tạo một tệp số nguyên lẻ

Tạo một tệp số nguyên chẵn

Câu 49: 0.2 điểm

SUCC(x) là hàm:

Cho giá trị đứng trước x

Cho giá trị đứng sau x

Cho số thứ tự của kí tự x trong bảng mã ASCII

Trả về kí tự thứ x trong bảng mã ASCII

Câu 50: 0.2 điểm

Đoạn mã sau in kết quả nào?
Var
Tong, I: Integer;
Begin
Tong:=0;
I:=1;
Repeat
Tong:= Tong+I;
I:=i+1;
Until i>1;
Writeln('Tong=',tong);
End.

Đề thi tương tự

Đề Thi Trắc Nghiệm Lập Trình Cấu Trúc Pascal - HUBT

3 mã đề 104 câu hỏi

200 Câu Hỏi Trắc Nghiệm Lập Trình Java Miễn Phí Có Đáp Án

4 mã đề 200 câu hỏi

Trắc nghiệm Lập trình Thiết bị Di động (Mobile Programming)

1 mã đề 60 câu hỏi

Trắc Nghiệm Lập Trình Trực Quan Cơ Sở Và Nâng Cao HUBT

7 mã đề 265 câu hỏi

Trắc nghiệm Lập trình Mạng - Đại học Kinh doanh và Công nghệ Hà Nội (HUBT)

6 mã đề 240 câu hỏi

LetQA - Ôn luyện đề thi trắc nghiệm online miễn phí

Về chúng tôi

LetQA là công cụ hỗ trợ học sinh, sinh viên, giáo viên, tổ chức trong việc ôn luyện, kiểm tra kiến thức online; website được cung cấp miễn phí cho tất cả người dùng.
LetQA KHÔNG cung cấp dịch vụ mạng xã hội, không cung cấp thông tin tổng hợp và không thu phí người dùng.

Thông tin liên hệ & hỗ trợ

Email: [email protected]

Facebook: LetQA (fb.com/letqavn)

Liên kết phổ biến

Nhóm học tập trao đổi

Yêu cầu bổ sung đề thi

Đóng góp đề thi