De 1
1 - Trong ngôn ngữ lập trình Pascal, xâu ký tự là gì?
[a]--Mảng các ký tự;
[b]--Dãy các ký tự trong bảng mã ASCII;
[c]--Tập hợp các chữ cái trong bảng chữ cái tiếng anh;
[d]--Tập hợp các chữ cái và các chữ số trong bảng chữ cái tiếng anh;
2 - Trong ngôn ngữ lập trình Pascal cách khai báo xâu ký tự nào sau đây là đúng:
[a]--S: file of String;
[b]--S: file of char;
[c]--S: String;
[d]--S: Strings[255];
3 - Trong ngôn ngữ lập trình Pascal, xâu ký tự có tối đa là:
[a]--8 Ký tự
[b]--256 ký tự
[c]--16 Ký tự
[d]--255 ký tự
4 - Trong ngôn ngữ lập trình Pascal xâu ký tự không chứa ký tự nào gọi là:
[a]--Xâu trắng;
[b]--Xâu không;
[c]--Xâu rỗng;
[d]--Không phải là xâu ký tự
5 - Trong ngôn ngữ lập trình Pascal phần tử đầu tiên của xâu ký tự mang chỉ số là:
[a]--0
[b]--1
[c]--Do người lập trình khai báo
[d]--Không có chỉ số
6 - Trong ngôn ngữ lập trình Pascal, khai báo nào trong các khai báo sau là sai khi khai báo xâu ký tự.
[a]--S: String;
[b]--X1: String[100];
[c]--S: String[256];
[d]--X1:String[1];
7 - 20. Trong ngôn ngữ lập trình Pascal sau khi thực hiện đoạn chương trình sau, giá trị của biến S là:
S:=’Ha Noi mua thu’;
Delete(S,7,8);
Insert(’Mua thu’,S,1);
[a]--Ha Noi Mua thu;
[b]--Mua thu Ha Noi mua thu;
[c]--Mua thu Ha Noi;
[d]--Ha Noi;
8 - Trong ngôn ngữ lập trình Pascal, với xâu ký tự ta có thể:
[a]--So sánh hai xâu ký tự;
[b]--So sánh hai xâu ký tự, gán biến xâu cho biến xâu và gán một ký tự cho biến xâu;
[c]--Gán biến xâu cho biến xâu và gán một ký tự cho biến xâu;
[d]--So sánh và gán một biến xâu cho biến xâu.
9 - Trong ngôn ngữ lập trình Pascal, hai xâu ký tự được so sánh dựa trên:
[a]--Mã của từng ký tự trong các xâu lần lượt từ trái sang phải;
[b]--Độ dài tối đa của hai xâu;
[c]--Độ dài thực sự của hai xâu;
[d]--Số lượng các ký tự khác nhau trong 2 xâu;
10 - Trong ngôn ngữ lập trình Pascal, hàm Upcase(ch) cho kết quả là:
[a]--Chữ cái in hoa tương ứng với ch;
[b]--Xâu ch toàn chữ thường;
[c]--Xâu ch toàn chữ hoa;
[d]--Biến ch thành chữ thường;
Question 1 b
Question 2 c
Question 3 d
Question 4 c
Question 5 b
Question 6 c
Question 7 c
Question 8 b
Question 9 a
Question 10 a
De 2
1 - Trong ngôn ngữ lập trình Pascal, chương trình sau thực hiện công việc gi?
Dem:=0;
For ch:=’a’ to ’z’ do
[a]--Đếm số lượng ký tự khác dấu cách (khoảng trắng) của xâu S;
[b]--Đếm số lượng ký tự là chữ cái in hoa của xâu S;
[c]--Đếm số lượng ký tự là những chữ thường của xâu S;
[d]--Đếm số lượng ký tự là những chữ thường khác nhau của xâu S;
2 - Trong ngôn ngữ lập trình Pascal, chương trình sau thực hiện công việc gi?
X:= length(s);
For i:=x downto 1 do
If S[i] =’ ’ then delete(s,i,1); (’’ là khoảng trắng, dấu cách)
[a]--Xóa dấu cách(khoảng trắng) đầu tiên trong xâu ký tự S;
[b]--Xóa dấu cách(khoảng trắng) thừa trong xâu ký tự S;
[c]--Xóa dấu cách(khoảng trắng) tại vị trí cuối cùng trong xâu ký tự S;
[d]--Xóa mọi dấu cách(khoảng trắng) trong xâu ký tự S;
3 - Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?
S1:=’anh’; S2:=’em’;, i:=Pos(s1,s);
While i<> 0 do
Begin
Delete(s,i,2);
Insert(s1,s,i);
i:=pos(s2,s);
End;
[a]--Thay toàn bộ cụm từ ’anh’ trong xâu S bằng cụm từ ’em’;
[b]--Thay toàn bộ cụm từ ’em’ trong xâu S bằng cụm từ ’anh’;
[c]--Thay toàn bộ cụm từ ’em’ đầu tiên trong xâu S bằng cụm từ ’anh’;
[d]--Thay toàn bộ cụm từ ’anh’ đầu tiên trong xâu S bằng cụm từ ’em’;
4 - Trong ngôn ngữ lập trình Pascal sau khi thực hiện xong đoạn chương trình biến Found có giá trị là gi? (s là biến xâu ký tự)
Found:=0; x:=length(s);
For i:=1 to x div 2 do
If s[i] <> s[x-i+1] then found:=1;
[a]--Found = 0 nếu s là xâu đối xứng;
[b]--Found = 0 nếu s là xâu không đối xứng;
[c]--Found = 1 nếu s là xâu đối xứng;
[d]--Found không có giá trị gì;
5 - Trong ngôn ngữ lập trình Pascal, để xóa ký tự đầu tiên của xâu ký tự S ta viết:
[a]--delete(s,1,1);
[b]--delete(s,1,i); {i là biến có giá trị bất kỳ}
[c]--delete(s, length(s),1);
[d]--delete( 1,S,1);
6 - Trong ngôn ngữ lập trình Pascal, đoạn chươn trình sau thực hiện công việc nào trong các công việc sau:
i:=pos(’ ’,S); {’ ’ là 2 dấu cách}
While i<>0 do
Begin
Delete(s,i,1);
i:=pos(’ ’, s);
End;
[a]--Xóa hai dấu cách liên tiếp nhau đầu tiên trong xâu;
[b]--Xóa đi một trong 2 dấu cách đầu tiên trong xâu;
[c]--Xóa các dấu cách trong xâu s để s không còn 2 dấu cách liền nhau;
[d]--Xóa các dấu cách liền nhau cuối cùng trong xâu;
7 - Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đây làm công việc gì?
I:=pos (’’,X); (’’ la một dấu cách)
While i<>0 do
Begin
Delete(x,I,1);
I:=Pos(’’,X);
End;
[a]--Xóa tất cả các dấu cách trong xâu x;
[b]--Xóa tất cả các dấu cách bên trái của xâu x;
[c]--Xóa tất cả các dấu cách bên phải của xâu x;
[d]--Xóa tất cả các dấu cách ở hai đầu của xâu x;
8 - Trong ngôn ngữ lập trình Pascal, để in một xâu ra màn hình theo thứ tự ngược lại giữa các ký tự trong xâu (Ví dụ ’abcd’ thì in ra là ’dcba’), đoạn chương trình nào sau đây thực hiện việc này?
[a]--For i:=1 to length(s) do write(s[i]);
[b]--For i:= length(s) downto 1 do write(s[i]);
[c]--For i:=1 to length(s) do write(s);
[d]--For i:=1 to length(s) div 2 do write(s[i]);
9 - Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?
d:=0;
for i:=1 to length(s) do
if s[i]=’ ’ then d:=d+1; {’’ là khoảng trắng};
[a]--Xóa các dấu khoảng trắng trong xâu s;
[b]--Đếm số dấu cách có trong xâu s;
[c]--Xóa đi các chữ số có trong xâu s;
[d]--Xóa đi chữ số đầu tiên trong xâu s;
10 - Số lượng phần tử trong tệp
[a]--Không được lớn hơn 128;
[b]--Không được lớn hơn 255;
[c]--Phải được khai báo trước;
[d]--Không bị giới hạn mà chỉ phụ thuộc vào dung lượng đĩa;
Question 1 d
Question 2 d
Question 3 b
Question 4 a
Question 5 a
Question 6 c
Question 7 a
Question 8 b
Question 9 b
Question 10 d
De 3
1 - Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
[a]--Type 1chieu=array[1..100] of char;
[b]--Type 1chieu=array[1-100] of char;
[c]--Type mang1c=array(1..100) of char;
[d]--Type mang1c=array[1..100] of char;
2 - Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
[a]--Type 2mang=array[1..100,1..100] of char;
[b]--Type mang=array[1-100,1-100] of char;
[c]--Type mang2c=array[1..100,1..100] of char;
[d]--Type mang2c=array[1..100][1..100] of char;
3 - Trong ngôn ngữ lập trình Pascal :
[a]--Các phần tử của mảng một chiều được sắp thứ tự theo chỉ số;
[b]--Các phần tử của mảng một chiều được sắp thứ tự giá trị giảm dần;
[c]--Các phần tử của mảng một chiều được sắp thứ tự giá trị tăng dần;
[d]--Các phần tử của mảng một chiều không sắp thứ tự;
4 - Trong ngôn ngữ lập trình pascal, với khai báo mảng A: array[1..100,1..100] of integer thì việc truy xuất đến các phần tử như sau:
[a]--A[i],[j] [b]--A[i;[j] [c]--A[i][j] [d]--A[i,j]
5 - Trong ngôn ngữ lập trình pascal, với khai báo mảng A:array[1..100] of array[1..100] of integer thì việc truy xuất đến các phần tử như sau:
[a]--A[i],[j] [b]--A[i;[j]
[c]--A[i][j] [d]--A[i,j]
6 - Trong ngôn ngữ lập trình pascal, trong quá trình nhập dữ liệu của mảng một chiều, để giá trị i cũng tăng theo phần tử thứ i ta viết như sau:
[a]--Write(’A[’,i,’]=’); readln(A[i]);
[b]--Write(’A[i]=’); readln(A[i]);
[c]--Write(’A[’i’]=’); readln(A[i]);
[d]--Write("A[",i,"]="); readln(A[i]);
7 - Trong ngôn ngữ lập trình pascal, trong quá trình nhập dữ liệu của mảng hai chiều, để giá trị i,j cũng tăng theo phần tử thứ i,j ta viết như sau:
[a]--Write(’A[’,i,j,’]=’); readln(A[i,j]);
[b]--Write(’A[’,i,’,’,j,’]=’); readln(A[i,j]);
[c]--Write(’A[’i,j’]=’); readln(A[i]);
[d]--Write("A[",i,j,"]="); readln(A[i]);
8 - Trong ngôn ngữ lập trình pascal, trong quá trình xuất dữ liệu của mảng hai chiều Am,n. để các phần tử hiển thị đúng như mô hình của mảng hai chiều ta viết lệnh như sau:
[a]--For i:=1 to m do
For j:=1 to n do Write(A[i,j]:5);
[b]--For i:=1 to m do
Begin
For j:=1 to n do Write(A[i,j]:5);
End;
[c]--For i:=1 to m do
Begin
For j:=1 to n do Writeln;
End;
[d]--For i:=1 to m do
Begin
For j:=1 to n do Write(A[i,j]:5);Writeln;
End;
9 - Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau:
S:=0;
For i:= 1 to n do S:=S+ A[i];
[a]--Tính tổng các phần tử của mảng một chiều;
[b]--In ra màn hình mảng A;
[c]--Đếm số phần tử của mảng A;
[d]--Không thực hiện việc nào trong 3 việc trên;
10 - Trong ngôn ngữ lập trình Pascal với khai báo như sau:
Type mang=array[1..100] of integer;
Var a,b:mang;
c:array[1..100] of integer;
Câu lệnh nào dưới đây hợp đúng:
[a]--a:=b; [c]--c:=b;
[b]--b:=c; [d]--a:=c;
Question 1 d Question 3 a Question 5 d Question 7 b
Question 2 c Question 4 d Question 6 a Question 8 d
Question 9 a Question 10 a
De 4
1 - Khai báo nào đúng?
[a]--Type T = Set of Real;
[b]--Type T = Set of Integer;
[c]--Type T = Set of String;
[d]--Type T = Set of 0..9;
2 - Khai báo nào sai?
[a]--Var T: Set of Char;
[b]--Var T: Set of -10..300;
[c]--Var T: Set of "A’..’z’;
[d]--Var T: Set of Boolean;
3 - Tổng của [1..5] + [3..10, 20] là tập hợp nào?
[a]--[1..10, 20] [c]--[1..20]
[b]--[1..5] [d]--[3..5]
4 - Hiệu của hai tập hợp [10..15]-[4..12] là tập hợp nào?
[a]--[4..15] [b]--[13..15] [c]--[4..10] [d]--[10..12]
5 - Cho khai báo:
Var T: Set of Char;
ch: Char;
Sau khi thực hiện các lệnh:
T:=["A’.. "D’] * ["A’.. "Z’];
For ch:=’A’ to "F’ do T:=T+[ch];
Tập T sẽ là?
[a]--["A’..’D’] [b]--["A’..’Z’]
[c]--["A’..’F’] [d]--["C’..’F’]
6 - Cho khai báo:
Var F: File of Integer;
i ,j,k: Integer;
Chọn câu có các lệnh đều đúng?
[a]--Assign( F,T1.DAT); Rewrite(F); Write(F,i,j,k);
[b]--Assign(F,"T1.DAT’); Rewrite(F); Write(F, i+ j+ k);
[c]--Assign(F); Rewrite(F,"T1.DAT’); Write(F,i,j,k);
[d]--Assign(F,"T1.DAT’); Rewrite(F); Write(F,i,j,k);
7 - Khi chạy chương trình:
Var F: File of Char;
ch: Char;
Begin
Assign(F,"tt.txt’); Rewrite(F);
For ch:= "A’ to "F’ do Write(F,ch);
Seek(F,4); Read(F,ch);
Write(ch); Close(F);
End.
Kết quả in ra là?
[a]--E [b]--F [c]--C [d]--D
8 - Cho khai báo:
Var F: TEXT;
Sau khi thực hiện các lệnh:
Assign(F,"tt1.txt’); Rewrite(F);
Write(F,123+456); Close(F);
Nội dung của tập tin tt1.txt sẽ là?
[a]--123+456
[b]--123456
[c]--579
[d]--123 456
9 - Cho F1 là biến tập tin có định kiểu và F2 là biến tập tin văn bản. Lệnh nào không dùng được?
[a]--Seek(F1, 0);
[b]--Seek(F2, 0);
[c]--Write(Filesize(F1));
[d]--Write(FilePos(F1));
10 - Cho TT2.TXT là tập tin văn bản có nội dung là:
Turbo Pascal 6.0
Khi chạy chương trình:
Var F: Text;
St: String[20];
Begin
Assign(F,"tt2.txt’); Reset(F);
Read(F, St); Write(St);
Close(F);
End.
Sẽ in ra chữ?
[a]--Turbo Pascal 6.0
[b]--Turbo
[c]--Pascal 6.0
[d]--Turbo Pascal
Question 1d 2b 3a 4b 5c 6d 7a 8c 9b 10a
De 5
1 - Khai báo đầu chương trình con nào đúng?
[a]--Function F: Boolean;
[b]--Procedure TT: Integer;
[c]--Proceduce TT(K: Integer);
[d]--Function F(Ch: Char);
2 - Cho khai báo biến và khai báo đầu của hàm F:
Var x,S: Real;
n: Integer;
FUNCTION F(y: Real; m: Integer): Real;
Lời gọi hàm nào dưới đây là đúng?
[a]--S:= F(n, x); [b]--S:= F( x, n);
[c]--S:= F( n); [d]--S:= F( x);
3 - Cho khai báo biến và khai báo đầu của thủ tục TT như sau: Var x,S: Integer;
ch: Char;
Procedure TT(y: Integer; kytu: char);
Lệnh gọi thủ tục nào đúng?
[a]--S:= TT(x, ch); [b]--TT(ch, x);
[c]--TT; [d]--TT(x, ch);
4 - Khi chạy chương trình:
Procedure TINHS;
Var i,S: integer;
Begin
S:=1;
For i:=1 to 4 do S:=S*I;
Write(S);
End;
BEGIN
TINHS;
END.
Kết quả in ra sẽ là?
[a]--12 [b]--6 [c]--24 [d]--4
5 - Cho khai báo hàm:
Function F(x: Integer): Integer;
Begin
F:=x*x;
End.
Giá trị của F(2+1) là?
[a]--9 [b]--3 [c]--4 [d]--1
6 - Cho khai báo hàm:
Function F(x,y: Integer): Integer;
Begin
If x < y then F:=x else F:=y;
End.
Giá trị của F(9,0) là?
[a]--0 [b]--1
[c]--2 [d]--3
7 - Cho khai báo hàm:
Function F(k: Integer): Integer;
Begin
F:=2*k+1;
End.
Giá trị của hàm F(F(1)) là?
[a]--3 [b]--7 [c]--5 [d]--1
8 - Khi chạy chương trình: Procedure TT(a: Integer);
Begin
Repeat;
a:= 2*a;
Until a > 15;
Write(a);
End;
BEGIN
TT(2); END.
Kết quả in ra là?
[a]--9 [b]--16 [c]--32 [d]--2
9 - Cho khai báo đầu của một hàm:
Function F(k: Integer): String;
Begin
If k mod 2=0 then F:= "Chan’ else F:= "Le’;
End.
Muốn gán X:= F(5) thì biến X phải khai báo kiểu gì?
[a]--Var X: Real;
[b]--Var X: String;
[c]--Var X: Integer;
[d]--Var X: Char;
10 - Cho khai báo đầu của một hàm:
Function F(k: Integer): String;
Begin
If k mod 2=0 then F:= 'Chan' else F:= 'Le';
End.
Muốn in Write(F(y)) thì biến y phải khai báo kiểu gì?
[a]--Var y: Real;
[b]--Var y: String;
[c]--Var y: Integer;
[d]--Var y: Char;
Question 1 a 2 b 3d 4c 5a 6a 7b 8c 9b 10c
De 6
1 - Cho khai báo:
Var Chuoi: string[10];
x: real;
Lệnh nào sau đây là đúng?
[a]--Chuoi:= Str(x:5:2);
[b]--Str(x:5:2, Chuoi);
[c]--Chuoi:= x;
[d]--x:= Chuoi;
2 - Cho St là biến chuỗi, sau khi thực hiện hai lệnh:
St:= Copy( 'PASCAL VERSION 5.5' , 8, 7);
Write(St);
Kết quả in lên màn hình là?
[a]--VERSION 5.5 [b]--VERSION
[c]--PASCAL [d]--5.5
3 - Cho St là biến chuỗi, sau khi thực hiện bốn lệnh:
St:=’ABCDEF’;
Delete(St, 3, 2);
Insert("XYZ’, St, 2);
Write(St);
Kết quả in lên màn hình là?
[a]--ABXYZEF
[b]--AXYZBCDEF
[c]--AXYZ
[d]--AXYZBEF
4 - Cho i và x là hai biến kiểu nguyên. Khi thực hiện lệnh:
VAL('1234', x, i);
Giá trị của x và i là bao nhiêu?
[a]--x = 0 , i = 1234
[b]--x = 1234 , i = 4
[c]--x = 1234 , i = 0
[d]--x = 0 , i = 0
5 - Cho các biến St chuỗi và k nguyên. Sau khi gán:
St:='Sinh vien Tin hoc hoc Tin hoc';
k := Pos('Tin', ST);
Giá trị của k là?
[a]--k=11 [b]--k=13
[c]--k=26 [d]--k=23
6 - Khi chạy chương trình:
Var St: string;
i,L: integer;
Begin
St:='Hom nay thuc tap' L:=Length(St);
For i:= 1 to L do
If (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]);
Write(St);
End.
Chương trình in ra?
[a]--Hom Nay Thuc Tap
[b]--hom nay thuc tap
[c]--Hom nay thuc tap
[d]--HOM NAY THUC TAP
7 - Khi chạy chương trình:
Var St: String;
i,L: integer;
Begin
St:='ABCD'; L:= Length(St);
For i:= L Downto 1 do write (St[i]);
End.
Chương trình in ra?
[a]--DCAB [b]--ABCD
[c]--4321 [d]--DCBA
8 - Cho St là biến chuỗi và St:= "AAABAAB’
Sau khi thực hiện hai lệnh:
While St[1]=’A’ do Delete(St,1,1);
Write(St);
Kết quả in ra là?
[a]--BAAB
[b]--AABAAB
[c]--BB
[d]--AAA
9 - Khai báo đầu thủ tục nào đúng?
[a]--Procedure TT(x: Integer): Real;
[b]--Procedure TT(x: Integer; x: Real);
[c]--Procedure TT(x: Integer; Var a: Real);
[d]--Procedure TT(x);
10 - Khai báo đầu hàm nào đúng?
[a]--Function F(x: real);
[b]--Function F(x: integer): Real;
[c]--Function F(x): Real;
[d]--Function F(St: String[20]): Integer;
Question 1c 2b 3d 4c 5a 6d 7d 8b 9c 10b
De 7
1 - Cho khai báo biến:
Var A: array[1..5] of Integer;
Chọn lệnh đúng?
[a]--A[1]:= 4/2
[b]--A[2]:= -6
[c]--A(3):= 6
[d]--A:= 10
2 - Trong khai báo sau còn bỏ trống … một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max:
Var A: Array["a’..’d’] of Real;
Ch: Char;
Max: …
Muốn biến Max lưu giá trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ …?
[a]--Char
[b]--String
[c]--Integer
[d]--Real
3 - Cho khai báo:
Var A: Array[1..4] of Integer;
i: Integer;
Sau khi thực hiện các lệnh:
For i:=1 to 4 do A[i]:= i;
For i:=1 to 4 do A[i]:= A[i]+1;
Thì mảng A có giá trị là?
[a]--A[1]=1, A[2]=2, A[3]=3, A[4]=4
[b]--A[1]=2, A[2]=3, A[3]=4, A[4]=5
[c]--A[1]=0, A[2]=1, A[3]=2, A[4]=3
[d]--A[1]=1, A[2]=1, A[3]=1, A[4]=1
4 - Khai báo nào đúng?
[a]--Var A: array[1..n,1..m] of integer;
[b]--Const n=2 m=3;
Var A: array[1..n,1..m] of integer;
[c]--Var n, m : integer;
A: array[1..n,1..m] of integer;
[d]--Var A: array[3, 2] of Integer;
5 - Cho khai báo:
Var A: array[1..2,1..3] of Real;
i,j: integer;
Ðể nhập dữ liệu cho ma trận A, chọn?
[a]--Write('Nhập A:’);
Readln(A);
[b]--For i:=1 to 2 do Readln(A[i,j]);
[c]--For i:=1 to 2 do
For j:=1 to 3 do
Begin
Write('Nhập A[",i,j,"]:’);
readln(A[i, j]);
End.
[d]--For i:=1 to 2 do
For j:=1 to 3 do
Write('Nhập A[',i,j,']:’);
Readln(A[i,j]);
6 - Cho khai báo:
Var A: array[1..2,1..3] of Real;
i,j: integer;
Max: Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào?
[a]--Max:=A[1,1];
If Max < A[i,j] then Max:=A[i,j];
[b]--Max:=A[1,1];
For i:=1 to 2 do
If Max < A[i,j] then Max:=A[i,j];
[c]--A[1,1]:=Max;
For i:=1 to 2 do
For j:=1 to 3 do
If Max < A[i,j] then A[i,j]:=Max;
[d]--Max:=A[1,1];
For i:=1 to 2 do
For j:=1 to 3 do
If Max < A[i,j] then Max:=A[i,j];
7 - Khi chạy chương trình:
Var A: array[1..2,1..3] of integer;
i,j,S: integer;
Begin
A[1,1]:= 3; A[1,2]:= -1; A[1,3]:= -4;
A[2,1]:= -9; A[2,2]:= 0; A[2,3]:= 5;
S:=0;
for i:=1 to 2 do
for j:=1 to 3 do
If A[i,j] < 0 then S:=S+1;
Write(S);
End.
Kết qủa in ra gía trị của S là?
[a]--0
[b]---9
[c]--3
[d]--5
8 - Cho X1, X2,...Xn là một mảng số thực. Ðể tính biểu thức:
S=(1/N)*(X1 + X2 + … + XN);
Ta có đoạn chương trình sau gồm ba lệnh, một lệnh còn bỏ trống …:
S:=0;
For i:=1 to N do S:= S + X[i];
...
Hãy điền lệnh thích hợp vào chỗ …?
[a]--Write('S=', S);
[b]--Readln(S);
[c]--Writeln(N);
[d]--S:= S/N;
9 - Cho biến SS kiểu lô gic. Lệnh nào làm SS có giá trị là TRUE?
[a]--SS:= 'a' < 'A';
[b]--SS:= 'A' = 'a';
[c]--SS:= 'an' < 'a';
[d]--SS:= 'PASCAL' < 'pascal';
10 - Cho khai báo:
Var Ho,ten: String[15];
Lệnh nào sau đây là sai?
[a]--Write('Ho ten la : 'Ho Ten);
[b]--Write('Ho ten la : '+ Ho + Ten);
[c]--Write('Ho ten la : ',Ho , Ten);
[d]--Write('Ho ten la : ',Ho + Ten);
Solutions! --------
Question 1 b
Question 2 d
Question 3 b
Question 4 b
Question 5 c
Question 6 d
Question 7 c
Question 8 d
Question 9 d
Question 10 a
De 8
1 - Cho S,i và N>0 là các biến nguyên. Ðể tính S=N!, chọn câu nào?
[a]--S:=1 For i:=1 to N do S:=S*i
[b]--S:=0 For i:=1 to N do S:=S*i
[c]--S:=1 For i:=1 to N do S:=S*N
[d]--S:=1 For i:=1 to N do S:=S+i
2 - Cho S = 12 + 22 + ... + 1002. Nhóm lệnh nào tính Sai giá trị của S?
[a]--S:=0 FOR i:=1 TO 100 DO S:=S+i*i
[b]--S:=0 FOR i:=1 TO 100 DO S:=S+SQR(i)
[c]--S:=0 FOR i:=100 DOWNTO 1 DO S:=S+i*i
[d]--S:=1 FOR i:=1 TO 100 DO S:=S+i*i
3 - Khi chạy chương trình:
Var S,i,j: Integer;
Begin
S:=0;
for i:=1 to 3 do
for j:=1 to 4 do S:=S+1;
End.
Giá trị sau cùng của S là?
[a]--0 [b]--12 [c]--3 [d]--4
4 - Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình:
S:= 0 i:= 1;
While i<= 6 do
Begin
S:= S + i;
i:= i + 2;
End;
Giá trị sau cùng của S là?
[a]--6 [b]--9 [c]--11 [d]--0
5 - Khi chạy chương trình:
Var S,i: Integer;
Begin
S:=0;
i:=1;
Repeat
S:= S + i * i;
i:= i + 1;
Until i > 4
End.
Giá trị sau cùng của S là?
[a]--0 [b]--14 [c]16 [d]--30
6 - Cho i là biến nguyên. Khi chạy đoạn chương trình:
i:=5;
Repeat
i:= i + 1;
Until i > 4
Giá trị sau cùng của i là?
[a]--6 [b]--4 [c]--5 [d]--0
7 - Cho m, n, i là các biến nguyên. Khi chạy đoạn chương trình:
m:=4; n:=5; i:=5;
Repeat
i:=i+1;
Until (i Mod m = 0) and (i Mod n = 0);
Giá trị sau cùng của i là?
[a]--20 [b]--5 [c]--4 [d]--0
8 - Cho chương trình:
Var A: Real;
Begin
. . .
While A = 0 do
Begin
Write ('nhap A # 0:');
Readln(A);
End;
End.
Ðể lệnh Readln(A) được thực hiện ít nhất một lần, phải điền vào chỗ … lệnh nào trong các lệnh dưới đây?
[a]--A:=0 [b]--A:=1 [c]--A:=-1 [d]--A <> 0
9 - Chọn khai báo đúng?
[a]--Var A: array[1..10] of integer;
[b]--Var A= array[1..10] of integer;
[c]--Var A:= array[1..10] of integer;
[d]--Var A: array[1,10] of integer;
10 - Cho khai báo:
Var
A: Array[1..4] of Real;
i: Integer;
Ðể nhập dữ liệu cho A, chọn câu nào?
[a]--For i:=1 to 4 do
Write('Nhập A[", i, "]:’);
Readln(A[i]);
[b]--For i:=1 to 4 do
Readln('Nhập A[", i, "]:’);
[c]--For i:=1 to 4 do
Begin
Write("Nhập A[", i, "]:’);Readln(A[i]);
End.
[d]--Write("Nhập A:’);
Readln(A);
Question 1 a 2d 3b 4b 5d 6a 7a 8a 9a 10c
De 9
1 - Lệnh nào sau đây in ra màn hình số lớn nhất giữa A và B?
[a]--If A > B then write(B) else write(A)
[b]--If A > B then write(A) else write(B)
[c]--If A > B then Readln(A) else Readln(B)
[d]--If A < B then writeln(A) else writeln(B)
2 - Cho N là biến kiểu nguyên, chọn câu đúng cú pháp?
[a]--If N < 10 then writeln ('Nho hon 10') else write ('Lon hon 10')
[b]--If N < 10 Write ('Nho hon 10') else then write ('Lon hon 10')
[c]--If N < 10 then write ('Nho hon 10') else write ('Lon hon 10')
[d]--If N < 10 then N := 10 else N > 20 then write ('N > 20')
3 - Kiểm tra nếu ba số a, b, c đều lớn hơn 1 thì in số 1, chọn lệnh nào?
[a]--If (a > 1) and ( b > 1) and ( c > 1) then write(1)
[b]--If (a > 1) or (b > 1) or (c > 1) then write(1)
[c]--If a > 1 and b > 1 and c > 1 then write(1)
[d]--If a, b , c đều > 1 then write(1)
4 - Cho i là biến nguyên. Sau khi thực hiện các lệnh?
i:=2;
Case i of
1: i:=i+1;
2: i:=i+2;
3: i:=i+3;
End;
Giá trị sau cùng của i là?
[a]--2 [b]--3
[c]--4 [d]--5
5 - Cho N là biến nguyên, sau khi thực hiện các lệnh:
N:= 9;
If N< 0 then writeln("So am’)
else
Case N mod 2 of
0: Writeln("Chan’);
1: Writeln("Le’);
End;
Kết quả in lên màn hình là?
[a]--Chan
[b]--Le
[c]--So am
[d]--Không in gì cả
6 - Giả sử i là biến nguyên, sau khi thực hiện các lệnh:
i:=5;
Case i of
1: i:=i+1;
2: i:=i+2;
3: i:=i+3;
else i:=2*i;
End;
Thì giá trị sau cùng của i là?
[a]--10
[b]--6
[c]--8
[d]--9
7 - Cho ch biến ký tự, i biến nguyên, sau khi thực hiện các lệnh:
i:= -15;
ch:='E';
Case i of
0..14 : ch:='D';
15..20: ch:='C';
21..24: ch:='B'
else ch:='A';
End;
Thì giá trị sau cùng của ch là?
[a]--'A'
[b]--'B'
[c]--'C'
[d]--'E'
8 - Cho ch biến ký tự, i biến nguyên. Ðể gán trị cho biến ch, thì lệnh:
Case i of
0,1,2 : ch:='A';
3..8 : ch:='B';
else ch:='C';
end;
Tương đương với nhóm lệnh nào?
[a]--If i<0 then ch:=’C’
else
if i<=2 then ch:=’A’
else
if i<=8 then ch:=’B’
else ch:=’C’
[b]--If (i >= 0) and (i<= 2) then ch:='A';
if (i>=3) and (i<=8) then ch:='B'
else
ch:='C'
[c]--If i<0 then ch:=’A’
else
if i<=2 then ch:=’C’
else
if i<=8 then ch:=’A’
else ch:=’C’
[d]--If (i >= 0) and (i<= 2) then ch:='C';
if (i>=3) and (i<=8) then ch:='C'
else
ch:='A'
9 - Khi chạy chương trình:
Var S,i: Integer;
Begin i := 3 S:= 40;
if ( i > 5 ) then S:= 5 * 3 + ( 5 - i ) * 2
else
if ( i > 2 ) then S:= 5 * i
else S:= 0
End.
Giá trị sau cùng của S là?
[a]--0
[b]--19
[c]--40
[d]--15
10 - Cho S và i là biến nguyên. Khi chạy đoạn chương trình:
s:=0;
For i:=1 to 10 do s := s+i;
Writeln(s);
Kết quả in lên màn hình là?
[a]--11
[b]--55
[c]--100
[d]--101
Solutions! --------
Question 1 a
Question 2 c
Question 3 a
Question 4 c
Question 5 b
Question 6 a
Question 7 a
Question 8 a
Question 9 d
Question 10 b
De 10
1 - Cho x, y, z là các biến kiểu thực, lệnh nào sau đây là sai?
[a]--x:=y+z
[b]--Readln(x,y,z)
[c]--x+y:=z
[d]--Writeln(x+y, z:0:2)
2 - Cho x, y là các biến kiểu thực, lệnh nào là đúng?
[a]--Readln(x,5);
[b]--Readln("x= ',x);
[c]--Readln(x:5:2);
[d]--Readln(x,y);
3 - Cho x là biến kiểu thực, sau khi thực hiện hai lệnh:
x:=10
Writeln(x)
Kết qủa in lên màn hình là?
[a]--10
[b]--10.00
[c]--1.0000000000E+01
[d]--+1.0000000000E+01
4 - Cho biến X kiểu thực và gán X:=2.41
Ðể in lên màn hình như sau:
X= 12.41
Ta chọn lệnh nào?
[a]--Writeln(X)
[b]--Writeln(X:5)
[c]--Wzriteln('X= ',X:5:2)
[d]--Writeln('X=,X:5:2')
5 - Kiểu dữ liệu của biểu thức: 4 div 6 + 6/3 + Ord("A’) là kiểu?
[a]--Nguyên
[b]--Logic
[c]--Ký tự
[d]--Thực
6 - Khai báo kiểu liệt kê như sau là sai?
Type
Mau = (XANH, do, tim, Vang)
Vì?
[a]--Tên do trùng với từ khóa
[b]--Tên XANH viết chữ hoa
[c]--Tên Vang có chữ V hoa
[d]--Tên tim viết chữ thường
7 - Khai báo nào sau đây là đúng?
[a]--Var x,y = Integer;
[b]--Var x,y of Integer;
[c]--Var x,y: Integer;
[d]--Var x,y:= Integer;
8 - Cho khai báo:
Var Ho,ten: String[15]
Lệnh nào sau đây là Sai?
[a]--Write('Ho ten la: ' Ho Ten)
[b]--Write(' Ho ten la : ' + Ho + Ten)
[c]--Write(' Ho ten la : ',Ho,Ten)
[d]--Write(' Ho ten la : ',Ho + Ten)
9 - Cho i, j, k là 3 biến nguyên, để nhập dữ liệu cho lệnh:
Readln(i,j,k)
Cách nhập nào sau đây là Sai?
[a]--3 4 5?
[b]--3,4,5?
[c]--3? 4? 5?
[d]--Cả 3 câu trên đều sai
10 - Cho i, j, k là ba biến nguyên, để nhập dữ liệu cho lệnh:
Readln(i,j,k)
Cách nhập nào đúng?
[a]--3 4 5?
[b]--3,4,5?
[c]--3? 4? 4+1?
[d]--3? 4? E?
Solutions! --------
Question 1 c
Question 2 d
Question 3 c
Question 4 c
Question 5 d
Question 6 a
Question 7 c
Question 8 a
Question 9 b
Question 10 a
De 11
1 - Cho khai báo biến sau:
Var m, n: integer;
x, y: Real;
Lệnh nào sau đây sai?
[a]--m:= -4
[b]--n:= 3.5
[c]--x:= 6
[d]--y:= +10.5
2 - Ðể tính giá trị: x=(-b/2a), chọn cách viết nào sau đây?
[a]--x:= -b/2a
[b]--x:= -b/2*a
[c]--x:= -b/2/a
[d]--Tất cả các phương án trên đều đúng
3 - Biểu thức: 25 div 3 + 5/2*3 có giá trị là bao nhiêu?
[a]--8.0
[b]--15.5
[c]--9.5
[d]--15.0
4 - Cho phương trình: ax2 + bx + c = 0
Giả sử a <> 0 và Delta:= b*b- 4*a*c > 0. Một nghiệm của phương trình là?
[a]--X:= -b + SQRT(Delta)/(2*a)
[b]--X:= (-b + SQRT(Delta))/2*a
[c]--X:= (-b + SQRT(Delta))/(2*a)
[d]--X:= (-b -SQR(Delta))/2/a
5 - Cho ch là biến có kiểu Char. Lệnh nào sau đây là đúng?
[a]--ch:="a"
[b]--ch:=65
[c]--ch:=chr(65)
[d]--ch:='abcd'
6 - Biến X được khai báo là kiểu integer. Lệnh nào sau đây là sai?
[a]--X:= round(275/3)
[b]--X:= 210 div 4
[c]--X:= SQRT(49)
[d]--X:= ABS(-453)
7 - Biểu thức nào sau đây có giá trị TRUE?
[a]--(100 > 76) and ('B' < 'A')
[b]--Not (49.5 + 2 < 5) or (2 > 4 div 2)
[c]--(49.5 + 2 < 5) and (2 < 4 div 2)
[d]--2*(3+5) < 18 div 4*4
8 - Khi chạy chương trình sau:
Var St,St1: String;
Begin
St:= '123';
St1:= '456';
Write(St + St1);
End.
Kết quả in ra là?
[a]--'123456'
[b]--123456
[c]--579
[d]--Tất cả các câu trên đều sai
9 - Sau phép gán sau: Ch := CHR(ORD('a')- 32) thì giá trị của Ch là?
[a]--65
[b]--A
[c]--'A'
[d]--'A'
10 - Khi chạy chương trình:
Var a,b,c,N: integer;
Begin
N:=546;
a:=N div 100;
b:=(N Mod 100) div 10;
c:=(N Mod 100) Mod 10;
Write(a+b+c);
End.
Kết quả in ra là?
[a]--546
[b]--5
[c]--15
[d]--6
Question 1b 2c 3b 4c 5c 6c 7b 8b 9c 10c
DE 12
1 - Tính cấu trúc của ngôn ngữ Pascal được thể hiện?
[a]--Trong việc tổ chức các dữ liệu
[b]--Trong việc tổ chức các câu lệnh
[c]--Trong việc tổ chức chương trình
[d]--Cả 3 đáp án trên đều đúng
2 - Ðiều gì làm cho Pacal được đánh giá cao và trở thành một trong những ngôn ngữ thảo chương phổ biến nhất hiện nay?
[a]--Nó là ngôn ngữ đầu tiên đưa ra và thể hiện được khái niệm lập trình có cấu trúc
[b]--Nó là một ngôn ngữ chặt chẽ cả về mặt cú pháp và về mặt dữ liệu
[c]--Nó là ngôn ngữ có văn phạm sáng sủa, dễ hiểu, có khả năng đủ mạnh
[d]--Cả 3 đáp án trên đều đúng
3 - Khẳng định nào sau đây là đúng?
[a]--VAR, BEGIN, End là các từ khóa của Pascal
[b]--Các ký hiệu a, b, g, d đều thuộc bộ ký tự cơ bản của Pascal
[c]--Var, begin, Integer, Real là các từ khóa của Pascal
[d]--VAR, Var, vaR, var là các từ khóa khác nhau của Pascal
4 - Tên nào đặt Sai quy định của Pascal?
[a]--Giai_Ptrinh_Bac_2
[b]--Ngaysinh
[c]--Noi sinh
[d]--Sv2000
5 - Mục nào có các Tên đều đặt đúng quy định của Pascal?
[a]--x1, X-2
[b]--Xx1, X2
[c]--CONST, X_234
[d]--X[1], x2
6 - Chọn câu Sai trong các câu sau đây.
Trong một chương trình Pascal, có thể không có?
[a]--Phần thân chương trình
[b]--Phần khai báo biến
[c]--Phần đầu chương trình
[d]--Phần khai báo hằng
7 - Dấu hiệu kết thúc chương trình Pascal là?
[a]--End;
[b]--End:
[c]--End.
[d]--End!
8 - Trong Pascal, lệnh nào có tác dụng xóa màn hình?
[a]--CLRSSR
[b]--CLRSR
[c]--Clrscl
[d]--Clrscr
9 - Trong Pascal, nếu muốn dùng lệnh xóa màn hình Clrscr thì phải khai báo thế nào ở ngay sau phần tiêu đề chương trình?
[a]--Uses CRT
[b]--USES Graph
[c]--Use CRT
[d]--Không khai báo gì cả
10 - Khẳng định nào sau đây là Sai:
Trong Turbo Pascal?
[a]--Để lưu chương trình lên đĩa, gõ phím F2 hoặc chọn lệnh File/Save
[b]--Để mở một tập tin cũ, gõ phím F1
[c]--Để tìm lỗi cú pháp của chương trình, gõ phím Alt_F9, hay F9
[d]--Để chạy chương trình, gõ phím Ctrl_F9 hoặc chọn lệnh Run/Run
Solutions! --------
Question 1 d
Question 2 d
Question 3 a
Question 4 c
Question 5 b
Question 6 a
Question 7 c
Question 8 d
Question 9 a
Question 10 b
De 13
1 - Trong Turbo Pascal có sẵn một thủ tục khởi tạo chế độ đồ họa là?
[a]--Graph(var GD,GM: Integer, DP:string[n]);
[b]--Unitgraph(var GD,GM: Integer, DP:string[n]);
[c]--Initgraph(var GD,GM: Integer, DP:string[n]);
2 - Cho ví dụ sau:
Program Ve_hinh_tron;
Uses graph;
Var GD,GM: Integer;
Begin
GD:= detect; Initgraph(GD,GM,’b:\tp\bgi’);
If graphresult <> grok then halt(1);
Circle(320,240,50);
Readln; CloseGraph;
End.
Hãy cho biết kết quả của đoạn chương trình trên?
[a]--Là một chương trình vẽ một đường tròn có tâm tại chính giữa màn hình và bán kính là 50 Pixel
[b]--Vẽ hình tròn có bán kình là 240 Pixel
[c]--Vẽ hình tròn có bán kính là 320 Pixel
3 - Hàm nhận giá trị là Grok, điều này có ý nghĩa?
[a]--Tốt, không có lỗi
[b]--Không tìm thấy đơn vị đồ họa
[c]--Không có phần cứng đồ họa
4 - Hàm nhận giá trị là Grnotdetected, điều này có ý nghĩa?
[a]--Không tìm thấy các tệp điều khiển màn hình đồ họa
[b]--Không có phần cứng đồ họa
[c]--Không tìm thấy đơn vị đồ họa
5 - Để vẽ hình trong Pascal người ta sử dụng lệnh MOVETO(x,y). Lệnh này có tác dụng?
[a]--Di chuyển con trỏ tới một tọa độ tùy ý
[b]--Di chuyển con trỏ tới tọa độ x,y (với x là hoành độ, y là tung độ)
[c]--Cả 2 đáp án trên đều đúng
6 - Thủ tục vẽ một đường thẳng từ tọa độ x1,y1 đến tọa độ x2,y2 là?
[a]--BAR(x1,y1,x2,y2)
[b]--LINE(x1,y1,x2,y2)
[c]--RECTANGLE(x1,y1,x2,y2)
7 - Thủ tục CIRCLE(x,y,r) có tác dụng gì trong chế độ đồ họa?
[a]--Vẽ đường tròn tâm tại tọa độ x,y bán kính bằng r Pixel
[b]--Vẽ đường tròn tâm tại tọa độ x,r bán kính bằng y Pixel
[c]--Vẽ đường tròn tâm tại tọa độ y,r bán kính bằng x Pixel
8 - Thủ tục BAR(x1,y1,x2,y2): Vẽ một hình chữ nhật góc trên bên trái có tọa độ có tọa độ x1,y1 góc dưới bên phải có tọa độ x2,y2. Khi dùng kết hợp với thủ tục nào sẽ đồng thời cho phép kẻ các vân hoa trên nền và tô màu cho nền?
[a]--LINETO(x,y)
[b]--SETFILLSTYLE(n1,n2)
[c]--PUTPIXEL(x,y,n)
9 - Khi đang làm việc trong chế độ đồ họa, muốn viết chữ trong các hình vẽ ta sử dụng thủ tục nào sau đây?
[a]--OUTTEXTXY(x,y,chuỗi)
[b]--OUTTEXT(Chuỗi)
[c]--Cả 2 đáp án trên đều đúng
10 - Thủ tục SOUND(n) có tác dụng?
[a]--Tạo ra âm thanh với tần số n, ở đây n phải là một số nguyên dương
[b]--Kéo dài tín hiệu âm thanh trong khoảng thời gian n miligiây
[c]--Ngắt tín hiệu âm thanh
Solutions! --------
Question 1 c
Question 2 a
Question 3 a
Question 4 b
Question 5 b
Question 6 b
Question 7 a
Question 8 b
Question 9 c
Question 10 a
De 14
1 - Bảng điểm của một lớp học bao gồm các thành phần sau: Hoten, Gioitinh, Lop, Diachi, Toan, Ly, Hoa,…, các thành phần này tạo nên dữ liệu cho một người trong đơn vị và được gọi là?
[a]--Một bản ghi
[b]--Một trường
[c]--Một đơn vị cấu trúc
2 - Tệp dữ liệu là một dãy các phần tử được sắp xếp như thế nào?
[a]--Một cách không tuần tự
[b]--Một cách tuần tự
[c]--Cả 2 đáp án trên đều sai
3 - Theo quy định của DOS, tên tệp được đặt như thế nào?
[a]--Phần tên dài không quá 8 ký tự
[b]--Phần đuôi dài không quá 3 ký tự
[c]--Cả 2 đáp án trên đều đúng
4 - Các loại tệp nào dưới đây được sử dụng trong Pascal?
[a]--Tệp có định kiểu và tệp không định kiểu
[b]--Tệp có định kiểu và tệp văn bản
[c]--Tệp có định kiểu, tệp văn bản và tệp không định kiểu
5 - Tác dụng lớn nhất của kiểu dữ liệu Tệp là?
[a]--Có thể lưu giữ các dữ liệu nhập vào từ bàn phím cùng các kết quả xử lý trong bộ nhớ RAM ra tệp để dùng nhiều lần
[b]--Có thể lưu giữ các dữ liệu nhập vào từ bàn phím cùng các kết quả xử lý trong bộ nhớ RAM ra tệp để dùng duy nhất một lần
[c]--Lưu kết quả đã được xử lý
6 - Tệp có định kiểu được khai báo sau từ khóa nào?
[a]--VAR
[b]--BEGIN
[c]--TYPE
7 - Tệp truy nhập trực tiếp là tệp?
[a]--Có thể truy nhập vào phần tử bất kỳ trong tệp
[b]--Không thể truy nhập vào phần tử nào của tệp
[c]--Chỉ truy nhập vào một phần tử
8 - Để mở một tệp chuẩn bị lưu trữ dữ liệu Pascal sử dụng các thủ tục chuẩn nào sau đây?
[a]--ASSIGN(Biến tệp, Tên tệp);
[b]--REWRITE(Biến tệp);
[c]--Cả 2 đáp án trên đều đúng
9 - Các phần tử của Tệp được lưu giữ tuần tự thành một dãy và việc truy nhập vào phần tử phụ thuộc vào thiết bị đọc, ghi của máy vi tính. Turbo Pascal có thể xử lý các loại tệp là?
[a]--Tệp truy nhập tuần tự
[b]--Tệp truy nhập trực tiếp
[c]--Cả 2 loại tệp nêu trên
10 - Các kiểu dữ liệu chủ yếu xử lý trong bộ nhớ RAM và in kết quả ra màn hình hoặc máy in. Khi kết thúc chương trình hoặc mất điện cả dữ liệu nhập vào và kết quả xử lý đều?
[a]--Tồn tại trên RAM
[b]--Bị mất
[c]--Tồn tại trên ROM
Solutions! --------
Question 1 a
Question 2 b
Question 3 c
Question 4 c
Question 5 a
Question 6 c
Question 7 a
Question 8 c
Question 9 c
Question 10 b
De 15
1 - Chương trình con trong Turbo Pascal thông thường gồm mấy loại và là những loại gì?
[a]--1 loại (là chương trình con Thủ tục - Procedure)
[b]--1 loại (là chương trình con Hàm - Function)
[c]--2 loại (là chương trình con Hàm – Function và chương trình con Thủ tục – Procedure)
2 - Chương trình con Hàm (Function) là một loại chương trình con cho kết quả là?
[a]--Một giá trị vô hướng
[b]--Một giá trị xác định
[c]--Cả 2 đáp án trên đều đúng
3 - Trong Turbo Pascal đã có sẵn một số chương trình con. Vậy sin(x), sqrt(x)… thuộc chương trình con nào?
[a]--Function
[b]--Procedure
[c]--Cả 2 loại trên
4 - Trong Turbo Pascal đã có sẵn một số chương trình con. Vậy read(), write(), gotoxy(x1,x2)… thuộc chương trình con nào?
[a]--Function
[b]--Procedure
[c]--Cả 2 loại trên
5 - Kiểu của tham số trong chương trình con phải là?
[a]--Kiểu đã được định nghĩa sẵn trong Pascal
[b]--Kiểu đã được định nghĩa trong phần đầu chương trình chính
[c]--Cả 2 đáp án trên đều đúng
6 - Nếu không muốn thay đổi giá trị của các tham số thực trong chương trình chính khi truyền nó cho chương trình con thì tham số hình thức trong chương trình con phải là?
[a]--Tham trị
[b]--Tham biến
[c]--Tham trị hay tham biến đều không quan trọng
7 - Biến khai báo ở đầu chương trình chính được gọi là?
[a]--Biến toàn cục
[b]--Biến cục bộ
[c]--Cả 2 đáp án trên đều sai
8 - Chọn câu trả lời đúng nhất: Biến cục bộ là?
[a]--Những biến khai báo ở đầu chương trình chính
[b]--Những biến khai báo trong chương trình con
[c]--Những biến khai báo trong chương trình con chỉ có tác dụng trong nội bộ chương trình con đó
9 - Thủ tục RMDIR(Tên thư mục) cho phép?
[a]--Chuyển thư mục có tên viết trong dấu ngoặc đơn thành thư mục hiện thời
[b]--Xóa một thư mục rỗng trên ổ đĩa hiện thời
[c]--Đổi từ tên cũ thành tên mới
10 - Thủ tục CLREOL có tác dụng?
[a]--Xóa sạch màn hình, đưa con trỏ về tọa độ (1,1)
[b]--Xóa các ký tự từ vị trí hiện thời đến hết dòng
[c]--Chuyển con trỏ tới một tọa độ nào đó
Solutions! --------
Question 1 c
Question 2 a
Question 3 a
Question 4 b
Question 5 c
Question 6 a
Question 7 a
Question 8 c
Question 9 b
Question 10 b
De 16
1 - Để gán giá trị cho một biến nào đó có thể sử dụng một trong hai thủ tục chuẩn của Turbo Pascal là?
[a]--READ(x1,x2,…) và READLN(x1,x2,…)
[b]--WRITE(x1,x2,…) và WRITELN(x1,x2,…)
[c]--Cả 2 đáp án trên đều đúng
2 - Cấu trúc của câu lệnh rẽ nhánh là?
[a]--IF "điều kiện" ELSE "công việc"
[b]--IF "điều kiện" THEN "công việc 1" ELSE "công việc 2"
[c]--Cả 2 đáp án trên đều sai
3 - Trong cấu trúc tuyển chọn, lệnh tuyển chọn CASE .. OF .. bao giờ cũng phải bắt đầu bằng từ khóa CASE và kết thúc bằng từ khóa nào?
[a]--Function
[b]--End;
[c]--Begin
4 - Thủ tục Random(15) là một thủ tục chuẩn cho kết quả là một số ngẫu nhiên n (kiểu Integer). Giá trị của n nằm trong khoảng nào?
[a]--5 <= n <= 15
[b]--0 <= n <= 10
[c]--0 <= n <= 15
5 - Sự khác nhau giữa mảng và chuỗi là ở chỗ khi định nghĩa mảng thì?
[a]--Số phần tử chuỗi nhỏ hơn mảng
[b]--Số phần tử của mảng là xác định
[c]--Số phần tử của mảng đã được xác định, còn số phần tử chuỗi có thể nhỏ hơn độ dài đã định nghĩa
6 - Mỗi phần tử của chuỗi được xác định bởi vị trí của nó trong chuỗi, để truy nhập vào một phần tử nào đó ta phải viết tên biến chuỗi kèm theo vị trí của ký tự đặt trong dấu?
[a]--[..]
[b]--{..}
[c]--(..)
7 - Hai chuỗi ký tự được gọi là bằng nhau nếu?
[a]--Các ký tự có cùng vị trí trong 2 chuỗi giống nhau
[b]--Độ dài thực của chúng bằng nhau
[c]--Cả 2 đáp án trên đều đúng
8 - Thủ tục DELAY(1000) là thủ tục có tác dụng?
[a]--Làm chậm chương trình lại 1000 Miligiây cho ta quan sát
[b]--Làm tăng tốc độ chương trình thêm 1000 Miligiây để chương trình dịch nhanh hơn
[c]--Trong Pascal không có thủ tục này
9 - Cho chuỗi sau:
Diachi:= ' Khu Hoan kiem – Ha noi ';
Sau khi sử dụng thủ tục DELETE(Diachi,15,9); thì chuỗi này sẽ còn lại là?
[a]--Ha noi
[b]--Khu Hoan kiem
[c]--Khu Hoan kiem – Ha noi
10 - Cho chuỗi sau:
Diachi:= ' Khu Hoan kiem – Ha noi ';
Sau khi sử dụng thủ tục INSERT('Tap the',Diachi,6); thì kết quả hiển thị của chuỗi này sẽ là?
[a]--Khu Tap the Hoan kiem
[b]--Tap the Khu Hoan kiem
[c]--Khu Hoan kiem Tap the
Solutions! --------
Question 1 a
Question 2 b
Question 3 b
Question 4 c
Question 5 c
Question 6 a
Question 7 c
Question 8 a
Question 9 b
Question 10 a
De 17
1 - Đối với thủ tục nhập, xuất dữ liệu thì dữ liệu có thể được xuất ra đâu?
[a]--Chỉ xuất ra màn hình
[b]--Chỉ xuất ra máy in
[c]--Có thể xuất ra máy in hoặc màn hình
2 - Trong chế độ đồ họa màn hình được chia thành ma trận điểm, với màn hình VGA số điểm theo chiều ngang và theo chiều đứng thường là?
[a]--640 và 480
[b]--480 và 640
[c]--680 và 460
3 - Các thủ tục trình bày màn hình trong Turbo Pascal 7.0 được ghi thành một Unit có tên là CRT và được đặt trong tệp?
[a]--TURBO.EXE
[b]--TURBO.TPL
[c]--GRAPH.TPU
4 - Lệnh GOTOXY(x,y) có tác dụng?
[a]--Đưa con trỏ màn hình đến vị trí có tọa độ (x,y), trong đó x là tung độ 1 <= x <= 80, y là hoành độ 1 <= y <= 25
[b]--Đưa con trỏ màn hình đến vị trí có tọa độ (x,y), trong đó x là hoành độ 1 <= x <= 25, y là tung độ 1 <= y <= 80
[c]--Đưa con trỏ màn hình đến vị trí có tọa độ (x,y), trong đó x là hoành độ 1 <= x <= 80, y là tung độ 1 <= y <= 25
5 - Để xóa toàn bộ màn, sau khi xóa con trỏ có tọa độ (1,1) ta sử dụng thủ tục?
[a]--TEXTBACKGROUND(màu)
[b]--TEXTCOLOR(màu)
[c]--CLRSCR
6 - Có 2 thủ tục viết dữ liệu ra màn hình là?
[a]--WRITE(A1,A2,A3,…) và WRITELN(A1,A2,A3,…)
[b]--READ(A1,A2,A3,…) và READLN(A1,A2,A3,…)
[c]--Cả 2 đáp án trên đều sai
7 - Đối với thủ tục WRITE(A1,A2,…) sau khi viết xong giá trị cuối cùng thì?
[a]--Con trỏ sẽ được tự động chuyển xuống dòng tiếp theo
[b]--Con trỏ nằm nguyên tại vị trí kết thúc không chuyển xuống dòng dưới
[c]--Con trỏ không xác định được vị trí
8 - Cho đoạn chương trình sau:
Program Vietchu;
Uses crt;
Begin
Gotoxy(30,10);
Textcolor(red);
Textbackground(Yellow);
Write("Chuc mung nam moi’);
End.
Hãy cho biết kết quả hiển thị trên màn hình là gì?
[a]--Hiển thị dòng chữ "Chuc mung nam moi"
[b]--Hiển thị một màu nền vàng
[c]--Hiển thị dòng chữ "Chuc mung nam moi" màu đỏ trên nền vàng bắt đầu tại vị trí dòng 10 cột 30
9 - Thủ tục nào sau đây không viết gì ra màn hình và tự động chuyển con trỏ xuống dòng dưới?
[a]--WRITELN;
[b]--READLN;
[c]--Cả 2 đáp án trên đều sai
10 - Khi thực hiện lệnh: Write(123.456789:8); thì kết quả hiển thị trên màn hình sẽ là?
[a]--123.456789 [b]--123
[c]--1.23E+0.2
Solutions! --------
Question 1 c
Question 2 a
Question 3 b
Question 4 c
Question 5 c
Question 6 a
Question 7 b
Question 8 c
Question 9 a
Question 10 c
De 18
1 - Kiểu dữ liệu vô hướng là kiểu dữ liệu?
[a]--Có cùng một giá trị nhất định
[b]--Gồm một tập các giá trị được sắp xếp theo một thứ tự nào đó
[c]--Cả 2 đáp án trên đều đúng
2 - Kiểu dữ liệu logic Bun (Boolean) là kiểu dữ liệu chỉ nhận một trong hai giá trị nào sau đây?
[a]--TRUE (Đúng) hay FALSE (Sai)
[b]--Lớn hơn hay nhỏ hơn
[c]--Số âm hoặc số dương
3 - Cho biểu thức so sánh là: 12 < 30, đối với kiểu dữ liệu logic sẽ cho kết quả là?
[a]--Không xác định
[b]--TRUE
[c]--FALSE
4 - Dữ liệu kiểu WORD sử dụng 2 Bytes để lưu trữ dữ liệu và không xét dấu, do đó các số có thể xử lý được nằm trong khoảng từ?
[a]--0 đến 65530
[b]--0 đến 65550
[c]--0 đến 65535
5 - Toán tử DIV trong dữ liệu kiểu số nguyên là phép chia?
[a]--Lấy phần nguyên
[b]--Lấy phần dư
[c]--Phép chia hết
6 - Toán tử MOD trong dữ liệu kiểu số nguyên là phép chia?
[a]--Lấy phần nguyên
[b]--Lấy số dư
[c]--Phép chia hết
7 - Cho biết kết quả của phép tính sau?
17 DIV 7 = ?
17 MOD 7 = ?
[a]--3 và 2
[b]--3 và 3
[c]--2 và 3
8 - Hằng, biến, kiểu dữ liệu bao giờ cũng phải khai báo ở?
[a]--Đầu chương trình
[b]--Cuối chương trình
[c]--Ở đâu cũng được
9 - Hằng số là đại lượng có giá trị?
[a]--Luôn luôn thay đổi trong suốt quá trình xử lý
[b]--Không thay đổi trong suốt quá trình xử lý
[c]--Ít khi thay đổi khi xử lý
10 - Chọn câu trả lời chính xác nhất?
[a]--Biến là những đại lượng mà giá trị của nó không thay đổi trong quá trình xử lý
[b]--Biến là những đại lượng mà giá trị của nó có thể thay đổi trong quá trình xử lý
[c]--Cả 2 đáp án trên đều đúng
Solutions! --------
Question 1 b
Question 2 a
Question 3 b
Question 4 c
Question 5 a
Question 6 b
Question 7 c
Question 8 a
Question 9 b
Question 10 b
De 19
1 - Một chương trình lập bằng ngôn ngữ Pascal thông thường phải gồm 3 phần chính theo thứ tự nào sau đây?
[a]--Phần tiêu đề, phần thân chương trình, phần khai báo
[b]--Phần tiêu đề, phần khai báo, phần thân chương trình
[c]--Phần khai báo, phần tiêu đề, phần thân chương trình
2 - Phần tiêu đề thường bắt đầu bằng từ khóa nào?
[a]--USES
[b]--PROGRAM
[c]--VAR
3 - Để khai báo nhãn người ta dùng từ khóa nào sau đây?
[a]--USES
[b]--CONST
[c]--LABLE
4 - Để khai báo biến người ta dùng từ khóa nào sau đây?
[a]--USES
[b]--VAR
[c]--CONST
5 - Để khai báo các hàm người ta dùng từ khóa nào sau đây?
[a]--FUNCTION
[b]--TYPE
[c]--PROCEDURE
6 - Từ khóa USES dùng để?
[a]--Khai báo sử dụng các đơn vị chương trình – UNIT
[b]--Khai báo các chương trình con
[c]--Khai báo các giá trị mặc định
7 - Để mô tả các kiểu dữ kiệu mới người ta sử dụng từ khóa nào?
[a]--USES
[b]--PROGRAM
[c]--TYPE
8 - Từ khóa PROCEDURE dùng để?
[a]--Khai báo các kiểu người dùng định nghĩa
[b]--Khai báo các chương trình con
[c]--Khai bào thân chương trình
9 - Phần thân chương trình được đặt giữa 2 từ khóa nào sau đây?
[a]--PROGRAM và END
[b]--BEGIN và END
[c]--USES và END
10 - Khi xây dựng một chương trình lớn, có những phần đã hoàn chỉnh và có thể sử dụng chung cho một số chương trình khác, người ta thường ghi chúng riêng thành các phần gọi là?
[a]--Đơn vị chương trình (Unit)
[b]--Các tệp thực thi
[c]--Các chương trình khởi tạo
Solutions! --------
Question 1 a
Question 2 b
Question 3 c
Question 4 b
Question 5 a
Question 6 a
Question 7 c
Question 8 b
Question 9 b
Question 10 a
De 20
1 - Phím F3 có tác dụng gì trong ngôn ngữ lập trình Pascal?
[a]--Ghi lại văn bản đang soạn thảo
[b]--Mở văn bản sẵn có trên đĩa
[c]--Tạo mới một văn bản
2 - Sau khi soạn thảo xong một chương trình ta có thể cho chạy thử ngay bằng cách bấm tổ hợp phím nào?
[a]--Ctrl + F1
[b]--Ctrl + F9
[c]--Ctrl + F2
3 - Tổ hợp phím Alt + X có chức năng gì?
[a]--Kết thúc chương trình soạn thảo trên Pascal
[b]--Dịch chương trình
[c]--Chạy chương trình
4 - Tên dùng để đặt cho hằng, biến, chương trình… được phép viết dài nhất là?
[a]--127 ký tự
[b]--130 ký tự
[c]--135 ký tự
5 - Tổ hợp phím Alt + F9 có chức năng gì?
[a]--Kết thúc chương trình soạn thảo trên Pascal
[b]--Dịch chương trình
[c]--Chạy chương trình
6 - Tên dùng để đặt cho hằng, biến, chương trình… phải tuân theo quy định nào?
[a]--Tên phải bắt đầu bằng một chữ cái và không được dùng các ký tự đặc biệt
[b]--Tên không được để khoảng trống giữa các ký tự
[c]--Cả 2 đáp án trên đều đúng
7 - Trong một câu lệnh các từ khóa, tên hằng, tên biến… phải viết cách nhau bởi?
[a]--Dấu cách (bấm phím Space)
[b]--Dấu chấm phẩy ";"
[c]--Dấu hai chấm ":"
8 - Giữa các câu lệnh trong Pascal phải dùng phải dùng ký tự nào để ngăn cách?
[a]--Dấu cách (bấm phím Space)
[b]--Dấu chấm phẩy ";"
[c]--Dấu hai chấm ":"
9 - Để gán giá trị cho hằng, biến ta phải dùng ký hiệu gán là?
[a]--Dấu :
[b]--Dấu =
[c]--Dấu :=
10 - Trong chương trình những ghi chú hoặc lời giải thích có thể đưa vào trong dấu?
[a]--{…}
[b]--(*…*)
[c]--Cả 2 đáp án trên đều đúng
Solutions! --------
Question 1 b
Question 2 b
Question 3 a
Question 4 a
Question 5 b
Question 6 c
Question 7 a
Question 8 b
Question 9 c
Question 10 c
De 21
1 - Ngôn ngữ lập trình Pascal bao gồm?
[a]--Một hệ thống các ký hiệu
[b]--Một hệ thống các quy tắc cú pháp
[c]--Một hệ thống các ký hiệu, các quy tắc cú pháp và câu lệnh dùng để viết thuật toán giải các bài toán
2 - Ngôn ngữ lập trình bậc thấp (ngôn ngữ máy) sử dụng hệ đếm nhị phân tức là?
[a]--Hệ đếm chỉ có hai chữ số là 0 và 1
[b]--Hệ đếm chỉ có hai chữ số là 1 và 2
[c]--Cả 2 đáp án trên đều đúng
3 - Trong ngôn ngữ tập hợp một số mã nhị phân được thay bằng?
[a]--Các chữ cái và các ký tự đặc biệt
[b]--Các chữ cái
[c]--Các chữ số từ 0 đến 9
4 - Ngôn ngữ lập trình bậc cao đầu tiên ra đời vào năm nào?
[a]--1958
[b]--1959
[c]--1960
5 - Ngôn ngữ lập trình Pascal có đặc điểm nổi bật là?
[a]--Là ngôn ngữ lập trình có tính cấu trúc và tính hệ thống
[b]--Là ngôn ngữ lập trình có định kiểu
[c]--Cả 2 đáp án trên đều đúng
6 - Các tệp *.BGI là các tệp chứa các điều khiển về?
[a]--Kiểu màn hình
[b]--Kiểu chữ trong đồ họa
[c]--Cả 2 đáp án trên đều đúng
7 - Khi làm việc với Pascal có 2 tệp đặc biệt được sinh ra để lưu giữ những quy định của người sử dụng và các thay đổi chương trình là?
[a]--TURBO.PCK và TURBO.TP
[b]--TURBO.PCK và TURBO.EXE
[c]--TURBO.TP và TURBO.TPL
8 - Các tệp *.CHR là các tệp chứa các điều khiển về?
[a]--Kiểu màn hình
[b]--Kiểu chữ trong đồ họa
[c]--Cả 2 đáp án trên đều đúng
9 - Phím F2 có tác dụng gì trong ngôn ngữ lập trình Pascal?
[a]--Ghi lại văn bản đang soạn thảo
[b]--Mở văn bản sẵn có trên đĩa
[c]--Tạo mới một văn bản
10 - Trong ngôn ngữ lập trình Pascal, sau khi ghi lại file đã soạn thảo thì file đó sẽ có phần đuôi mở rộng là?
[a]--*.PAS
[b]--*.TPU
[c]--*.DOC
Solutions! --------
Question 1 c
Question 2 a
Question 3 b
Question 4 a
Question 5 c
Question 6 a
Question 7 a
Question 8 b
Question 9 a
Question 10 a
De 22
1 - Trong ngôn ngữ Pascal, từ khoá nào dùng để khai báo biến?
[a]--VAW
[b]--VAY
[c]--VAR
[d]--VAT
2 - Kết quả của phép toán quan hệ cho giá trị?
[a]--Số
[b]--Logic
[c]--Nguyên
[d]--Thực
3 - Trong các biểu thức dưới đây, biểu thức nào là biểu thức số học trong ngôn ngữ Pascal?
[a]--5>6
[b]--a>b
[c]--x<5
[d]--5*a + 6*b
4 - Trong các biểu thức dưới đây, biểu thức nào là biểu thức quan hệ?
[a]--x<5
[b]--5*a
[c]--7+y
[d]--a*x*x
5 - Kí hiệu nào sau đây cho biết đó là lệnh gán?
[a]--=
[b]--= =
[c]--!=
[d]--:=
6 - Hàm số học nào dưới đây dùng để tính căn bặc hai của x?
[a]--sqr(x)
[b]--abs(x)
[c]--sqrt(x)
[d]--Tất cả đều sai
7 - Câu lệnh gán nào dưới đây là hợp lệ?
[a]--x:= 4*y
[b]--y = =4*x
[c]--4:=4
[d]--Tất cả đều sai
8 - Để xuất câu thông báo ra màn hình, ta sử dụng thủ tục nào sau đây?
[a]--Readln
[b]--Write
[c]--Real
[d]--Read
9 - Để nhập dữ liệu vào từ bàn phím, ta sử dụng thủ tục nào sau đây?
[a]--Readln
[b]--Write
[c]--Real
[d]--Writeln
10 - Trong ngôn ngữ lập trình thường có các hằng?
[a]--Hằng số học
[b]--Hằng lôgic
[c]--Hằng xâu
[d]--Tất cả đều đúng
Solutions! --------
Question 1 c
Question 2 b
Question 3 d
Question 4 a
Question 5 d
Question 6 c
Question 7 a
Question 8 b
Question 9 a
Question 10 d
De 23
1 - Các thành phần cơ bản của ngôn ngữ lập trình thường bao gồm?
[a]--Bảng chữ cái và cú pháp
[b]--Bảng chữ cái và ngữ nghĩa
[c]--Cú pháp và ngữ nghĩa
[d]--Bảng chữ cái, cú pháp và ngữ nghĩa
2 - Trong Turbo Pascal, Tên là một dãy liên tiếp không quá?
[a]--127 kí tự
[b]--8 kí tự
[c]--16 kí tự
[d]--255 kí tự
3 - Trong ngôn ngữ Pascal, ……………… được dùng với ý nghĩa riêng xác định, người lập trình không được sử dụng với ý nghĩa khác. Trong dấu ... là gì?
[a]--Tên chuẩn
[b]--Tên dành riêng
[c]--Tên do người lập trình đặt
[d]--Tất cả đều đúng
4 - Trong ngôn ngữ Pascal, ……………… được dùng với ý nghĩa riêng, xác định bằng cách khai báo trước khi sử dụng và không được trùng với tên dàng riêng. Trong dấu ... là gì?
[a]--Tên chuẩn
[b]--Tên dành riêng
[c]--Tên do người lập trình đặt
[d]--Tất cả đều đúng
5 - Trong ngôn ngữ Pascal, các đoạn chú thích được đặt giữa cặp dấu?
[a]--Dấu { và } hoặc /* và */
[b]--Dấu { và } hoặc (* và *)
[c]--Dấu /* và */ hoặc (* và *)
[d]--Tất cả các đáp án trên
6 - Biểu diễn nào sau đây không phải là biểu diễn hằng trong Pascal?
[a]--"42’
[b]--"C
[c]---22
[d]--4+4
7 - Trong ngôn ngữ Pascal, để khai báo tên chương trình ta sử dụng từ khóa nào?
[a]--USES
[b]--VAR
[c]--BEGIN
[d]--PROGRAM
8 - Trong ngôn ngữ Pascal, phần thân chương trình được mở đầu và kết thúc bởi?
[a]--BEGIN .... END.
[b]--VAR .... END.
[c]--USES ..... END.
[d]--Tất cả đều sai
9 - Trong ngôn ngữ Pascal, kiểu dữ liệu nào sau đây thể hiện kiểu dữ liệu kiểu số thực?
[a]--Byte
[b]--Word
[c]--Real
[d]--Integer
10 - Trong ngôn ngữ Pascal, kiểu dữ liệu nào sau đây thể hiện kiểu dữ liệu kiểu số nguyên?
[a]--Byte
[b]--Word
[c]--Real
[d]--Integer
Solutions! --------
Question 1 d
Question 2 a
Question 3 b
Question 4 c
Question 5 b
Question 6 b
Question 7 d
Question 8 a
Question 9 c
Question 10 d
De 24
1 - Cho khai báo sau:
VAR i: integer; c: char; r: real;
Hãy cho biết nhóm lệnh nào sau đây viết đúng ngữ pháp?
[a]--Các lệnh i:=7; r:=i; write(r)
[b]--Các lệnh c:=’9’; i:=9; if i=c then write("hop le’)
[c]--Các lệnh i:=7; c:=ord(r); i:=ord(c)
[d]--Cả ba nhóm lệnh trên đều có lỗi sai
2 - Cho khai báo sau:
VAR i: integer; c: char; r: real;
Hãy cho biết nhóm lệnh nào sau đây viết đúng ngữ pháp?
[a]--Các lệnh i:=7; r:=9; writeln(r>i+1)
[b]--Các lệnh c:=’9’; i:=9; if i=ord(c) then write("hop le’)
[c]--Các lệnh i:=7; c:=ord(r); r:=ord(c)
[d]--Cả ba nhóm lệnh trên đều có lỗi sai
3 - Cho x, y, z và t có loại integer. Sau khi thi hành các lệnh:
x:=5; y:=3; z:=5; t:=6;
If x>y then
If y>z then
t:=y
ELSE
t:=x
Giá trị của t là bao nhiêu?
[a]--t:=5
[b]--t:=6
[c]--t:=7
[d]--t:=8
4 - Cho x, y, z, t thuộc kiểu integer. Sau khi thi hành các lệnh:
x:=5; y:=3; z:=5; t:=4;
IF x>=y THEN
IF y>z-1 THEN
t:=y
ELSE
t:=x+1
Giá trị của t là bao nhiêu?
[a]--t:=6
[b]--t:=4
[c]--t:=2
[d]--t:=8
5 - Cho x, y, z, t thuộc kiểu integer. Sau khi thi hành các lệnh:
x:=5; y:=3; z:=5; t:=1;
IF x>=y THEN
IF y>=z-2 THEN
t:=y+2
ELSE
t:=x-1
Giá trị của t là bao nhiêu?
[a]--t:=1
[b]--t:=2
[c]--t:=5
[d]--t:=4
6 - Cho x, y, z, t thuộc kiểu integer. Sau khi thi hành các lệnh:
x:=5; y:=3; z:=5; t:=5;
IF x>=y THEN
IF y+2>=z THEN
t:=y-1
ELSE
t:=x-1
Giá trị của t là bao nhiêu?
[a]--t:=4
[b]--t:=2
[c]--t:=6
[d]--t:=7
7 - Xét chương trình Pascal sau đây:
PROGRAM TD;
VAR i, j: integer;
BEGIN
i:=1; j:=2;
IF (i<=1) AND (j>2) THEN
IF (i>0) OR (j<> Write(3)
ELSE
Write(4)
END.
[a]--Khi thi hành, chương trình in ra 3
[b]--Khi thi hành, chương trình in ra 4
[c]--Khi thi hành, chương trình không in ra gì cả
[d]--Khi dịch, chương trình báo lỗi ngữ pháp
8 - Xét chương trình Pascal sau đây:
PROGRAM td;
VAR i, j: integer;
BEGIN
i:=1; j:=3;
IF (i<=1) AND (j>2) THEN
IF (i:=0) OR (j<> Write(3)
ELSE
Write(4)
END.
[a]--Khi thi hành, chương trình in ra 3
[b]--Khi thi hành, chương trình in ra 4
[c]--Khi thi hành, chương trình không in ra gì cả
[d]--Khi dịch, chương trình báo lỗi ngữ pháp
9 - Xét chương trình Pascal sau đây:
PROGRAM td;
VAR i, j: integer;
BEGIN
i:=1; j:=3;
IF (i=1) AND (j>2) THEN
IF (i>0) OR (j<> Write(3)
ELSE
Write(4)
END.
[a]--Khi thi hành, chương trình in ra 3
[b]--Khi thi hành, chương trình in ra 4
[c]--Khi thi hành, chương trình không in ra gì cả
[d]--Khi dịch, chương trình báo lỗi ngữ pháp
10 - Cho khai báo sau trong ngôn ngữ Pascal:
TYPE a=record
Hoten: array[0..40] of char;
Tuoi: integer
END;
Pt=^b;
b=RECORD
info: a;
last: pt;
next: pt;
END;
VAR p1, p2: pt; x:a; y:=b;
Hãy chọn lệnh viết sai trong các lệnh sau?
[a]--New(p1)
[b]--New(p1^.next)
[c]--New(p1^.next.last)
[d]--New(p1^.info)
Solutions! --------
Question 1 a
Question 2 b
Question 3 a
Question 4 a
Question 5 c
Question 6 b
Question 7 c
Question 8 d
Question 9 b
Question 10 d
De 25
1 - Trong ngôn ngữ Pascal?
[a]--15, 47, -13 là các hằng nguyên
[b]--4.0, 3E-7, 0.523 là các hằng thực
[c]--"a’, "+’, " " là các hằng kí tự
[d]--a, b, c đều đúng
2 - Trong ngôn ngữ Pascal, với x, y thuộc loại integer?
[a]--x:=y là một biểu thức luận lý
[b]--x+2y-5 là một biểu thức luận lý
[c]--x+2<>y là một biểu thức luận lý
[d]--not (x+y) là một biểu thức luận lý
3 - Trong ngôn ngữ Pascal, với x, y thuộc loại integer?
[a]--x=y là một biểu thức luận lý
[b]--(x<>0)or (2*y>5) là một biểu thức luận lý
[c]--x+2<>y+1 là một biểu thức luận lý
[d]--Các câu trên đều sai
4 - Xét chương trình Pascal sau?
PROGRAM Vidu;
TYPE d=ARRAY [ 1..n] of integer;
VAR i: integer; a:=d;
BEGIN
Read(n);
FOR i:=1 TO n DO
A[i]:=i+1;
END
[a]--Chương trình báo lỗi ngữ pháp khi dịch
[b]--Chương trình báo lỗi khi thi hành
[c]--Cả hai câu trên đều sai
[d]--Cả hai câu trên đều đúng
5 - Cho khai báo sau?
TYPE th=SET OF char;
VAR I, j, n: integer;
x, y, z: real; k: boolean;
a, b: th;
Hãy cho biết câu lệnh nào dưới đây bị sai:
[a]--n:=I DIV j;
[b]--z:=x/y;
[c]--k:=’c’ IN a;
[d]--n:=i/j;
6 - Cho khai báo sau:
TYPE th=SET OF char;
VAR I, j, n: integer;
x, y, z: real; k: boolean;
a, b: th;
u, v: array[1..3] of integer;
Hãy cho biết câu lệnh nào dưới đây bị sai?
[a]--n:=I DIV j;
[b]--z:=x/y;
[c]--k:=’c’ IN a
[d]--a:=["a’,b]
7 - Cho khai báo sau:
TYPE th=SET OF char;
VAR I, j, n: integer;
x, y, z: real;
k: boolean;
a, b: th;
u, v: array[1..3] of integer;
Hãy cho biết câu lệnh nào dưới đây bị sai?
[a]--n:=I DIV j;
[b]--z:=x/y;
[c]--k:=’c’ IN a
[d]--b:=b+’b’
8 - Cho khai báo sau:
TYPE th=SET OF char;
VAR I, j, n: integer;
x, y, z: real; k: boolean;
a, b: th;
u, v: array[1..3] of integer;
Hãy cho biết câu lệnh nào dưới đây bị sai?
[a]--n:=I DIV j;
[b]--z:=x/y;
[c]--k:=’c’ IN a
[d]--u:=u*v
9 - Cho khai báo sau:
VAR i: integer; c: char; r: real;
Hãy cho biết nhóm lệnh nào sau đây viết đúng ngữ pháp?
[a]--Các lệnh r:=7; i:=r; write(r)
[b]--Các lệnh c:=’9’ ;i:=9; if i=c then write("hop le’)
[c]--Các lệnh r:=7; c:=’9’; i:=ord(c)
[d]--Cả ba nhóm lệnh trên đều có lỗi sai
10 - Cho khai báo sau:
VAR i: integer; c: char; r: real;
Hãy cho biết nhóm lệnh nào sau đây viết đúng ngữ pháp?
[a]--Các lệnh r:=7; i:=r; write(r)
[b]--Các lệnh c:=’9’ ;i:=9; if i=c then write("hop le’)
[c]--Các lệnh r:=7; c:=ord(r); i:=ord(c)
[d]--Cả ba nhóm lệnh trên đều có lỗi sai
Solutions! --------
Question 1 d
Question 2 c
Question 3 d
Question 4 a
Question 5 d
Question 6 d
Question 7 d
Question 8 d
Question 9 c
Question 10 d