Question

[Phạm Thị Lan Anh]

Cho chương trình sau

Program BT1;

Var s: interger

Function Fact(n: interger): interger

Var s: interger

Begin

If n=0 Then Fact:=1 else

Begin

S:=1

For i:=1 To n Do s:=s*i;

Fact:=s;

End;

End;

Begin

For i;=0 To 10 Do

Writenl(i,' ',Fact (i));

End.

Hãy cho biết chương trình trên

1. Tên chương chình con là gì

2. Nó là hàm hay thủ tục

3. Tham số hình thức tên là gì

4. Tham số thực sự tên là gì

5. Biến cục bộ tên là gì

6. Biến toàn cục tên là gì

7. Chương trình còn này được thực hiện mấy lần

8. Viết lại dòng lệnh nó được thực hiện

9. Kiểu giá trị mà hàm này trả về là kiểu gì

10. Hãy viết lại dòng lệnh để hàm này trẻ về giá trị có kiểu real