ÔN TẬP TIN HỌC 11
1) Ghép đôi tạo nghĩa
đúng nói về chương trình dịch?
*Biên dịch: Kiểm
tra toàn bộ chương trình nếu đúng cú pháp toàn bộ thì cho thực hiện
*Thông dịch: Kiểm
tra từng dòng lệnh nếu đúng cú pháp thì cho thực hiện
2) Ghép đôi đúng
nghĩa?
*Ngữ nghĩa: Xác định
ý nghĩa thao tác cần phải thực hiện
*Cú pháp: Là quy
tắc để viết chương trình
3) Ngôn ngữ lập trình
Pascal dùng loại chương trình dịch nào?
Biên dịch, Thông
dịch
4) Chọn các ký tự
không có trong bảng chữ cái của ngôn ngữ lập trình Pascal
$, @, %, !, ~
5) Trong Turbo
Pascal, tên là một dãy liên tiếp không quá …127...kí tự
6) Ghép các giá trị hằng
và kiểu dữ liệu thích hợp?
True->Logic; 3.14168->Số thực; 'Hello'->Xâu; 12->Số
nguyên.
7) Nhiều ngôn ngữ lập
trình, trong đó có Pascal, phân biệt ba loại tên: Tên dành riêng, tên …chuan…tên do người lập trình đặt.
8) Chọn đúng danh
sách các tên chuẩn trong ngôn ngữ lập trình Pascal
Var, Sqrt, Begin,
Writeln
9) Chọn đúng danh
sách tên dành riêng trong ngôn ngữ lập trình Pascal
Var, Abs, Sqr, Begin
10) Cho biết biểu diễn
nào dưới đây không phải là biểu diễn hằng trong ngôn ngữ lập trình Pascal?
150.0; -22; 6,23;
'43,2'; A20; 1.06E-15
11) Ghép đôi đúng
nghĩa
*Hằng: Là đại lượng
có giá trị không thay đổi trong quá trình thực hiện chương trình
*Biến: Là đại lượng
được đặt tên, dùng để lưu trữ giá trị và giá trị có thể được thay đổi trong quá
trình thực hiện chương trình
12) Chọn tên các kiểu dữ liệu chuẩn trong ngôn ngữ lập trình
Pascal?
World, Real, Interger,
Longint
13) Cho chương trình
Const s= 10;
Begin
s := s+1;
write(s);
readln;
End.
Chương trình trên sẽ ...
14) Ứng với mỗi kiểu dữ liệu trong ngôn ngữ lập trình
Pascal. Hãy chọn kích thước bộ nhớ lưu trữ tương ứng thích hợp?
Real->6 byte; Longint->4byte; Word->2 byte; Byte->1byte.
15) Cách khai báo biến
Var : a:real;
Là đúng hay sai?
16) Hãy chọn các toán tử hoặc hàm sau khi thực hiện kết quả
(nếu có) luôn trả về là số nguyên?
Div, Mod, Sqr, Sqrt, Trunc
17) Ghép đôi tên hàm trong ngôn ngữ lập trình Pascal và ý
nghĩa của chúng?
Sqrt(x): Trả về giá trị là căn bậc 2 của x; Sqr(x): Trả về
giá trị bình phương của x
Abs(x): Trả về giá trị tuyệt đối của x
18) Kết quả của biểu thức logic (5<=6) and (7>=8) là?
19) Kết quả của biểu thức logic (5<=6) and (7>=7)
20) Trong ngôn ngữ lập trình Pascal biểu thức sau đây
(a+b)/2*c có tương đương với biểu thức trong toán học hình bên cạnh?
21) Trong ngôn ngữ lập trình Pascal, để giải phương trình bậc
2 delta được tính bằng công thức
delta:= b*b -
4a*c;
Là đúng hay sai
22) Ghép đôi đúng chức năng của các phím tắt hoặc tổ hợp
phím tắt khi đang soạn thảo chương trình trong phần mêm Turbo Pascal?
F3: Bậc hộp thoại Open; F2: Save chương trình với tên hiện tại;
Ctrl+F9: Chạy chương trình; F7: Chạy từng bước chương trình
23) Sắp xếp thứ tự hợp lý các câu lệnh
Var a:integer;
Begin
readln(a);
a:=a*2;
writeln(' số
gấp đôi số vừa nhập vào là ',a);
readln;
End.
24) Trong chương trình viết bằng ngôn ngữ lập trình Pascal,
nếu một biến chỉ nhận giá trị nguyên trong phạm vi từ 10 đến 25532 thì biến đó
có thể được khai báo bằng các kiểu dữ liệu nào?
Byte, Longint, Integer, Word, Real
25) Trong chương trình viết bằng ngôn ngữ lập trình Pascal,
biến P có thể nhận các giá trị 5; 10; 15; 20; 30; 60; 90 và biến X có thể nhận
các giá trị 0.1; 0.2; 0.3; 0.4; 0.5. Khai báo nào trong các khai báo sau là
đúng?
Var X,P:byte; Var P: real; X:byte; Var P,X:real; Var X: real;
P:byte;
26) Để tính diện
tích S của hình vuông có cạnh A với giá trị nguyên nằm trong phạm vi từ 100 đến
120, cách khai báo S nào dưới đây là đúng và tốn ít bộ nhớ nhất?
Var S:integer; Var S: real; Var S:word; Var S:boolean; Var S:longint;
27) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
Var x, y: byte;
Begin
x := 14;
y := 25; x := x + y; y := x - y;
x := x - y;
writeln(x,’ ’,y);
readln;
End.
28) Hãy chọn ra
kiểu dữ liệu có kích thước bộ nhớ lớn nhất trong các kiểu sau:
Longint; real; string;
char
29) Cho đoạn chương trình sau:
x:=1;
x:=x/2 + (x div 2);
Nếu đoạn chương trình trên hoạt động bình thương thì kiểu dữ
liệu của x chỉ có thể là:
30) Cho đoạn chương trình sau:
x:=1.2;
write(x:0:3);
Kết quả hiển thị trên màn hình sẽ là:
1.2; 1.20; 1.200;
1.2000
31) Tính tổng dụng lượng bộ nhớ mà các biến trong đoạn
chương trình sau chiếm dụng:
Var a,b:real; c: char; d:boolean; e: longint;
Begin
………
End.
32) Cho đoạn chương trình sau:
a:=1;
if a>=1 then a:=2
else
a:=3;
Khi thực hiện xong đoạn chương trình trên giá trị của a là
bao nhiêu?
33) Cho đoạn chương trình sau:
a :=1;
if a>=1 then
a:=2;
if a>=2 then
a:=3;
Khi thực hiện xong đoạn chương trình trên giá trị của a là
bao nhiêu?
34) Xét chương trình sau:?
Var a, b: integer;
Begin
a:=345;
write(‘b=’);
readln(b);
if a<b
then write(‘Xin chao cac ban!’);
end.
Nhập giá trị bao nhiêu cho b để khi chạy chương trình nhận
được kết quả ‘Xin chao cac ban!’?
100; 200; 300; 400
35) Xét chương trình sau:
Var a, b: integer;
Begin
a:=575; b:=678;
if a<b then write(1);
if a=b then write(0);
if a>b then write(2);
end.
Kết quả của chương trình trên là:
36) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
Var a,b: integer;
BEGIN
a := 1; b := 2;
b := b + a; a := a + b;
writeln(a);
readln;
END.
37) Cho đoạn chương trình sau:
s1:=0; s2:=0;
for i:= 1 to 10 do
if i mod 2 = 0
then s1:= s1+i;
if i mod 2 =1 then s2:= s2+i;
Khi thực hiện xong đoạn chương trình trên giá trị của s2 là
bao nhiêu?
38) Cho đoạn chương trình sau:
s1:=0; s2:=0;
for i:= 1 to 10 do
if i mod 2 = 0
then s1:= s1+i else
s2:= s2+i;
Khi thực hiện xong đoạn chương trình trên giá trị của s2 là
bao nhiêu?
39) Cho đoạn chương trình sau:
s1:=0; s2:=0;
for i:= 1 to 10 do
if i mod 2 = 0
then s1:= s1+i ;
s2:= s2+i;
Khi thực hiện xong đoạn chương trình trên giá trị của s2 là
bao nhiêu?
40) Cho biết kết quả của a khi thực hiện đoạn chương trình
sau:
a:=17;
While a>10 do
a:= a-5;
41) Cho biết kết quả hiển thị trên màn hình khi thực hiện đoạn
chương trình sau:
i:=3;
While i<10 do
begin
i:= i+2;
write( i );
end;
42) Cho biết giá trị của a khi thực hiện đoạn chương trình
sau:
for i:=1 to 10 do
b[ i ]:= i * 2;
a:=0;
for i:=1 to 10 do
if b[ i ] mod 4 =
1 then a:= a+ b[ i ];
43) Cho đoạn chương trình:
f[1]:=1; f[2]:=2;
for i:= 3 to 10 do
f[ i ]:= f[ i -1] +
f[ i -2];
Sau khi thực hiện đoạn chương trình trên thì giá trị của
f[5] là?
44) Xét chương trình sau:
Var i, s: integer;
Begin
S:=1;
For i:=1 to 5 do s:=s*i;
Writeln(s);
End.
Kết quả của chương trình trên là:
45) Xét chương trình sau:
Var i, s: integer;
Begin
S:=0;
For i:=1 to 5 do s:=s+i;
Writeln(s);
End.
Kết quả của chương trình trên là:?
46) Cho đoạn chương trình sau:
s:='I''m a teacher'; {đã dùng 2 khoảng trắng và 4 dấu nháy
đơn}
i:= length(s);
Sau khi thực hiện xong giá trị của i sẽ là?
47) Cho đoạn chương trình sau:
s:='I''m a teacher'; {đã dùng 2 khoảng trắng và 4 dấu nháy
đơn}
i:= pos('a',s);
Sau khi thực hiện xong giá trị của i sẽ là?
48) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3 khoảng trắng}
i:= copy(s,6,3);
Sau khi thực hiện xong giá trị của i sẽ là?
49) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3 khoảng trắng}
i:= upcase(s[8]);
Sau khi thực hiện xong giá trị của i sẽ là?
50) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3 khoảng trắng}
delete(s,3,5);
Sau khi thực hiện xong giá trị của s sẽ là?
51) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3 khoảng trắng}
t:='abc';
Insert(t,s,3);
Sau khi thực hiện xong giá trị của s sẽ là?
52) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3 khoảng trắng}
d:=0;
for i:=3 to length(s) do
if s[i]=' ' then
{s[i] bằng nháy cách nháy}
d:= d+1;
Sau khi thực hiện xong giá trị của d sẽ là?
53 ) Cho đoạn chương trình sau:
s:='I am a teacher'; {đã dùng 3
khoảng trắng}
d:=0;
for i:=1 to length(s) do
if pos(s[i],s)=i then
d:= d+1;
Sau khi thực hiện xong giá trị của
d sẽ là?
54) Cho đoạn chương trình sau:
s:='Nguyen Van Tho';
i:= pos(' ',s); {đọc là nháy cách nháy phẩy s}
d:= copy(s,1,i);
Sau khi thực hiện xong giá trị của d sẽ là?
55) Cho đoạn chương trình sau:
s:='Nguyen Van Tho';
while pos(' ',s)>0 do {đọc là nháy cách nháy phẩy s}
delete(s,1,pos('
',s));{đọc là nháy cách nháy phẩy s}
Sau khi thực hiện xong giá trị của s sẽ là?
56) Cho đoạn chương trình sau:
s:='em la em';
while pos('em',s)>0 do
delete(s,pos('em',s),2);
Kết quả thực hiện đoạn chương trình trên s sẽ là ?
57) Cho đoạn chương
trình sau:
s:='em la em';
If pos('em',s)>0 do
delete(s,pos('em',s),2);
Kết quả thực hiện đoạn chương trình trên s sẽ là
58) Cho đoạn chương trình sau:
s:='em la em';
While pos('em',s)>0 do
begin
insert('anh',s,pos('em',s));
delete(s,pos('em',s),2);
end;
Kết quả thực hiện đoạn chương trình trên s sẽ là?
59) Cho đoạn chương trình sau:
d:=0;
s:='123abc456';
for i:=1 to length(s) do
if s[i] in ['0' ..
'9'] then {nếu s[i] là 1 trong các kí số 0 đến 9 thì}
d:= d+1;
Sau khi thực hiện xong, giá trị của d là ?
60) Ghép đôi đúng nghĩa?
Hàm: Là chương
trình con thực hiện một số thao tác nào đó và trả về một giá trị qua tên của
nó.
Thủ tục: Là
chương trình con thực hiện các thao tác nhất định nhưng không trả về giá trị
nào qua tên của nó.
61) Trong các chương trình con (được xây dựng sẳn) chương
trình con nào là thủ tục?
Copy, Insert, Write, Sqr, Delete
62) Cho chương trình:
function abc(x:real):real;
begin
abc:= x*x -
x;
end;
begin
write(abc(3):0:0);
end.
Khi chạy chương trình sẽ cho kết quả trên màn hình là:?
63) Cho chương trình:
function abc(x:real):real;
begin
abc:= 0;
end;
begin
write(abc(5):0:0);
end.
Khi chạy chương trình sẽ cho kết quả trên màn hình là:?
64) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
var i, S : integer ;
begin
S := 0;
for i := 1 to 10 do
if i mod 3 =
0 then S := S + i ;
write (S);
readln;
end.
65) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
Var m: array[1..10] of Integer;
i, t : integer
;
Begin
t:= 0;
for i:=1 to 10 do
if i mod 2 <> 0 then
t := t + i;
write(t);
End.
66) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
Var x, y, z, t : integer;
Begin
x := 3; y := 5;
z := 6; t := 4;
if x >= y
then
if y > z –1
then t := y else
t := x +1
else t := y;
writeln ( t);
readln;
End.
67) Không thực hiện chương trình, hãy đoán kết quả thực hiện
chương trình Pascal sau:
Var x, y, z, t : integer;
Begin
x := 5;
y := 3;
z := 5;
t : = 1;
while (x>y) and
(z>t) do
begin
t := x – y + t;
t := t +1;
end;
writeln (t );
readln;
End.
68) Cho chương trình sau:
Var a,b,c:integer;
Procedure hoandoi(var a,b:integer);
Begin
c:=a; a:=b;b:=c;
End;
Begin
a:=1;b:=2;c:=3;
hoandoi(a,b);
End.
Sau khi thực hiện chương trình, hãy cho biết?
69) Cho chương trình sau:
Var a,b,c:integer;
Procedure hoandoi(var a,b:integer);
Begin
c:=a; a:=b; b:=c;
End;
Begin
a:=1; b:=2; c:=3;
hoandoi(a,b);
End.
Sau khi thực hiện chương trình, hãy cho biết?
70) Cho chương trình sau:
Var a,b,c:integer;
Function abc(var a:integer; b:integer):integer;
Begin
If a>b then a:=b
else b:=a + 2;
abc:=a+b;
End;
Begin
a:=1;
b:=2;
c:= abc(a,b);
End.
Sau khi thực hiện chương trình, hãy cho biết?
