NEW
Font size
WorksheetsÔn Tập Pascal ĐB HKII
Total questions: 25
Worksheet time: 13mins
Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện các câu lệnh (Giả sử X là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
X:=3;
if (200 mod 2 = 0) then X := X div 3;
Không có đáp án đúng
0
1
2
Kết quả của đoạn chương trình sau là bao nhiêu (giả sử a, tích là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
a:=3;
tich:=1;
while (a>0) do
begin
tich := tich * a;
a := a -1;
end;
write(tich);
Không có đáp án đúng
5
6
4
Hãy cho biết kết quả của câu lệnh lặp sau:
for i:= 1 to 5 do write(i, ' ');
Không có đáp án đúng
2 4
1 2 3 4 5
1 3 5
Pascal sử dụng câu lệnh lặp nào sau đây để lặp với số lần chưa biết trước:
if...then
While...do
if...then...else
For...do
Phát biểu nào sau đây có thể lấy làm biểu thức điều kiện trong cấu trúc rẽ nhánh?
"A nho hon B"
2*5 := 10
3 <> 7
20 div 2
Cho khai báo mảng sau: Var A:array[1..10] of integer;
Câu lệnh gán nào sau đây là hợp lệ cho phần tử thứ 1 của mảng A:
Không có đáp án đúng
A 1 := 1;
A[1] := 1;
A[1] = 1;
A[1] := 1.5;
Kết quả của đoạn chương trình sau:
For i:= 1 to 20 do writeln('Kiem Tra HK2');
in ra màn hình 20 dòng chữ Kiểm Tra HK2 (không có dấu nháy đơn)
in ra màn hình 19 dòng chữ Kiểm Tra HK2 (không có dấu nháy đơn)
Đáp án khác
in ra màn hình 21 dòng chữ Kiểm Tra HK2 (không có dấu nháy đơn)
Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng cú pháp:
for i = 0 to 99 do write(i);
for i := 0 to 99; do write(i);
for i := 99 to 0 do write(i);
for i := 0 to 99 do write(i);
Hãy cho biết kết quả của đoạn chương trình dưới đây (giả sử diem là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
diem := 10;
while (diem > 0) do writeln(diem);
Trên màn hình xuất hiện 10 chữ diem
Chương trình bị lặp vô tận
Trên màn hình xuất hiện một số 10
Trên màn hình xuất hiện mười số 10
Hãy cho biết giá trị của biến n bằng bao nhiêu sau khi thực hiện các câu lệnh (giả sử n là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
n := 20;
If n >20 then n := n mod 20
Else n := n div 2;
20
Đáp án khác
10
0
Các câu lệnh Pascal nào sau đây được viết đúng (trong đó x, a, b, m, n là các biến thuộc kiểu dữ liệu số nguyên và đã được khai báo trong chương trình):
If (x > 4) then a:=b; else m:=n;
If (x > 4); then a:=b;
If (x > 4) then a:=b else m:=n;
If (x := 5) then a:=b;
Hãy chọn câu lệnh cấu trúc rẽ nhánh dạng đủ đúng cú pháp (giả sử a, b, c là các biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
If a>b then write(a), write(b);
If a>b then write(a) ; Else write(b);
If a>b then write(a) Else write(b);
If a>b then write(a);
Sau khi thực hiện đoạn chương trình sau giá trị của biến d bằng bao nhiêu?
(giả sử a, d, i là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
a :=7;
d := 0;
For i:= 1 to a do
if (a mod i = 0) then d := d + i;
8
6
Đáp án khác
5
Hãy cho biết kết quả của đoạn chương trình dưới đây (giả sử a là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
a := 5;
while (a>=0) do
begin
write(a, ' ');
a:= a-2;
1 2 3 4 5
5 4 3 2 1
Đáp án khác
5 3 1
Hãy chọn câu lệnh sai cú pháp trong đoạn chương trình bên dưới:
a := 5*5; (dòng 1)
tong := 0; (dòng 2)
while(a >= 20) do (dòng 3)
begin (dòng 4)
tong := tong + a; (dòng 5)
a := a-1; (dòng 6)
end. (dòng 7)
write(tong); (dòng 8)
Đáp án khác
dòng 7
dòng 5
dòng 3
Cho các câu lệnh sau đây hãy chỉ ra câu lệnh đúng:
While a>=5 do ; write(a);
While a>=5 to write(a);
While a>=5 to write(a) do a := a+1;
While a>=5 do write(a);
Số phần tử trong khai báo dưới đây là bao nhiêu?
Var soluongsach : array[50..99] of integer;
50
51
Không có đáp án đúng
49
Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu (giả sử a là biến thuộc kiểu dữ liệu số nguyên đã được khai báo trong chương trình):
a := 0;
For i:=8 to 17 do a:= a+1;
Không có đáp án đúng
10
9
11
Hãy cho biết kết quả của chương trình sau:
Uses crt;
Var DTB: real;
begin
clrscr;
DTB := 7;
If (DTB>=8) then write('Gioi');
If (DTB<8) and (DTB>=6.5) then write('Kha');
If (DTB<6.5) and (DTB>=5) then write('Trung binh');
If (DTB<5) and (DTB>=3.5) then write('Yeu');
If (DTB<3.5) then write('Kem');
Readln;
End.
Kha
Trung binh
Gioi
Không có đáp án đúng
Sau khi thực hiện chương trình sau, giá trị của biến count bằng bao nhiêu (giả sử các phần tử trong mảng a lần lượt được nhập các giá trị như sau: a[1] = 9, a[2]=12; a[3]=33; a[4]=19; a[5]=55; a[6]=26; a[7]=97; a[8]=58; a[9]=11, a[10]=10):
Uses crt;
Var
a : array[1..10] of integer;
i, count : integer;
Begin
Clrscr;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if(a[i] mod 2 = 1) then count := count +1;
write(count);
readln;
End.
6
Không có đáp án đúng
3
4
Ý nghĩa của câu lệnh sau:
For i := 1 to 10 do readln(a[i]);
Nhập lần lượt các giá trị của 10 phần cho mảng a từ bàn phím
Xuất 10 phần tử từ mảng a ra màn hình
nhập phần giá trị phần tử thứ 10 vào mảng a
đáp án khác
Các cách nhập dữ liệu cho biến mảng sau, cách nhập nào không hợp lệ?
readln(B[9]);
readln(kitu[i]);
readnln(diemTB);
Không có đáp án đúng
Cách khai báo biến mảng sau đây là đúng?
Var DanhSachLop : Array[1..35.5] of Integer;
Var DanhSachLop : Array[35..1] of Integer;
Var DanhSachLop : Array[1..35] of integer;
Var DanhSachLop : Array[10 , 13] of Integer;
Sau khi thực hiện chương trình sau, giá trị của biến x bằng bao nhiêu (giả sử các phần tử trong mảng a lần lượt được nhập các giá trị như sau: a[1]=5, a[2]=3, a[3]=10, a[4]=90, a[5]=35):
Uses crt;
Var
a : array[1..10] of integer;
x, i: integer;
Begin
Clrscr;
For i := 1 to 5 do readln(a[i]);
x := a[1];
for i:=2 to 5 do
if (a[i] > x) then x := a[i];
write(x);
Readln;
End.
5 3 10 90 35
3
90
Không có đáp án đúng
Giả sử biến b khai báo là kiểu số nguyên và được gán giá trị như sau: b := 100;
Hãy chọn câu lệnh SAI cú pháp:
if(b>100) then write('yes') else write('no');
for i:=1 to b do write('KT HK2');
var b : of integer;
while (b = 100) do readln(b);
