Bài 7. Câu lênh lặp

C1;
a. Số lần lặp của vòng lặp for i:= -5 to 15 là: 21 (15 - (-5) + 1)

b. Số lần lặp của vòng lặp for i:= 9 to 28 là: 20 (28 - 9 + 1)

C2:
a. Số lần lặp của vòng lặp for i:= 0 to 25 là: 26 (25 - 0 + 1)

b. Số lần lặp của vòng lặp for i:= -7 to 12 là: 20 (12 - (-7) + 1)

Câu 1:

a) Số lần lặp:

15 - (-5) + 1 = 21 lần

b) Số lần lặp:

28 - 9 + 1 = 20 lần

Câu 2:

a) Số lần lặp:

25 - 0 + 1 = 26 lần

b) Số lần lặp:

12 - (-7) + 1 = 20 lần

vòng lặp với số lần chưa biết trước được thực hiện bằng cấu trúc vòng lặp while:

while (condition) do //condition là điều kiện nhá :v
begin
end;

nếu điều kiện đúng thì câu lệnh trong vòng lặp đc thực hiện, sai thì kết thúc.

VD:

var
  x: Integer;
begin
  x := 0;
  while x < 5 do
  begin
    writeln(x);
    x := x + 1;
  end;
end.

//in ra đc từ 0 đến 4

program PrintEvenOdd;

var
  num, even, odd, i: Integer;

begin
  even := 0;
  odd := 0;
  for i := 1 to 5 do
  begin
    writeln('Nhap so thu ', i, ': ');
    readln(num);
   
    if num mod 2 = 0 then
      even := even + 1 
    else
      odd := odd + 1;
  end;
  writeln('Tong chan: ', even);
  writeln('Tong le: ', odd);
end.

Var a:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so chan la ');

For i:=1 to 5 do

If a[i] mod 2 = 0 then write(a[i]:8);

Writeln;

Write('Cac so le la ');

For i:=1 to 5 do

If a[i] mod 2 <> 0 then write(a[i]:8);

Readln

End.

Câu lệnh ghép sẽ được thực hiện 981 lần, từ giá trị 1000 giảm xuống dần cho đến giá trị 20

Uses crt;

var i,t: integer;

begin clrscr;

i:=0;

while(i<=120) do begin

i:=i+1;

t:=t+i;

end;

write(t);

readln;

end.

x = 144

Số lần lặp = 20 - 5 + 1 = 16.

Chọn C. 16 lần

Program HOC24;

var n: integer;

t: longint;

begin

write('Nhap n: '); readln(n);

t:=1;

for i:=1 to n do t:=t*n;

write('5^',n,' = ',t);

readln

end.