Страница 1 из 2
Помогите решить задачу в ТР
Добавлено: 11 фев 2008, 12:51
Fakalka
Народ помогите решить плз. У меня большая проблема с матрицами
1)Дано натуральное число n. Получить действительную матрицу |a(i,j)|, i,j=l,...,n, для которого a(i,j)=l/(i+j).
2) Дана целочисленная матрица [a(i,j)], i,j=l,..,n. Получить b(l),..,b(n), где
b(i)=|a(i,l)|*...*|a(i,n)|.
Re: Помогите решить задачу в ТР
Добавлено: 11 фев 2008, 16:12
drummer
Если l это единица, то
1)
Код: Выделить всё
var n,i,j:longint;
a:array[1..100,1..100] of real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=1/(i+j);
end.
2)
Код: Выделить всё
var n,i,j:longint;
a:array[1..100,1..100] of longint;
b:array[1..100] of real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
b[i]:=abs(a[i,1]);
for j:=2 to n do
b[i]:=b[i]*abs(a[i,j]);
end;
end.
Re: Помогите решить задачу в ТР
Добавлено: 11 фев 2008, 19:12
Fakalka
Большое спасибо! Очень помог!
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 08:17
Fakalka
Помогите с еще одной задачей плз.
Вот условие:
Пусть а(0)=1; а(k)=k*a(k-1)+1/k; k=1,2,.... Дано натуральное число n. Получить a(n).
Заранее спасибо!
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 10:40
Хыиуду
a:=0;
for i:=1 to n do a:=k*a+1/k;
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 14:46
somewhere
" писал(а):for i:=1 to n do a:=k*a+1/k;
For K:=1 to n do a:=k*a+1/k;
А так?
Добавлено: 13 фев 2008, 15:35
BBB
somewhere писал(а):Сообщение от Хыиуду
for i:=1 to n do a:=k*a+1/k;
For K:=1 to n do a:=k*a+1/k;
Код: Выделить всё
for i:=1 to n do begin
k:=i;
a:=k*a+1/k;
end;
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 16:05
drummer
Ошибочки у Вас :-)
а(0)=1
Следовательно:
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 16:33
somewhere
Ну хватит уже две строчки насиловать-то )))))
Re: Помогите решить задачу в ТР
Добавлено: 13 фев 2008, 18:33
Fakalka
Мда задача в две сточки)
Всем спасибо за помощь!