Câu 1:

 - Đoạn chương trình trên thực hiện in các phần tử của mảng B

 - Không thể thay thủ tục bằng hàm được vì đây thực hiện in các giá trị chứ không trả về 1 giá trị cụ thể.

Câu 2:

program tinh_tong;

uses crt;

var n,i:byte;

      s:int64;

{--Chuong-trinh-con--}

function gt(k:byte):int64;

var j:byte;

begin

       gt:=1;

       for j:=2 to k do

               gt:=gt*j;

end;

{--Chuong-trinh-chinh--}

BEGIN

       clrscr;

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

       s:=0;

       for i:=1 to n do

              S:=S+gt(i);

       write('S= ',s);

       readln;

end.

C1.

- Đoạn chương trình thực hiện công việc: xuất ra các phần tử của dãy b;

- Không thể thay thể bằng hàm đựợc vì nó không trả về giá trị nào cả, nhưng bạn có thể là hàm chỉ xuất chứ không trả về giá trị cũng được. Tốt nhất là nên dùng chương trinh con.

C2. 

uses crt;
var i,n,s:longint;
//Chuong trinh con gii thua
function gt(a:longint):longint;
var i:longint;
begin
   gt:=1;
   for i:=1 to a do gt:=gt*i;
end;
//Chuong trinh chinh
begin
clrscr;
   write('N=');readln(n);
   s:=0;
   for i:=1 to n do s:=s+gt(i);
   writeln('S=',s);
readln;
end.