Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;

1.cho đoạn ct sau:

           Tong:=30; while tong>10 do tong:=tong-2;

khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu

2. khai báo biến mảng: Var A:array[1..10] of real;

sử dụng câu lệnh For i:=1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?

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?

Với x:=2 cho thực hiện 2 dòng lệnh sau:
*L1 For i:=2 to 8 do begin tong:=tong+1; x:=x+tong; end;
*L2 For i:=2 to 8 do begin tong:=tong+i; x:=x+tong; end;
Hãy chọn phương án đúng đối với kết quả của các biến tong và x:A.Kết quả tong khác nhau, và kết quả x khác nhau.B.Kết quả tong giống nhau, và kết quả x giống nhau.C.Kết quả tong giống nhau, và kết quả x khác nhau.D.Kết quả tong khác nhau, và kết quả x giống nhau.

Với x:=2 cho thực hiện 2 dòng lệnh sau:
*L1 For i:=2 to 8 do begin tong:=tong+1; x:=x+tong; end;
*L2 For i:=2 to 8 do begin tong:=tong+i; x:=x+tong; end;
Hãy chọn phương án đúng đối với kết quả của các biến tong và x:A.Kết quả tong khác nhau, và kết quả x khác nhau.B.Kết quả tong giống nhau, và kết quả x giống nhau.C.Kết quả tong giống nhau, và kết quả x khác nhau.D.Kết quả tong khác nhau, và kết quả x giống nhau.

Với x:=2 cho thực hiện 2 dòng lệnh sau:
*L1 For i:=2 to 8 do begin tong:=tong+1; x:=x+tong; end;
*L2 For i:=2 to 8 do begin tong:=tong+i; x:=x+tong; end;
Hãy chọn phương án đúng đối với kết quả của các biến tong và x:A.Kết quả tong khác nhau, và kết quả x khác nhau.B.Kết quả tong giống nhau, và kết quả x giống nhau.C.Kết quả tong giống nhau, và kết quả x khác nhau.D.Kết quả tong khác nhau, và kết quả x giống nhau.

Câu 1: Lệnh để xuất / thông báo kết quả là:

A. Write                     B. Clrscr;                   C.Read                       D.Readln;

Câu 2: Câu lệnh nào sau đây là câu lệnh lặp:

A. if  n<=1 then n:=n+1;     B. var a: integer;       C. for i:=1 to 10 do writeln(n);      D. uses crt;

Câu 3: Câu lệnh lặp với số lần biết trước có dạng:

A. for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B. for <biến đếm>:=<giá trị đầu> to do <câu lệnh>;

C. for <biến đếm>:=<giá trị cuối> to <giá trị đầu> do <câu lệnh>;

D. for <biến đếm>:=<giá trị cuối> to do <câu lệnh>;                 

Câu 4: Khi nào thì câu lệnh For…do (dạng tiến) kết thúc?

A. Khi biến đếm lớn hơn giá trị cuối.                    B. Khi biến đếm nhỏ hơn giá trị cuối.

C. Khi biến đếm ngang bằng giá trị cuối.              D. Khi biến đếm lớn hơn giá trị đầu.               

Câu 5: Kết quả của <điều kiện> trong câu lệnh While...do sẽ có giá trị gì?

A. Là một số nguyên.                                   B. Là một số thực.

C. Đúng hoặc sai.                                         D. Là một dãy ký tự.

* Thông hiểu:

Câu 1: Trong câu lệnh lặp với số lần biết trước For...do, <câu lệnh> được thực hiện mấy lần?

A. <giá trị cuối> – <giá trị đầu> lần                  B.Không biết số lần lặp                  

C. Khoảng 10 lần                                                      D. <giá trị cuối> – <giá trị đầu> + 1 lần

Câu 2: Trong câu lệnh lặp luôn có kiểm tra một điều kiện, vậy kiểm tra điều kiện trong câu lệnh lặp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; là điều kiện gì?

A. Biến đếm có phải kiểu nguyên hay không.     B. Biến đếm đã bằng giá trị đầu hay chưa.

C. Biến đếm đã bằng giá trị cuối hay chưa.          D. Giá trị đầu và giá trị cuối có bằng nhau hay không.

Câu 3: Trong ngôn ngữ Pascal, đoạn chương trình sau xuất màn hình kết quả gì?

          For i:=1 to 5 do write (i:3);

      A. 1   2   3   4   5                          B.  5   4   3   2   1

C.  i:3                                                        D. Không xuất kết quả gì

Câu 4: Ngoài câu lệnh For…to…do (dạng tiến) còn có câu lệnh For…downto…do (dạng lùi). Khi nào thì câu lệnh For…downto…do kết thúc?

A. Khi biến đếm lớn hơn giá trị cuối.                    B. Khi biến đếm nhỏ hơn giá trị cuối.

C. Khi biến đếm ngang bằng giá trị cuối.              D. Khi biến đếm lớn hơn giá trị đầu.               

Câu 5: Biến đếm, giá trị đầu và giá trị cuối có chung điểm gì rất quan trọng?

A.  Đều là các số nguyên hoặc số thực.

B.  Có chung kiểu dữ liệu.

C.  Biến đếm nhỏ hơn giá trị đầu, giá trị đầu nhỏ hơn giá trị cuối.

 D.  Biến đếm lớn hơn giá trị đầu, giá trị đầu lớn hơn giá trị cuối.

* Vận dụng thấp:

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

j:=1; k:=2;

for i:= 2 to 4 do  j:=j+2;  k:=k+i;

Sau đoạn trên, giá trị của j và k sẽ bằng:

A. j=2, k=2                B. j=5, k=7                C. j=7, k=6                D. j=9,k=11

Câu 2: Bạn Bảo Châu muốn viết ra 5 chữ B và 5 chữ C trên màn hình bằng đoạn chương trình sau:

Var i: integer;

Begin

            For i: = 1 to 5 do writeln('B');   writeln('C');

            Readln;

End.

Theo em, bạn Bảo Châu nên viết như thế nào?

A. Chương trình trên viết đúng.

B. Cần phải đưa hai lệnh writeln('B'); writeln('C'); vào trong cặp từ khóa Begin và End;

C. Phải đổi lệnh writeln thành write

D. Phải đặt hai lệnh writeln('B'); writeln('C'); ở hai dòng riêng biệt.

* Vận dụng cao:

Câu 1: Tìm giá trị của S trong đoạn chương trình dưới đây?

            S:= 0 ;

            For i: = 1 to 5 do S: = S + i;

A. S = 0                      B. S = 1                      C. S = 5                      D. S = 15

Câu 2: Tìm giá trị của a qua đoạn chương trình sau:

            a: = 10;

            for i: = 1 to 5 do a: = a – i;

A. a = 5                      B. a = -5                     C. a = 10                    D. a = 0