|
Помогите пожалуйста, очень срочно надо!
|
|
Помогите пожалуйста, очень срочно надо!
Составить процедуру нахождения наибольшего по модулю собственного числа матрицы, используя степенной метод.
|
|
|
|
Что такое степенной метод?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Степенной метод какой-то замудреный слишком, вот рабочее:) :
procedure max;
var
a:array[1..100]of integer;
i,n,p:integer;
begin
read(n);
p:=low(p);
for i:=1 to n do begin
read(a[i]);
if abs(a[i])>p then p:=abs(a[i]);end;
writeln(p);
end;
begin
max;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
А что на счет этой скажешь:
Составить процедуру вычисления Жордановой нормальной формы матрицы.
|
|
|
|
Что такое "Жордановой нормальной формы матрицы" ?)
Пример ввода-вывода - тоже было бы не плохо)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Жордановой формой матрицы - называется квадратная матрица по главной диагонали которой стоят жордановы блоки , а все остальные элементы равны 0. Жордановым блоком называется матрица по главной диагонали которой стоят значения L, выше главной диагонали стоят 1, а все остальные элементы равны 0.
или http://ru.wikipedia.org/wiki/%C6%EE%F0%E4%E0%ED%EE%E2%E0_%EC%E0%F2%F0%E8%F6%E0
Пример ввода-вывода не знаю к сожалению!! (((
|
|
|
|
var
a:array[1..100,1..100]of integer;
i,j,n,l:integer;
begin
read(n,l);
for i:=1 to n do
for j:=1 to n do begin
a[i,i]:=l;a[i,i+1]:=1;end;
for i:=1 to n do begin
for i:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Quote (Карасик) for i:=1 to n do
вместо i нужно j написать, спешил просто, провтыкал..(4-я строка снизу)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Error 85 :";" expected (после последнего end) ????
|
|
|
|
Омг, короче вот компилируемый код:
var
a:array[1..100,1..100]of integer;
i,j,n,l:integer;
begin
read(n,l);
for i:=1 to n do
for j:=1 to n do begin
a[i,i]:=l;a[i,i+1]:=1;end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
