B Listing for spread.t

 

procedure SumARow(RowNumber,StartCol,EndCol,DestCol : int,
                        var DataArray : array 1 .. * , 1 .. * of real)
  %
  % Your code here
  %
end SumARow

procedure Compute(Row1,Row2,Row3,RowR : int,StartCol,EndCol : int,
                         var DataArray : array 1 .. * , 1 .. * of real)
  %
  % Your code here
  %
end Compute

procedure GetArray(Nrows,Ncols : int,
            var DataArray : array 1 .. * , 1 .. * of real)
    put "Input the elements by rows "

    for row : 1 .. Nrows
        put "Row ",row,": "
        for col : 1 .. Ncols
            get DataArray(row,col)
        end for
    end for
end GetArray

procedure PrintArray(Nrows,Ncols : int,
            DataArray : array 1 .. * , 1 .. * of real)
    for row : 1 .. Nrows
        for col : 1 .. Ncols
            put DataArray(row,col):8:3, " "..
        end for
        put ""
    end for
end PrintArray

var Nrows, Ncols : int

put "Number of rows? "
get Nrows
put "Number of columns? "
get Ncols

var Sheet : array 1 .. Nrows, 1 .. Ncols of real

put ""

GetArray(Nrows,Ncols,Sheet)
PrintArray(Nrows,Ncols,Sheet)

put ""

SumARow(2,1,3,4,Sheet)
PrintArray(Nrows,Ncols,Sheet)

put ""

SumARow(3,2,4,1,Sheet)
PrintArray(Nrows,Ncols,Sheet)

put ""

Compute(1,2,3,4,1,3,Sheet)
PrintArray(Nrows,Ncols,Sheet)