câu lệnh lặp

Trong các câu lệnh sau, câu lệnh nào đúng?

• For x:=1 to 10 to writeln(x);

• For x:=1 to 10 do writeln(x);

• For x =1 to 10 do writeln(x);

• For x:=10 to 1 to writeln(x);

Trong câu lệnh lặp For...do, sau mỗi vòng lặp biến đếm sẽ:

• Tự động tăng thêm 1 đơn vi

• Tự động tăng thêm 2 đơn vi

• Người lập trình có thể tùy chỉnh tăng hay giảm

• Phần mềm tự tăng theo giá trị ngẫu nhiên

Trong câu lệnh lặp For...do, biến đếm phải được khai báo kiểu dữ liệu:

• kí tự

• xâu kí tự

• số thực

• số nguyên

Sơ đồ này mô tả câu lệnh thực hiện:

• Tính tổng từ 1 đến 100

• Tính tích từ 1 đến 100

• In ra màn hình 100 chữ Pascal

• In ra các số từ 1 đến 100

Em hãy điền vào chỗ trống để hoàn thành cú pháp câu lệnh lặp với số lần biết trước:

For <........>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Số vòng lặp của câu lệnh:

For a:=5 to 15 do writeln('*');

• 10

• 11

• 12

• 15

Tính biểu thức: S = 1+3+5+....+105 bằng vòng lặp For...do nào đúng?

• for i:=1 to 105 do

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

• for i:=1 to 105 do

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

• for i:=1 to 105 do

  if (i mod 2) = 1 then S:= S+i;

• for i:=1 to 105 do

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

Sau khi thực hiện câu lệnh:

For i:=1 to 3.5 do writeln('O');

Kết quả xuất trên màn hình là:

• In ra màn hình 3 chữ O

• In ra màn hình 5 chữ O

• In ra màn hình 3.5 chữ O

• Báo lỗi

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

S:=0;

For i:=1 to 5 do if i mod 2 =1 then S:=S+1;

Giá trị của biến S là:

• 0

• 1

• 3

• 5

Xét chương trình sau:

Var i,s :integer;

Begin

S:=0;

For i:=1 to 10 do s:=s +i ;

Writeln(s);

Readln;

End.

Kết quả chương trình là:

• 45

• 25

• 35

• 55