Thủ tục InsLine [a]--Cho giá trị kiểu byte cho biết con trỏ đang ở cột nào [b]--Cho giá trị kiểu byte cho biết con trỏ đang ở dòng nào [c]--Chèn dòng trống vào vị trí hiện hành của con trỏ trên màn hình [d]--Xóa dòng con trỏ đang đứng , các dòng sẽ chuyển lên một dòng.... Thủ tục DelLine [a]--Cho giá trị kiểu byte cho biết con trỏ đang ở cột nào [b]--Cho giá trị kiểu byte cho biết con trỏ đang ở dòng nào [c]--Chèn dòng trống vào vị trí hiện hành của con trỏ trên màn hình.....

Có một khai báo kiểu số phức như sau var x,y, z: record phthuc, phao :real end; {pthuc: phần thực, phao: phần ảo} Để tính số phức z là tích của hai số phức x, y có các đoạn chương trình sau, phương án nào đúng [a]--z:=x*y; [b]--z:= (x.pthuc*y.pthuc, -x.phao *y.phao); [c]--begin z.phthuc := x.pthuc*y.pthuc; z.phao := -x.phao *y.phao; end; [d]--Cả B và C đều đúng.....

Trong các phát biểu sau đây về tham biến (gọi theo biến) và tham trị (gọi theo giá trị) . Câu nào đúng nhất? [a]--Dùng tham trị (gọi theo giá trị) thì truyền được giá trị vào chương trình con, dùng tham biến (gọi theo biến) thì không. [b]--Dùng tham biến thì truyền được giá trị ra ngoài chương trình con, dùng tham trị thì không. [c]--Dùng tham trị hay tham biến thì cũng không làm ảnh hưởng ra ngoài. [d]--Tất cả đều sai....

Ta cần viết một chương trình con đổi giá trị hai số nguyên. Chương trình con đó được khai báo như thế nào thì thích hợp nhất? [a]--procedure Doi_Cho(x,y: integer) [b]--function Doi_Cho(x,y: integer) : integer [c]--procedure Doi_Cho(var x,y: integer) [d]--function Doi_Cho(var x,y: integer): integer....

Một người viết lại cấu trúc lặp : while {biểu thức logic} do { câu lệnh } thành dạng lặp repeat như sau . Cho biết quan điểm của bạn, cách nào đúng : [a]--if {biểu thức logic} then repeat {câu lệnh} until {biểu thức logic} [b]--if not {biểu thức logic} then repeat {câu lệnh} until {biểu thức logic} [c]--if {biểu thức logic} then repeat {câu lệnh} until not {biểu thức logic} [d]--repeat {câu lệnh} until not {biểu thức logic}....

Với a = 150 sau khi thực hiện câu lệnh sau x sẽ nhận giá trị bao nhiêu : if a> 200 then if a> 300 then x = 20 else x:= 40 else if a >400 then x:= 50 else x:= 60; [a]--20 [b]--40 [c]--50 [d]--60..... Với a = 100 sau khi thực hiện câu lệnh sau x sẽ nhận giá trị bao nhiêu : begin x:= 10; if a> 200 then if a< 300 then x = 20 else x:= 40 else if a >400 then x:= 50 ; end [a]--10 [b]--20 [c]--40 [d]--60.....

Tìm giá trị của biến x sau lệnh gán sau : x:= (100 < 76) OR (20 > 10) AND (5 > 10); [a]--FALSE [b]--TRUE [c]--YES [d]--NO..... Trong chương trình giải phương trình bậc 2, khi viết công thức nghiệm có nhiều người viết nhiều kiểu như sau. Kiểu nào đúng : [a]--x1:= -b + sqrt(delta) /2a [b]--x1:= (-b + sqrt(delta)) /2.a [c]--x1:= -b + sqrt(delta) /2*a [d]--x1:= (-b + sqrt(delta)) /2/a....

Với khai báo type Hoa = (Đào, Hồng, Mai, Cúc, Lan); var h: Hoa; Và các câu lệnh {1} h := 'Đào'; {2} h := Hoa(0); {3} h := Đào; Tìm câu đúng trong các câu sau: [a]--Câu 2 và câu 3 đúng [b]--Câu 1 và câu 2 đúng [c]--Tất cả các câu 1,2,3 đều đúng [d]--Tất cả các câu 1,2,3 đều sai.... Với khai báo type Hoa = (Đào, Hồng, Mai, Cúc, Lan); var h: Hoa; Giả sử h nhận giá trị Lan. Có thể in h ra màn hình bằng cách nào: [a]--Write(h); [b]--Write(hoa(4)); [c]--If h=Lan then write(’Lan’); [d]--Write(Lan);.....

Câu nào đúng : [a]--Từ khoá là các từ được dùng trong ngôn ngữ lập trình để xác định ý nghĩa của các câu lệnh [b]--Từ khoá để xác định ý nghĩa của chương trình. Người lập trình có thể bổ sung thêm từ khoá hoặc khai báo lại [c]--Từ khoá dùng để đặt tên cho các đối tượng của chương trình [d]--Từ khoá là các từ mà chương trình dịch hiểu được không cần người sử dụng phải khai báo.... Trong một chương trình, n là biến dùng để lưu số

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;.... Cho khai báo: PHP Code: 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);....