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

 (Viết là n!)

Dịch vụ quét mã độc cho mã nguồn WordPress miễn phí năm 2020

Average: 5 (5 votes)

Theo VietnamWorks lương của lập trình viên C++ hơn 1.000 USD mỗi tháng

Average: 5 (7 votes)

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.

Fivestar: 
Average: 4.2 (5 votes)

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

 
Number 3: Performance - 5 lổi cần tránh trong Drupal Website
Number 3: Performance - 5 lổi cần tránh trong Drupal Website

Performance is crucial for providing a great user experience. If the site is slow or balky, even great functionality won’t keep the site visitor engaged.

Ứng dụng Apple Maps đang dần được cải thiện
Ứng dụng Apple Maps đang dần được cải thiện

Apple đang giải quyết rất tốt các lỗi xảy ra trong ứng dụng Maps trên iOS 6 mà hãng vừa phát hành gần đây nhằm mang đến người dùng một trải nghiệm bản đồ số tốt hơn.

[Phần 1 Drupal Web Developer Career]: Drupal Jobs Landscape
[Phần 1 Drupal Web Developer Career]: Drupal Jobs Landscape

This will be the first of three weekly blogs that encapsulate the advice, tips and must-do elements of career building in the Drupal Community, and will be listed as reference at the DrupalEasy Academy Career Center.