.Viết cú pháp vòng lặp for to do; Cho ví dụ?

0 bình luận về “.Viết cú pháp vòng lặp for to do; Cho ví dụ?”

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

   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

   Bình luận

2. – Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

   – Ví dụ:

          for i:= 1 to 5 do write(‘Tin hoc’);

   Học tốt!

   Bình luận