преобразование квадратной матрицы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
преобразование квадратной матрицы |
VIVAsik |
17.04.2004 13:20
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Репутация: 0 |
РЕБЯТ помогите ГОРЮ не понимаю (чайнтк я) КОМУ не влом распишите умоляю!!! ЗАРАНИЕ БЛОГАДОРЮ!!!
а) Умножить k-ю строку матрицы А на заданное число; б) сформировать вектор V, элементами которого являются суммы модулей элементов строк полученной матрицы; в) упорядочить элементы V в порядке возрастания. Сообщение отредактировано: VIVAsik - 17.04.2004 14:36 |
Catty |
17.04.2004 19:57
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Код uses Crt; const n=4; var a:array[1..n,1..n] of integer; v:array[1..n] of integer; i,j,k,b:integer; begin ClrScr; for i:=1 to n do begin for j:= 1 to n do read(a[i,j]); writeln; end; b:=2; ClrScr; for i:= 1 to n do begin for j:= 1 to n do v[i]:=abs(v[i]+(a[i,j])*b); end; for i:=1 to n do writeln('summa stroki nomer',' ',i,':>',' ',v[i]); for i:=1 to n-1 do for j:=i+1 to n do if v[i]>v[j] then begin k:=v[i]; v[i]:=v[j]; v[j]:=k; end; writeln('elementu yporjadochenue po vozrostaniu'); for i:= 1 to n do writeln(v[i]); end. только насчет к-ой строкия не поняла, это каждый елемент строки умножить на заданое число или как? для каждой строки свое заданое число так как я взяла одно для всех строк. уточни:p2: Сообщение отредактировано: Catty - 20.04.2004 21:46 -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
fms |
17.04.2004 23:09
Сообщение
#3
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
Catty, у тебя получается, что ты умножаешь всем строки на заданное число, а надо только одну конкретную.
надо условие еще приделать Код for i:= 1 to n do begin for j:= 1 to n do if i=l then {где l-номер этой самой строки} v[i]:=abs(v[i]+(a[i,j])*b) else v[i]:=abs(v[i]+(a[i,j])) end; по моему так.. -------------------- непонимающая..
|
Catty |
17.04.2004 23:15
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
я думаю он разберется теперь сам что и куда!! :D
Сообщение отредактировано: Catty - 17.04.2004 23:22 -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
fms |
18.04.2004 23:05
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
Catty, :D посмотрим.. посмотрим..
-------------------- непонимающая..
|
Catty |
18.04.2004 23:20
Сообщение
#6
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
и вообще....где он?? :D
-------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
VIVAsik |
19.04.2004 11:38
Сообщение
#7
|
Группа: Пользователи Сообщений: 5 Репутация: 0 |
ОГРОМНОЕ СПОСИБО УВАЖАЕМЫЕ и !!!
СЕРДЕЧНО БЛАГОДАРЮ!!! "я думаю он разберется теперь сам что и куда!!" ЭЭЭЭЭ несовсем. ЕЩЕ РАЗ МОНА!!!! 1)Умножить k-ю строку матрицы А на заданное число тоесть умножить одну любую строку на любое число, наверное так!!!(или я не знаю) Сообщение отредактировано: VIVAsik - 19.04.2004 11:43 |
Catty |
19.04.2004 18:34
Сообщение
#8
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Цитата(VIVAsik @ 19.04.04 8:38) 1)Умножить k-ю строку матрицы А на заданное число тоесть умножить одну любую строку на любое число, наверное так!!!(или я не знаю) 100% так! ;) -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
fms |
19.04.2004 22:58
Сообщение
#9
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
Цитата(VIVAsik @ 19.04.04 12:38) 1)Умножить k-ю строку матрицы А на заданное число тоесть умножить одну любую строку на любое число, наверное так!!!(или я не знаю) не одну любую, а именно k-ю.. и как успехи? сделал? Сообщение отредактировано: fms - 19.04.2004 22:59 -------------------- непонимающая..
|
VIVAsik |
20.04.2004 10:01
Сообщение
#10
|
Группа: Пользователи Сообщений: 5 Репутация: 0 |
Цитата и как успехи? сделал? НУ КАК СКАЗАТЬ КАЖИСЬ ДА. ВРЕМЯ ЕЩЕ НЕ ПРИШЛО.... Я извеняюсь, но вы бы не смогли еще одгу решить :p2: ( ПЛИИЗЗЗЗ (я не подмазываюсь честно!!!) Дан массив, состоящий из 2*N элементов. Поменять его элементы местами следующим образом: Первый элемент с последним, второй с предпоследним и т.д. ЗАРАНИЕ ОГРАМЕННОЕ СПАСИБО УВАЖАЕМЫЕ САТТУ и FMS |
Catty |
20.04.2004 21:06
Сообщение
#11
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Код uses Crt; const n=6; var a:array[1..n*2] of integer; b: integer; i,k:integer; begin ClrScr; writeln('array'); for i:=1 to n*2 do begin read(a[i]); writeln; end; ClrScr; for i:= 1 to n*2 do write(a[i]:4,' '); for i:=1 to n*2-1 do for k:=i+1 to n*2 do begin b:=a[i]; a[i]:=a[k]; a[k]:=b; end; write('novuj masiv:>'); for i:=1 to n*2 do write(a[i]:4,' '); ReadKey; end. вроде оно... :p2: Сообщение отредактировано: Catty - 20.04.2004 21:12 -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
fms |
21.04.2004 1:58
Сообщение
#12
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
Код program pr; const n=3; var a:array[1..n*2]of integer; i,j,temp:integer; begin for i:=1 to n*2 do read(a[i]); for i:=1 to n do begin j:=n*2+1-i; temp:=a[j]; a[j]:=a[i]; a[i]:=temp; end; for i:=1 to n*2 do write(a[i]); end. что то вроде.. -------------------- непонимающая..
|
VIVAsik |
22.04.2004 9:39
Сообщение
#13
|
Группа: Пользователи Сообщений: 5 Репутация: 0 |
НУ ребята я прям не знаю, расцыловать вас надо, просто, расцыловать!!! ЧМОКИ_ЧМОКИ
ВЫ ПРОСТО УМНИЦЫ Я ДАЖЕ НЕ ЗНАЮ...!!! НО У МЕНЯ ВОЗНИК ВОПРОС: "А У КОГО ВЕРНЕЕ,Я В ВДУШЕ НЕ ПОНИМАЮ?" (И если можно паеснить почему вернее утого или у другого) ОГРАМЕННОЕ СПАСИБО и Сообщение отредактировано: VIVAsik - 22.04.2004 9:58 |
fms |
22.04.2004 11:50
Сообщение
#14
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
VIVAsik, дак проверь и узнаешь что вернее.. )
правильно работаю по моему обе.. но у Catty покрасивее оформлено.. просто 2 варианта 1 задачи. всего хорошего. :D -------------------- непонимающая..
|
Catty |
22.04.2004 19:24
Сообщение
#15
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
зато у fms по обьему меньше!
твое дело только выбрать! -------------------- удачки тебе! :D :p2: -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
VIVAsik |
23.04.2004 12:09
Сообщение
#16
|
Группа: Пользователи Сообщений: 5 Репутация: 0 |
СПАСИБО СПАСИБО!!! (УЖЕ проверил) ВЫБРАЛ работу FMS ,а то у CATTY я БЛОК СХЕМУ немного запарней делать!!!
ВСЕМ ОГРОМНОЕ СПОСИБОЧКИИИИИИИИИИИИИИИИИИИИИИ!!!!! :D :D :D |
Текстовая версия | 4.05.2024 3:48 |