Pascal

 
Pascal
 
1/ Hàm, thủ tục chuẩn nào sai cú pháp
a/ procedure delete(var s:string; vt:integer; n :integer);
b/ function cos(x:real):real;
c/ function trunc(x:real):longint;
d/ function int(x:real):real;
 
2/ Chọn khẳng định đúng
a/ may tinh < may tinh cua toi;
b/ ‘Ha’+’Noi’ =’Ha’’Noi’;
c/ concat(‘Ha’,’ Noi’)=’Ha Noi’;
d/ upcase(HaNoi)=’HANOI’;
 
3/ Chọn khẳng định đúng
a/ tên biến là một dãy các kí tự bất kì
b/ tên chuẩn là tên không thể thay đổi
c/ khi thực hiện chương trình, giá trị biến luôn giữ giá trị ban đầu nó nhận
d/ bảng chữ cái của pascal gồm chữ thường, chữ hoa, chữ số, kí tự đặc biệt.
 
4/ (1): Các thành phần của dữ liệu có cấu trúc đều có cùng kiểu dữ liệu
    (2): Mảng 2 chiều là mảng chứa dữ liệu theo hai chiều.
a/ 1Đ, 2S
b/ 1S,2 Đ
c/ 1 Đ, 2 Đ
d/ 1 S, 2 S
 
5/ Đẳng thức nào đúng
a/ length(s)=ord (s[0]) với s là xâu kí tự
b/ frac(x)=x-int(x) với x là số thực
c/ sqr(x)=x*x
d/ Cả 3 đều đúng
 
6/ Các phép toán trên kiểu tập hợp bao gồm: *,+,-, in
Thứ tự ưu tiên các phép toán là
a/ +,-,*,in
b/ *,in,+,-
c/ in,*,+,-
d/ *,+,-,in
 
7/ Trong một chương trình, có đoạn chương trình sau
  Procedure Hoan_vi(a,b:real);
  Var tg:real;
  Begin
     Tg:=a;
     a:=b;
     b:=tg;
  end;
Sau khi đoạn chương trình trên thực hiện thì
a/ a và b hoán đổi giá trị cho nhau;
b/ a thay đổi, b giữ nguyên
c/ a giữ nguyên, b thay đổi
d/ a và b không thay đổi.
 
8/ Cho 3 hàm chuẩn: ln, succ, pred.
    Hàm nào có phạm vi sử dụng rộng hơn:
a/ ln
b/ succ và pred
c/ ln và succ
d/ ln và pred
e/ 3 hàm như nhau
 
9/ Cho hai hàm
   Function Tong(a,b:integer):integer;
   Function Tong(var a,b:integer):integer;
(1): Hai hàm có chức năng tương đương nhau
(2): Giá trị của biến sau khi thực hiện khác nhau
a/ 1 Đ, 2S
b/ 1 Đ, 2Đ
c/ 1 S, 2 Đ
d/ 1 S, 2 S
 
10/ Chọn phát biểu đúng
a/ hàm concat tương đương phép cộng.
b/ hàm int tương đương hàm trunc
c/ thủ tục break tương đương câu lệnh goto
d/ thủ tục exit tương đương câu lệnh goto
 
11/ Biểu thức logic nào sai
a/ 8>4 and 5
b/ 3>3
c/ 6>5 or 9
d/ 5>3 and 3>2
 
12/ Chọn lệnh khác với 3 lệnh còn lại:
a/ n:=m;
b/ inc(n);
c/ readln(n);
d/ str(n,s);
 
13/ Chọn biểu thức khác với 3 biểu thức còn lại
a/ length(s)
b/ concat(s1,s2)
c/ `abc`+`ef`
d/ copy(s,1,2)
 
14/ Trong bài làm của một bạn có đoạn chương trình sau
  J:=1;
  Max:=1,0;
  While j =      If a[j]=>a[j+1] then
           Begin
               Sl:=1;
               I:=j;
               Inc(max);
            End;
      Else dec(max);
Đoạn chương trình trên có mấy lỗi
a/ 1
b/ 3
c/ 5
d./ 6
 
15/ Chọn khai báo đúng
a/  var a:array [1…5] of real;
b/  var b:array [1..5] of 1..2;
c/  var c:array [1..5] of a..b;
d/  var d:array [1