Viết cú pháp câu lệnh lặp for do while do; Cho ví dụ?

ú pháp:  WHILE  <Điều kiện>  DO  <Công việc>

Ý nghĩa: Đầu tiên lệnh sẽ kiểm tra Điều kiện, nếu Điều kiện đúng thì thực hiện Công việc sau đó quay lại kiểm tra Điều kiện. Quá trình cứ thế tiếp tục cho đến khi Điều kiện sai thì kết thúc lệnh.

Ví dụ 1: Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).

     Var  n, i : integer;

     Begin

          write(‘Nhập số n = ‘);

          readln(n);

          i := n – 1;

          while  n  mod  i <> 0  do

              i := i – 1;

          writeln(‘Ước số lớn nhất của số ‘, n , ‘ là : ‘, i);

          readln;

     End.

Ví dụ 2: Viết chương trình nhập vào số nguyên dương N, kiểm tra xem N có phải là số nguyên tố không?

     Var  n, i : integer;

     Begin

          write(‘Nhập số n = ‘);

          readln(n);

          i := 2;

          while  (n  mod  i <> 0) and (i < n)  do

              i := i + 1;

          if  i < n  then  write(n, ‘ là số nguyên tố.’)

          else  write(n, ‘ là hợp.’)

          readln;

     End.

² Các Lưu ý:

     - Trong vòng lặp phải có ít nhất 1 câu lệnh có khả năng làm thay đổi Điều kiện sau từ khóa WHILE để đến 1 lúc nào đó thì Điều kiện không còn đúng nữa và vòng lặp kết thúc.

     - Nếu trong công việc có nhiều hơn 1 câu lệnh thì phải đặt chúng trong cặp từ khóa BEGIN và END (lệnh hợp thành).

            - Số lần lặp ít nhất là 0, nếu đầu tiên kiểm tra Điều kiện là sai.