Найти в матрице вектор-столбец Max длины, Запутался |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Найти в матрице вектор-столбец Max длины, Запутался |
Ne4aev |
Сообщение
#1
|
Гость |
ПАмАгите пАжАлУста решить эту задачу, а то я совсем уже....
Ещё так часика 2-3 посидеть и на моей голове можно будет яиШницу жарить! Такчто у кого дома плита сломалась или газ отключили можете смело обращаться ко мне Совсем не понимаю как решать.... ........Заранее спасибо....... |
Altair |
Сообщение
#2
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Ne4aev Я так понимаю МИЭМовиец .... Это Нечаев-то не может решить ? ЛОЛ! Блин я же решал это уже кому-то вроде... Код 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 завтра на лабах объясню ... :D -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Ne4aev |
Сообщение
#3
|
Гость |
Цитата(Oleg_Z @ 21.10.04 16:07) Я так понимаю МИЭМовиец .... Это Нечаев-то не может решить ? ЛОЛ! Блин я же решал это уже кому-то вроде... Код 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 завтра на лабах объясню ... :D Спасибо,Олег!Теперь я поставлю тебе зачёт в году!:) До завтра!хых! |
Текстовая версия | 5.10.2024 3:23 |