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.7 (10 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

 
Vào Facebook, upload ảnh dễ dàng với VPN miễn phí
Vào Facebook, upload ảnh dễ dàng với VPN miễn phí

Gần đây nhiều người thường than phiền không thể sử dụng đầy đủ các tính năng của mạng xã hội Facebook như đăng ảnh (upload) lên trang,

Nga lo kinh tế không chịu nổi vì dịch COVID-19
Số người nhiễm COVID-19 ở Nga chính thức vượt qua Trung Quốc trên 87.000

Theo RIA Novosti, số người nhiễm COVID-19 ở Nga chính thức vượt qua Trung Quốc hôm đầu tuần này (trên 87.000 so với gần 83.000 ở Trung Quốc), xếp thứ 9 thế giới về quy mô.

Sử dụng Grunt, bootstrap, Compass and SASS trong Drupal 7 sub theme
Sử dụng Grunt, bootstrap, Compass and SASS trong Drupal 7 sub theme

We wanted to bridge the gap between our theme developers, UX designers, front end coders, and create an all encompassing boilerplate that could be used as a starting point for any project