A. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất 

Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?

A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10  writeln(‘A’);

C. for i:= 1 to 10 do writeln(‘A’); D. for i  to 10 do writeln(‘A’);

Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );

Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?

A. 10 lần B. 5 lần C. 1 lần              D. Không thực hiện.

Câu 3. Cho đoạn chương trình: J:= 0;

                                                            For i:= 1 to 5 do J:= j + i;

Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?

A. 12    B. 22 C. 15 D. 42.

Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng?

A. S:=1;  B. i:=0; S:=1;

While S<10 do write(S);                 while s<10 do S:=S+i; i:=i+1;  

C. n:=2; while n<5 do write(‘A’); D. Cả A và B.

Câu 5. Khi thực hiện đoạn chương trình sau:  n:=1; T:=50;

        While n < 20 do  begin  n:= n+5; T:=T- n  end;

Hãy cho biết giá trị của biến T  bằng bao nhiêu?

A. 14 B. 15 C. 16 D. 17

Câu 6. Khai báo biến mảng: A : array[1..7] 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 A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 

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

Câu 7. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:

A. Chỉ số đầu và chỉ số cuối là 2 số nguyên. B. Chỉ số đầu   chỉ số cuối.

C. Kiểu dữ liệu có thể là integer hoặc real.               D. Cả ba ý trên.

Câu 8. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?

A. 20 B. 18 C. 21 D. 22

Câu 1: Câu lệnh pascal nào sau đây là hợp lệ?

a) For i:=100 to 1 do writeln(‘A’);

b) For i:=1.5 to 10.5 do writeln(‘A’);

c) For i= 1 to 10 do writeln(‘A’);

d) For i:= 1 to 10 do writeln(‘A’);

Câu 2: Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?

A. Tăng 1

B. Tăng 2

C. Tăng 3

D. Tăng 4

Câu 4: Vòng lặp for ..do là vòng lặp:

A. Biết trước số lần lặp

B. Chưa biết trước số lần lặp

C. Biết trước số lần lặp nhưng giới hạn là <=50

D. Biết trước số lần lặp nhưng giới hạn là >=50

Câu 5: Với ngôn ngữ lập trình Pascal câu lệnh lặp for i:=1 to 10 do x:=x+1;

thì biến đếm i phải được khai báo là kiểu dữ liệu: *

A. Integer

B. Real

C. String

D. Tất cả các kiểu trên đều được

Câu 6: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 5 do

s := s+i;

writeln(s);

Kết quả in lên màn hình là của s là :

a) 11

b) 55

c) 101

d) 15

Câu 7: Để tính tổng S=1+3 + 5 + … + n; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i; c) for i:=1 to n do if ( i mod 2) < > 0 then S:=S + i;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i

Else S:= S + i; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;

Câu 8: Để đếm có bao nhiêu số lẻ nhỏ hơn hay bằng n ; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)< >0 then S:=S + 1; c) for i:=1 to n do if ( i mod 2) =0 then S:=S + 1;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i ; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;

III. Bài tập thực hành: Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n.

GIÚP VỚI !!!

Câu 1:

a) for i:=1 to 4 do writeln('A');

b) for i:=1 to 10 do writeln('A');

c) for i:=1 to 10 do writeln('A');

câu2

Cú pháp: while <điều kiện> do ;

Hoạt động:

- Lặp đến khi một điều kiện đã được cho trước thành false

- Nếu điều kiện luôn true thì sẽ xảy ra lỗi vòng lặp vô tận (chương trình sẽ chạy mãi)

câu3

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.