bài 1 :mô tả thuật toán tính tích của n số tự nhiên (n!) và viết chương trình bài 2: mô tả thuật toán tính tổng của n số tự nhiên đầu tiên và viết ch

0 bình luận về “bài 1 :mô tả thuật toán tính tích của n số tự nhiên (n!) và viết chương trình bài 2: mô tả thuật toán tính tổng của n số tự nhiên đầu tiên và viết ch”

1. Bài 1:

   *Mô tả thuật toán:

   Input: n số tự nhiên

   Output: n!

   $B1:$ Nhập n

   $B2:$ S←1; i←1;

   $B3:$ Nếu i<=n thì chuyển $B4$; ngược lại thì chuyển $B5$;

   $B4:$ S←S*i; i←i+1;

   $B5:$ In kết quả ra màn hình và Kết thúc thuật toán

   *Chương trình:

   program giai_thua;

   uses crt;

   var n, i, S: longint;

   Begin

            clrscr;

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

            S:=1; i:=1;

            while i<=n do 

                     begin

                              S:=S*i;

                              i:=i+1;

                     end;

            write(‘S = ‘,S);

            readln

   End.

   Bài 2:

   *Mô tả thuật toán:

   Input: n số tự nhiên

   Output: Tổng n

   $B1:$ Nhập n;

   $B2:$ S←0; i←1;

   $B3:$ Nếu i<=n thì chuyển $B4$; ngược lại thì chuyển $B5$;

   $B4:$ S←S+i; i←i+1;

   $B5:$ Thông báo kết quả và kết thúc thuật toán;

   *Viết chương trình:

   program Tong;

   uses crt;

   var n, i, T: integer;

   Begin

            clrscr;

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

            T:=0; i:=1;

            while i<=n do 

                     begin

                              T:=T+i;

                              i:=i+1;

                     end;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận