Viết chương trình tích của các số từ 1 đến n ,biết n nhập vào từ bàn phím ,n nguyên dương (trình bày theo xác định bài toán, mô tả ttoan, viết ctr) e

0 bình luận về “Viết chương trình tích của các số từ 1 đến n ,biết n nhập vào từ bàn phím ,n nguyên dương (trình bày theo xác định bài toán, mô tả ttoan, viết ctr) e”

1. Xác định bài toán: 

   INPUT: Số n được nhập từ bàn phím

   OUTPUT: n! (n giai thừa)

   Mô tả thuật toán:

   Bước 1: Nhập n. i<-0, k<-1

   Bước 2: i<-i+1, k<-k*i

   Bước 3: Nếu i<n thì quay lại bước 2. Nếu sai, đi xuống bước 4 

   Bước 4: Kết thúc thuật toán.

   Chương trinh:

   uses crt;

   var i,a:integer; k: longint 

   begin

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

   k:=1;

   for i:=2 to a do k:=k*i;

   write(‘Ket qua: ‘,k);

   end. 

   Bình luận