Cho đoạn chương trình sau:

s := ‘100 ki tu’;

write(length(s));

Kết quả in ra màn hình là:

A. 100

B. 9

C. ‘9’

D. ‘100’

Cho đoạn chương trình sau:

s1 := ‘123456789’;

s2 := copy(s1, 5, 3);

write(s2);

Kết quả in ra màn hình là:

A. ‘567’

B. 567

C. ‘34567’

D. 34567

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abcd’;

insert (s1, s2 , 2);

write(s2);

Kết quả in ra màn hình là:

A. ‘123abcd’

B. ‘a123bcd’

C. ‘ab123cd’

D. ‘abc123d’

Cho đoạn chương trình sau:

s := ‘123456789’;

delete (s, 1, 6);

write(s);

Kết quả in ra màn hình là:

A. ‘6789’

B. ‘789’

C. ‘9’

D. ‘’

Trong các phát biểu sau, phát biểu nào sai?

A. Xâu A lớn hơn xâu B nếu kí tự dầu tiên khác nhau giữa chúng kể tử trái sang trong xâu A có mã ASCII lớn hơn

B. Nếu A và B là các xâu có độ dài khác nhau và A là đoạn đầu của B thì A nhỏ hơn B

C. Xâu A lớn hơn xâu B nếu độ dài xâu A lớn hơn độ dài xâu B

D. Hai xâu bằng nhau nếu chúng giống nhau hoàn toàn

Cho đoạn chương trình sau:

write(‘123456’+‘abc’);

Kết quả in ra màn hình là:

A. ‘123456abc’

B. ‘abc123456’

C. ‘123456’

D. ‘abc’

Trong Pascal, cú pháp khai báo biến kiểu xâu là:

A. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;

B. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;

C. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;

D. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;

Biến Hoten lưu trữ giá trị hằng xâu ‘Nguyen Van Troi’ thì Hoten[5] cho ta kí tự là:

A. ‘ ’

B. ‘y’

C. ‘e’

D. ‘n’

Cho đoạn chương trình sau:

s := 'Mua Thu';

write(upcase(s[1]));

Kết quả in ra màn hình là:

A. ‘T’

B. ‘U’

C. ‘A’

D. ‘M’

Cho đoạn chương trình sau:

s1 := ‘abc’; s2 := ‘abcd’;

write(pos(s1, s2));

Kết quả in ra màn hình là:

A. 0

B. ‘0’

C. 1

D. ‘1’

Cho đoạn chương trình sau:

s := ‘500 ki tu’;

write(length(s));

Kết quả in ra màn hình là:

A. 500

B. 9

C. ‘9’

D. ‘500’

Cho đoạn chương trình sau:

s1 := ‘123456789’;

s2 := copy(s1, 3, 1);

write(s2);

Kết quả in ra màn hình là:

A. ‘123’

B. 123

C. ‘3’

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abcd’;

insert (s1, s2 ,4);

write(s2);

Kết quả in ra màn hình là:

A. ‘123abcd’

B. ‘a123bcd’

C. ‘ab123cd’

D. ‘abc123d’

Cho đoạn chương trình sau:

s := ‘123456789’;

delete (s, 1, 9);

write(s);

Kết quả in ra màn hình là:

A. ‘6789’

B. ‘789’

C. ‘9’

D. ‘’

Trong các phát biểu sau, phát biểu nào sai?

A. Xâu A lớn hơn xâu B nếu độ dài xâu A lớn hơn độ dài xâu B

B. Xâu A lớn hơn xâu B nếu kí tự dầu tiên khác nhau giữa chúng kể tử trái sang trong xâu A có mã ASCII lớn hơn

C. Nếu A và B là các xâu có độ dài khác nhau và A là đoạn đầu của B thì A nhỏ hơn B

Cho đoạn chương trình sau:

s1:= ‘123456’; s2:= ‘abc’;

write(s1+s2);

Kết quả in ra màn hình là:

A. ‘123456’

B. ‘abc123456’

C. ‘123456abc’

D. ‘abc’

Trong Pascal, cú pháp khai báo biến kiểu xâu là:

A. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;

B. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;

C. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;

D. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;

Biến Hoten lưu trữ giá trị hằng xâu ‘Nguyen Van Troi’ thì Hoten[4] cho ta kí tự là:

A. ‘ ’

B. ‘y’

C. ‘e’

D. ‘n’

Viết chương trình:

- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).

- Đếm và tính tổng các số chẵn và là bội của 3. Thông báo kết quả ra màn hình.

Viết câu lệnh rẽ nhánh tính:

Cho giá trị a=31, b=16, c=8, d=5. Hãy xác định giá trị của biểu thức D:

D:= sqr(d) + b > c*d + a

(Tính cụ thể từng bước)

Cho biết kết quả sau khi thực hiện lệnh:

Begin

a := 100;  b := 30;  x := a div b; Write(x);

End.

A. 10

B. 33

C. 3

D. 1

Để biên dịch chương trình, trong Pascal ta nhấn tổ hợp phím:

A. Ctrl + F9

B. Alt + F9

C. Alt + F8

D. Shift + F9

Để nhập giá trị cho 2 biến a và b ta dùng lệnh:

A. Write(a,b);

B. Real(a.b);

C. Read(‘a,b’);

D. Readln(a,b);

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:

A. Write(a:8:3, b:8);

B. Readln(a,b);

C. Writeln(a:8, b:8:3);

D. Writeln(a:8:3, b:8:3);

Biểu thức 3 div 7 có giá trị là:

A. 2

B. 1

C. 0

D. 7

Cho biết kết quả của biểu thức (2*((45 mod 3) +12)) div 5 là bao nhiêu?

A. 2

B. 4

C. 6

D. 8

Phép toán nào đúng khi số nguyên A là số lẻ:

A. A mod 2 = 0

B. A div 2 = 1

C. A div 2 = 0

D. A mod 2 = 1

Trong pascal, biểu diễn sqr(x) có nghĩa là:

A. Bình phương của x

B. Căn bậc hai của x

C. Giá trị tuyệt đối của x

D. Luỹ thừa cơ số e của x

Biểu thức nào không phải là biểu thức trong Pascal?

A. (a+x)*(b+y)/2

B. ( m div 5 >=2 ) hoặc ( m <=2)

C. a*sqr(x) + b*x + c = 0

D. Not (a >10)

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)

Với giá trị nào của n sau đây, biểu thức có giá trị đúng?

A. 121

B. 2001

C. 201

D. 1200

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <5 do

Begin

       if I mod 3 = 0 then Write(‘TIN HOC’);

i:=i+1;

End;

Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Cho biết kết quả của đoạn chương trình sau?

N:=5; Tong:=0;

For i:=1 to n do

If (i mod 2=0) then Tong:=Tong + i;

Write(Tong);

A. 3

B. 1

C. 6

D. 2

Cho đoạn chương trình:

Kq:=1;

For i:=1 to 5 do

Kq:=Kq*i;

Kết quả sau khi chạy là :

A. 0

B. 120

C. 60

D. 20

Biểu thức ((35 mod 9) div 5) có kết quả là mấy?

A. 1

B. 3

C. 4

Biến X có thể nhận giá trị: 0.5; 1.5; 2.5; 3.5; 4.5 và biến Y có thể nhận các giá trị 0; 1; 3; 5; 7; 9. Khai báo biến nào sau đây là đúng?

A. Var X: Byte; Y: Real;

B. Var X: Real; Y: Byte;

C. Var X, Y: Integer;

Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?

A. 20

B. x+y

C. 10

D. 30

Biểu thức Pascal: (a+cos(x))/sqrt(sqr(a)+sqr(x)+1) khi chuyển sang toán học có dạng:

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?

A. 208

B. 2009

C. 166509

D. 99

Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?

A. c + a > b;

B. a - b > c;

C. c – b ≥ a;

D. c - a > b.