Question

viết các thủ tục và hàm xử lí các công việc sau :

a, tính n!

b, tìm giá trị lớn nhất của 2 số a,b

c, hoán đổi giá trị 2 số a, b

Answer 1

a)

*Hàm

function giaithua(n:integer):longint;

var i:integer;

begin

giaithua:=1;

for i:=1 to n do

giaithua:=giaithua*i;

end;

b)

*Hàm

function max(a,b:integer):integer;

begin

max:=a;

if max<b then max:=b;

end;

c)

*Thủ tục

procedure hoandoi(a,b:integer);

var tam:integer;

begin

begin

tam:=a;

a:=b;

b:=tam;

end;

end;