Последовательность натуральных чисел

[777UFO777]

а да я же в первой не дописал условие.
1)При некоторых заданных x, N и E, определяемых вводом, вычислить:
сумму N слагаемых заданного вида;
сумму тех слагаемых, которые по абсолютной величине больше Е.
Для случая b выполнить суммирование для двух значений Е, отличающихся на порядок, и при этом определить количество слагаемых, включенных в сумму. Сравнить результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (-R, R).

дробь чичлит. 1 знам. (1+х) в кубе. = 1 - дробь числ.2*3 знам.2 умножимая на х + дробь чис. 3*4 знам. 2 умножимая на х в квадрате - дробь числ. 4*5 знам. 2 умножимая на х в кубе + ... (R=1)

[777UFO777]

а да вот ещё задачка скоторой я не смог справиться
Проверить свойство АТТ=(АТ)Т=А, где А — исходная матрица (n*n), знак Т означает транспонирование. Использовать процедуру транспонирования.

[Sm1Le]

начинай писать потом помогу дописать ... =)

[777UFO777]

procedure TForm1.BitBtnRandomClick(Sender: TObject);
var
i,j: integer;
begin
with StringGrid1 do
for i:=0 to ColCount-1 do
for j:=0 to RowCount-1 do
Cells[i,j]:=IntToStr(Random(100)-50);
with StringGrid1 do
for j:=0 to RowCount-1 do
Cells[0,j]:=IntToStr(Random(100)-50);
end;


procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
with StringGrid1 do begin
RowCount:=RowCount+1;
ColCount:=ColCount+1;
end;
end;

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
with StringGrid1 do begin
RowCount:=RowCount-1;
ColCount:=ColCount-1;
end;
end;


а как транспонирование сделать я не знаю