Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста, очень срочно надо!
Помогите пожалуйста, очень срочно надо!
Помогите пожалуйста, очень срочно надо!
Составить процедуру нахождения наибольшего по модулю собственного числа матрицы, используя степенной метод.
1 | Автор: Карасик | 2012-02-04, 19:37   |  Репутация: [ + 0 ]
Что такое степенной метод?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-02-04, 20:30   |  Репутация: [ + 211 ]
Степенной метод какой-то замудреный слишком, вот рабочее:) :
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
3 | Автор: Berestovskiy | 2012-02-05, 14:35   |  Репутация: [ + 211 ]
А что на счет этой скажешь:
Составить процедуру вычисления Жордановой нормальной формы матрицы.
4 | Автор: Карасик | 2012-02-05, 14:52   |  Репутация: [ + 0 ]
Что такое "Жордановой нормальной формы матрицы" ?)
Пример ввода-вывода - тоже было бы не плохо)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2012-02-05, 15:16   |  Репутация: [ + 211 ]
Жордановой формой матрицы - называется квадратная матрица по главной диагонали которой стоят жордановы блоки , а все остальные элементы равны 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

Пример ввода-вывода не знаю к сожалению!! (((
6 | Автор: Карасик | 2012-02-05, 15:28   |  Репутация: [ + 0 ]
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
7 | Автор: Berestovskiy | 2012-02-05, 15:35   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2012-02-05, 15:35   |  Репутация: [ + 211 ]
не работает!((
8 | Автор: Карасик | 2012-02-05, 15:48   |  Репутация: [ + 0 ]
Quote (Карасик)
for i:=1 to n do

вместо i нужно j написать, спешил просто, провтыкал..(4-я строка снизу)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
9 | Автор: Berestovskiy | 2012-02-05, 15:51   |  Репутация: [ + 211 ]
Error 85 :";" expected (после последнего end) ????
10 | Автор: Карасик | 2012-02-05, 15:56   |  Репутация: [ + 0 ]
Омг, короче вот компилируемый код:

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
11 | Автор: Berestovskiy | 2012-02-05, 16:03   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста, очень срочно надо!
Страница 1 из 11
Поиск: