Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?

Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?

a) For i:=10 to 1 do write('a');

b) For i:=1 to 10 do write('a');

c) For i:=1 to 10 do write('a'); write('b');

Bài 3: For i:=1 to n do readln(a); lặp mấy lần?

Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;

           Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?

Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.

   Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha.  :))

Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?

A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động

Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?

A. nhiều lần B. 2 C. 11 D. 10

Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 3: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết i là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 4: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết write(i) là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 5. Cho câu lệnh for i := 1 to 4 do write(i:2); Kết quả là :

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

Câu 6: Chọn câu lệnh lặp để tính T = \(\Sigma^{50}_{n=1}n+a\)

A. T:=0 ; For i := 1 to n do T := T+i+a;

B.T:=0 ; For i := n downto 1 do T := T+i+a;

C. T:=0 ; For n := 1 to 50 do T := T+n+a;

D.T:=0 ; For n := 1 downto 50 do T := T+n+a;

Câu 7: Biến đếm có kiểu số nguyên thì giá trị đầu và giá trị cuối phải có kiểu gì?

A. Số thực B. Số nguyên C. Logic D. kiểu gì cũng được

1d-2d-3c-4d-5b-6c-7b trong đáp án này có 1 câu sai, đó là câu nào ?

Câu 15. Trong câu lệnh lặp for i:=2 to 100 do begin  end; câu lệnh ghép được thực hiện bao nhiêu lần (hay bao nhiêu vòng lặp được thực hiện)?

A. 102             B. 101                         C. 100             D. 99

Câu 16. Xem ví dụ sau trong pascal:

Uses crt; Var i:integer;       

Begin

            Clrscr; I:=1; while i < 14 do begin Writeln(‘0’); i := i+1; End; Readln; End.

Ví dụ trên ghi ra màn hình bao nhiêu chữ số 0?

A. 14;              B. 13;              C. 15;                          D. 16;

Câu 17. điều kiện trong câu lệnh lặp với số lần chưa biết trước thường là :

A. Phép gán    B. Câu lệnh đơn          C. Câu lệnh ghép        D. Phép so sánh

Câu 18. câu lệnh lặp For i:=1 to 5 do Writeln(‘Day la lan lap thu ‘,i); sẽ in ra màn hình 5 dòng chữ trong đó dòng thứ 3 có nội dung là:

A. Day la lan lap thu i                         B. Day la lan lap thu, i

C. Day la lan lap thu 3                        D. Day la lan lap thu , 3