Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти в матрице вектор-столбец Max длины
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ne4aev
ПАмАгите пАжАлУста решить эту задачу, а то я совсем уже....
Ещё так часика 2-3 посидеть и на моей голове можно будет яиШницу жарить!
Такчто у кого дома плита сломалась или газ отключили можете смело обращаться ко мне smile.gif

Совсем не понимаю как решать....
........Заранее спасибо.......
Altair
Цитата
Ne4aev


Я так понимаю МИЭМовиец .... smile.gif
Это Нечаев-то не может решить ? ЛОЛ!
Блин я же решал это уже кому-то вроде...

Код
var
a[1..nn,1..mm] of real;
s0,s,k,i,j,n,m:integer;

begin
{vvod matrizi}
repeat
 readln(n);
until (N>1) and(n<=nn);
repeat
readln(m);
until (m>1) and (M<MM);

For i:=1 to n do for j:=1 to m do readln(a[i,j]); {vvod postrochnp}

for j:=1 tom do for i:=1 to n do s:=s+sqr(a[i,j]);
If s>s0 then begin s := s; k:=j; end;

for I:=1 to n do write(a[i,k], ' ');
end.


If (автор_темы = элемент_группы(k-12)) and (автор_темы=студент_МИЭМа) then завтра на лабах объясню ...
lol.gif :D
Ne4aev
Цитата(Oleg_Z @ 21.10.04 16:07)
Я так понимаю МИЭМовиец .... smile.gif
Это Нечаев-то не может решить ? ЛОЛ!
Блин я же решал это уже кому-то вроде...

Код
var
a[1..nn,1..mm] of real;
s0,s,k,i,j,n,m:integer;

begin
{vvod matrizi}
repeat
 readln(n);
until (N>1) and(n<=nn);
repeat
readln(m);
until (m>1) and (M<MM);

For i:=1 to n do for j:=1 to m do readln(a[i,j]); {vvod postrochnp}

for j:=1 tom do for i:=1 to n do s:=s+sqr(a[i,j]);
If s>s0 then begin s := s; k:=j; end;

for I:=1 to n do write(a[i,k], ' ');
end.


If (автор_темы = элемент_группы(k-12)) and (автор_темы=студент_МИЭМа) then  завтра на лабах объясню ...
lol.gif  :D

Спасибо,Олег!Теперь я поставлю тебе зачёт в году!:)



До завтра!хых!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.