Pascal - Viết chương trình tính giai thừa của số n (Viết là n!)

Pascal - Viết chương trình tính giai thừa của số n (Viết là n!)

Viết chương trình tính giai thừa của số n (Viết là n!). Với yêu cầu:

- Nếu người dùng nhập số n < 0 thì yêu cầu nhập lại.

- Sử dụng chương trình con để tính giai thừa của một số.

  • n! = 1 nếu n = 0;
  • n! = 1.2.3.4.5...n (Tích của n thừa số).

Mã chương trình

Program CTC_2;

uses crt;

var n:integer;x:longint;

Procedure Giai_Thua(var GT:longint; n:byte);

begin

    GT:=1;

    while n>0 do

    begin

    GT:=GT*n;

    n:=n-1;

    end;

end;

begin

   repeat

   clrscr;

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

   if n < 0 then begin write('Nhap so n>=0');readln; end;

   until n>=0;

   Giai_Thua(x,n);

   writeln('Giai thua cua ',n,'la:',x);

   readln

end.

Nhận xét

Lệnh n:= n-1 làm thay đổi giá trị của n  nhưng khi ra khỏi chương trình con n có giá trị không đổi so với trước khi gọi chương trình con.

Bạn thấy bài viết này như thế nào?: 
Average: 6.1 (58 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Tìm hiểu về mô hình kinh doanh của Amazon.com

Tìm hiểu về mô hình kinh doanh của Amazon.com

Khi biết tốc độ phát triển của Internet là 2300%/năm vào những năm đầu thập kỷ 90, mặc dù không có kinh nghiệm về bán hàng cũng như không nhiều hiểu biết về Internet nhưng Jeff Bezos –

Giới thiệu tốc độ Drupal website với cloudflare

Giới thiệu tốc độ Drupal website với cloudflare

Cloudflare claims that can boost the speed of a website. But how much benefit can a site get? I am using Cloudflare for some drupal sites

MacBook Air 2011 về Việt Nam giá 23 triệu đồng

MacBook Air 2011 về Việt Nam giá 23 triệu đồng

Laptop siêu mỏng của Apple vửa ra mắt cách đây 4 hôm đã xuất hiện ở Hà Nội thông qua đường xách tay.

Công ty diệt chuột T&C

 

Diet con trung