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: 5.7 (51 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Pin nhiên liệu sẽ là lựa chọn mới cho thiết bị di động

Pin nhiên liệu sẽ là lựa chọn mới cho thiết bị di động

Một nghiên cứu mới đây về pin nhiên liệu được ước tính, sẽ có gần 5 triệu pin dùng hydro hoặc methanol cho điện thoại di động và máy tính bảng vào năm 2017.

Năm 2011 - Tiền đổ và SEO nhiều hơn

Năm 2011 - Tiền đổ và SEO nhiều hơn

Như một kết quả tất yếu về xu hướng và nhận thức kinh tế xã hội, giá trị mà các công ty Web đổ vào SEO

Steve Jobs và khái niệm “hệ sinh thái” thương trường

Steve Jobs và khái niệm “hệ sinh thái” thương trường

Steve Jobs – người sáng lập, chủ tịch của hãng Apple và là một trong những doanh nhân xuất sắc nhất của thế kỷ, qua đời ngày 5.10 ở tuổi 56. Ông để lại di sản của nỗ lực không ngừng cách tân những sản phẩm công nghệ hàng đầu thế giới. Với nhiều người, Jobs được ví như là “Leonardo Da Vinci thời hiện đại” bởi những ý tưởng sáng tạo đáng nể phục của ông.