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

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.

Trả lời