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
