Viết chương trình tính tích 10 số tự nhiên đầu tiên bằng vòng lặp for và while ( giải thích rõ từng câu lện

0 bình luận về “Viết chương trình tính tích 10 số tự nhiên đầu tiên bằng vòng lặp for và while ( giải thích rõ từng câu lện”

1. Var i,s:integer;
   Begin
   s:=1
   for i:=1 to 10 do s:=s*i;
   writeln(‘Tich: ‘,s);
   readln
   end.

   Bình luận

2. program phuongt;     [khai báo tên chương trình]

   uses crt;      [khai báo tên thư viện]

     var i, s: integer;          [khai báo biến]

   begin             [bắt đầu chương trình]

              clrscr;             [xóa màn hình]

              s:=1;             [gán s bằng 1]

              for i:=1 to 10 do s:=s*i;          [chạy i từ 1 đến 10 và làm gán s bằng s*i]

              write(‘S theo for…do: ‘, s); [in kết quả s ra màn hình theo lệnh for…do]

              i:=1;            [gán i bằng 1]

              while i<=10 do          [nếu i ≤ 10]

              begin                [bắt đầu câu lệnh]

                         s:=s*i;               [gán s bằng s*i]

                         i:=i+1;             [tăng giá trị i lên 1 đơn vị]

              end;             [kết thúc câu lệnh]

              write(‘S theo while…do: ‘, s);          [in kết quả s ra màn hình theo lệnh while…do]

              readln              [in kết quả ra màn hình]

   end.          [kết thúc chương trình]

   Bình luận