ОДЗ по програмированию (Borland Pascal)

[Georgij]

Помогите решить ОДЗ по програмированию.
1. Обчислити суму ряда с заданою точністю.(задовільно).
Скласти програму обчислення суми ряду із заданою точністю Е=10^(-4). Членами, меншими за Е, знехтувати. Показати як отримана рекурсивна формула обчислення Uk+1 . Навести результати розрахунків.

[Georgij]

а) Ряд: x-((x^3)/3)+((x^5)/5)-...
Рекурсивна формула: Uk+1=Uk*(2k-1)/(2k+1)*(-x^2)
Функція: arctg(x)
Что не правильно?:

Program ODZ2;
uses wincrt;
var x,e,uk,s:real;
k:integer;
begin
write('X=');
readln(x);
write('E=');
readln(e);
S:=0;
K:=1;
while (abs(UK)>E) do
begin
S:=S+UK;
UK:=UK*((-sqr(x)*(2*k-1))/(2*k+1));
k:=k+1;
end;
writeln('S=', s:10:4);
writeln('arctan(x)=', arctan(x):4:6);
end.

[Georgij]

б) Ряд: 1-((x^2)/1!)+((x^4)/2!)-...
Рекурсивна формула: Uk+1=Uk*(-x^2)/k
Функція: e^(-x^2)) или exp(-x*x)
Что не правильно?:

Program ODZ2;
uses wincrt;
var x,e,uk,s:real;
k:integer;
begin
write('X=');
readln(x);
write('E=');
readln(e);
S:=0;
K:=1;
while (abs(UK)>E) do
begin
S:=S+UK;
UK:=UK*(-sqr(x)/k);
k:=k+1;
end;
writeln('S=', s:10:4);
writeln('exp(-x^2)=', exp(-x*x):4:6);
end.

[Georgij]

2. А эти я совсем незнаю
а) Задана квадратная матрица А размером N х N (N<=10), состоящая из действительных элементов. Найти минимальное из чисел, встречающееся в данной матрице более одного раза.
б) Задана квадратная матрица А размером N х N (N<=10), состоящая из действительных элементов. Сформировать вектор из суммы элементов строк и найти их среднее арифметическое.
в) Дано дві матриці a[3*4], b[4*3]. Знайти матрицю c=a+bt, де bt – транспонована матриця b.
г) Дані число k (1 < k < 11) і матриця розміром 4 x 10. Знайти суму і добуток елементів k-го стовпця даної матриці.