Cún đi hỏi bài

Vct tính n! Vd ( 3!=1×2×3) a) sử dụng hàm b) sử dụng thủ tục

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:31

Câu 4: 

a) 

uses crt;

var n:integer;

{---------------------ham-tinh-giai-thua-----------------------}

fucntion gt(x:integer):real;

var i:integer;

begin

gt:=1;

for i:=1 to x do 

 gt:=gt*i;

end;

{--------------------chuong-trinh-chinh---------------------}

begin

clrscr;

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

writeln(gt(n):0:0);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:32

b) 

uses crt;

var n:integer;

{-------------------thu-tuc-tinh-giai-thua------------------------}

procedure gt(x:integer);

var i:integer;

begin

gt:=1;

for i:=1 to x do

  gt:=gt*i;

writeln(gt);

end;

{-----------------chuong-trinh-chinh--------------------------}

begin

clrscr;

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

gt(n);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Cún đi hỏi bài
Xem chi tiết
lenguyenchihieu
Xem chi tiết
Nguyễn Đức Ánh
Xem chi tiết
hoquanghieu
Xem chi tiết
nana
Xem chi tiết
Hoàng Thu Huyền
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Gin k4 FF
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết