Pascal - Sử dụng Procedure viết chương trình tính n!

Pascal - Sử dụng Procedure viết chương trình tính n!

Viết chương trình tính n! với yêu cầu sử dụng hàm để tính giai thừa

>> Pascal - Tìm số lớn thứ nhì trong n số được nhập từ bàn phím

>> Pascal - Viết CT cho phép nhập hai số vào hai biến, đổi giá trị của hai biến cho nhau

Mã chương trình

Program Giai_thua_Ham;

uses crt;

var n: longint;

Function Giai_Thua(n:longint):longint;

Var GT:Longint;

begin

     GT:=1;

     while n > 0 do

     begin

     GT:=GT * n;

     n:=n-1;

     end;

     Giai_thua:=GT;

end;

begin

    clrscr;

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

    write(n,'!=',Giai_thua(n));

    readln

end.

Nhận xét:

Hãy so sánh sự khác nhau khi Giai_thua được viết dưới hai dạng Function và Procedure.

- Khi dùng Procedure cần một biến (toàn cục) để lưu giữa giá trị của n!. Biến này được truyền cho tham biến trong Procedure. Sau khi gọi nó cần lệnh để in n!

- Khi dùng Function, có thể sử dụng nó như là một biểu thức.

Bạn thấy bài viết này như thế nào?: 
Average: 3.8 (12 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

 
Cludo + Drupal = Instant User-Friendly Search

Thử trải nghiệm Friendly Search của Cludo module trên Drupal 8

Search is a key feature in web experience, and for a lot of people, it's the go-to method to find content. We use search countless times a day on our smartphones in various contexts.

CEO Mike Lazaridis của BlackBerry giới thiệu PlayBook năm ngoái

Cạnh tranh với Kindle Fire: PlayBook hạ giá còn 199 USD

Giá mới nhất này được đưa ra bởi Staples - công ty chuyên bán lẻ PlayBook- trong Black Friday nhằm tăng số lượng sản phẩm BlackBerry bán ra.

Hơn 60% ứng dụng trên App Store chưa từng được tải về lần nào

Hơn 60% ứng dụng trên App Store chưa từng được tải về lần nào

Số liệu thống kê từ một bên thứ ba cho biết, có tới hơn 400.000 ứng dụng trên App Store chưa từng được một lần người dùng iOS tải về máy. Theo Phonearena, thống kê trên được đưa ra bởi hãng nghiên cứu Adeven dựa trên số liệu có được từ các ứng dụng iOS

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

 

Diet con trung