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 (57 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

 
Máy tính bảng Courier

Bí mật đằng sau vụ Microsoft “khai tử” máy tính bảng Courier

Dù đã bị khai tử hồi tháng 5/2010 nhưng câu chuyện đằng sau “cái chết” bất ngờ và đầy nghi vấn của máy tính bảng Courier vẫn thu hút sự quan tâm của giới công nghệ

63 hướng dẫn best practice to optimize PHP code performances

63 hướng dẫn best practice to optimize PHP code performances

Today i am searching solutions for any tips and tricks about best practice to optimize PHP code performances and i found some of useful articles which you may interested with.

Điểm 1: Nhà Thiếu nhi TP Thủ Đức.

Địa chỉ và mức giá xét nghiệm COVID-19 cho người dân ra khỏi TP.HCM

Cụ thể, để được xét nghiệm nhanh kháng nguyên (hay còn gọi test nhanh COVID-19), người dân đến các bệnh viện và trung tâm y tế quận, huyện, TP.Thủ Đức.

Tomdesgin.vn

 

Drupal Services