Question

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

Answer 1

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.

Answer 2

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.