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

 
Facebook

Mỗi ngày Facebook xử lí hơn 500 TB dữ liệu

Jay Parikh, Phó Chủ tịch phụ trách cơ sở hạ tầng kĩ thuật của Facebook đã thống kê một danh sách cho thấy số dữ liệu khổng lồ mà bộ phận này này phải xử lí mỗi ngày.

Giao diện Facebook trên điện thoại Facebook có thể trông như thế này

Bí mật quanh chuyện sản xuất điện thoại của Facebook

Trang All Things D khẳng định cách đây một năm rưỡi, Facebook thành lập một nhóm chuyên trách, làm việc tại một văn phòng ngoài trụ sở công ty và chỉ những người có liên quan mới được vào trong.

PSR là gì? Tìm hiểu chuẩn các PSR-0, PSR-4

PSR là gì? Tìm hiểu chuẩn các PSR-0, PSR-4

PSR stands for PHP Standards Recommendation - these are documents which lay out how the PHP community has agreed things will be done

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

 

Diet con trung