wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

kiểm tra học kì 11p

Total questions: 25

Worksheet time: 13mins

Name
Class
Date
1.

Khai báo nào sau đây là đúng?

a)

Var a:string;

b)

Var a:string[1..50];

c)

Var c:string[0];

d)

Var c:array[10] of byte;

2.

Các khai báo nào sau đây là đúng?

a)

Var A: array[1..1000] of longint;

b)

Var C: array[1..10000] of c;

c)

Var A: array[1..1000] of string[20];

d)

Var A: array[1...1000] of longint;

3.

Đoạn chương trình sau dùng để làm gì?

Max:=a[1];

For i:=2 to n do

If a[i]>Max then Max:=a[i];

a)

Tìm giá trị lớn nhất của dãy số

b)

Tìm giá trị nhỏ nhất của dãy số

4.

Đoạn chương trình sau để tìm giá trị lớn nhất của dãy số là đúng hay sai?

Max:=a[1];

For i:=1 to n do

If a[i]>Max then Max:=a[i];

a)

Đúng

b)

Sai

5.

. Đoạn chương trình sau tìm giá trị nhỏ nhất của dãy số nguyên là đúng hay sai?

Min:=a[1];

For i:=2 to n do

If a[i]>Min then Min:=a[i];

a)

Đúng

b)

Sai

6.

Đoạn chương trình sau tìm giá trị lớn nhất của dãy số nguyên là đúng hay sai?

Max:=a[n];

For i:=1 to n-1 do

If a[i]>Max then Max:=a[i];

a)

Đúng

b)

Sai

7.

Đoạn chương trình sau tìm giá trị lớn nhất của dãy số nguyên là đúng hay sai?

Max:=a[n];

For i:=n down to 1do

If a[i]>Max then Max:=a[i];

a)

Đúng

b)

Sai

8.

. Đoạn chương trình sau tìm giá trị lớn nhất của số nguyên là đúng hay sai?

Max:=low(longint);

For i:=1 downto n do

If a[i]>Max then Max:=a[i];

a)

Đúng

b)

Sai

9.

Đoạn chương trình sau dùng để làm gì?

If a>b then max:=a else max:=b;

a)

Tìm giá trị lớn nhất của dãy số nguyên

b)

Tìm giá trị lớn nhất của 2 số a và b

10.

Đoạn chương trình sau dùng để làm gì?

Min:=a;

If a>b then min:=b;

a)

Tìm giá trị lớn nhất của dãy số nguyên

b)

Tìm giá trị nhỏ nhất của 2 số a và b

11.

Đoạn chương trình sau dùng để làm gì?

Tg:=a;

If b>tg then tg:=b;

If c>tg then tg:=c;

a)

Tìm giá trị lớn nhất của ba số nguyên

b)

Tìm giá trị nhỏ nhất của ba số nguyên

12.

Đoạn chương trình sau để tìm giá trị lớn nhất của 3 số a,b,c?

Max:=a;

If b>a then max:=b;

If c>a then max:=c;

a)

Đúng

b)

Sai

13.

Đoạn chương trình sau để tìm giá trị nhỏ nhất của 3 số a,b,c?

Max:=a;

If b<a then max:=b;

If c<a then max:=c;

a)

Đúng

b)

sai

14.

Để khai báo một biến mảng a tối đa 10000 phần tử, các phần tử là số nguyên có |ai|<=100000000, hãy chọn khai báo nào đúng?

a)

Var a: array[1..10000] of longint;

b)

Var a: array[1…10000] of longint;

c)

Var a: array[110000] of real;

d)

Var a: array[1..10000] of string;

15.

Khai báo biến xâu nào sau đây là đúng?

a)

Var A:string;

b)

Var A: string[1..10];

c)

Var C: string[100..1];

d)

Var C: array[1..100] of string;

16.

Hãy chọn các khai báo đúng?

a)

Var A:string; b:integer;c:integer;

b)

Var A:string; b:integer;c:longint;

c)

Var A:string; b;c:integer;

d)

Var A:string; Var b:integer, c:integer;

17.

Để đếm các số hạng có giá trị bằng k trong dãy, ta khởi tạo biến dem có giá trị là?

a)

0

b)

1

c)

2

d)

3

18.

Để đếm các số hạng bằng k, ta sử dụng các câu lệnh?

a)

For i:=1 to n do if a[i]=k then dem:=dem+1;

b)

For i:=n downto 1 do if a[i]=k then dem:=dem+1;

c)

For i:=n downto n do if a[i]=k then dem:=dem+1;

d)

For i:=n downto 2 do if a[i]=k then dem:=dem+1;

19.

Đoạn chương trình sau dùng để làm gì?

For i:=1 to n do

If a[i]= max then write(i,’ ‘);

a)

Hiển thị chỉ số các phần tử bằng max.

b)

Hiển thị giá trị lớn nhất của dãy.

c)

Hiển thị giá trị nhỏ nhất của dãy.

d)

Hiển thị vị trí đầu tiên đạt giá trị lớn nhất.

20.

Đoạn chương trình sau dùng để làm gì?

i:=1;

While a[i]< >max do i:=i+1;

Write(i+1);

a)

Hiển thị vị trí đầu tiên đạt max

b)

Hiển thị vị trí cuối cùng đạt max

c)

Hiển thị các vị trí đạt max

d)

Hiển thị các vị trí đạt min

21.

Đoạn chương trình sau dùng để làm gì?

i:=n;

While a[i]< >max do i:=i-1;

Write(i-1);

a)

Hiển thị vị trí cuối cùng đạt max

b)

Hiển thị vị trí đầu tiên đạt max

c)

Hiển thị các vị trí đạt max

d)

Hiển thị các vị trí đạt min

22.

Đoạn chương trình sau dùng để làm gì?

S:=0;

For i:=1 to n do if I mod 2=0 then S:=S+i;

a)

Tính tổng các số chẵn trong đoạn 1 đến n

b)

Tính tổng các số lẻ trong đoạn 1 đến n

23.

Đoạn chương trình sau dùng để làm gì?

S:=0;

For i:=1 to 2*n do if i mod 2=0 then S:=S+i;

a)

Tính tổng các số chẵn trong đoạn 1 đến 2*n

b)

Tính tổng các số lẻ trong đoạn 1 đến n

24.

Đoạn chương trình sau dùng để làm gì?

S:=0;

For i:=1 to n do

Begin

U:=u*2;

S:=S+2*u;

End;

a)

Tính tổng các số chẵn trong đoạn 1 đến 2*n

b)

Tính tổng các số chẵn trong đoạn 1 đến n

c)

Tính tổng các số trong đoạn 1 đến 2*n

d)

Tính tổng các số lẻ trong đoạn 1 đến 2*n

25.

Kết quả so sánh 2 xâu 'Anh' và'anh'?

a)

'Anh'>'anh'

b)

'Anh'<'anh'

c)

'Anh'='anh'