Câu 17. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16;  T:=T  -n; end;

A.2   B.3   C.4  D.5

Câu 18: Cho đoạn chương trình sau:

S:=10;  x:=0,5;

While >=6,2 do

S:=S-x;

Hãy cho biết giá trị của S sau đoạn chương trình trên:

A. 5                   B. 4                    C.6                       D.7

Câu 19. Sau khi thực hiện đoạn chương trình sau:

j:=0;    s:=1;

for i:=1 to 3 do

j:=j+1;

s:=j+1;

Gía trị của biến j, biến s bằng?

A. j=4, s=3           B.j:=3; s=4            C.j:=1; s=2              D.j:=2; s:=3

Câu 21. Gỉa sử có dòng lệnh :

for i:=0 to 9 do

a:=1+i;

Số lần lặp của lệnh gán a:=1+i là:

A.11               B.0                 C.10                 D.9

Câu 1:
 Để thực hiện gán giá trị 10 cho biến X. Phép gán nào sau đây là đúng
a) X:=10;
b) X =:10;
c) X = 10;
d) X : = 10;
Câu 2
 

Cho đoạn chương trình sau:

a:=3; b:=5; c=7;

if a+b > 8 then

c:=a+b

else

c:=a-b;

Sau khi thực hiện đoạn chương trình trên, giá trị của c là bao nhiêu?
a) c=2
b) c=-2
c) c=8
d)c =7
Câu 3
 Trong Pascal, khai báo nào sau đây là đúng?
a) var tb: real;
b) var R = 30;
c) conts x: real;
d) var 4hs: integer;
 

1.cho đoạn chương trình sau:

    tong:=2; while tong<10 do tong:=tong+1;

sau khi thực hiện xong đoạn chương trình, biến tổng có giá trị bao nhiêu

2. cho biết giá trị của X sau khi thực hiện xong đoạn ct

X:=1; Y:=2, For i:=1 to 4 do X:=X+Y;

3. giả sử A có 5 phần tử và giá trị các phần tử là 1,3,7,8,4 . khi thực hiện câu lệnh sau T:=0; For i:=1 to 5 do T:=T+A[i]; giá trị của biến T là bao nhiêu?

Cho đoạn chương trình:

a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.

b. Sửa lỗi đoạn chương trình và đưa ra yêu cầu bài toán phù hợp với chương trình đã sửa lỗi.