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. 

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

+ Input : Số n

+ Output : Tích từ 1 đến n

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

+ Bước 1 : Nhập số n

+ Bước 2 : S ← 1, i ← 1

+ Bước 3 : Nếu i > n thì đưa ra giá trị S rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : S ← S * i

+ Bước 4.2 : i ← i + 1 quay lại Bước 3

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

uses crt;

var i, n, S : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

i := 1; S := 1;

while i <= n do

    begin

        S := S * i;

        i := i + 1;

    end;

write('S = ', S);

readln

end.