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.
