Tin học Chương trình con trong Pascal

[Rosemary552001]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình bài này với ạ.

 

[Rosemary552001]

Các anh chị giúp em với ạ~~

 

[son_gohan]

Tính tổng lũy thừa:
Chương trình con:
function luythua(a,n:integer):longint;
var i:integer;P:longint;
begin
P:=1;
for i:=1 to n do
P:=P*a;
luythua:=P;
end;
Bạn gọi hàm con này để tính tổng lũy thừa nhé!
Tính tổng giai thừa:
Chương trình con:
function giaithua(a:integer):longint;
var i: integer;GT:longint;
begin
GT:=1;
for i:=1 to a do
GT:=GT*i;
giaithua:=GT;
end;
Bạn gọi hàm con này để tính tổng các giai thừa nhé!