IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> преобразование квадратной матрицы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


РЕБЯТ помогите ГОРЮ не понимаю (чайнтк я) КОМУ не влом распишите умоляю!!! ЗАРАНИЕ БЛОГАДОРЮ!!!

а) Умножить k-ю строку матрицы А на заданное число;

б) сформировать вектор V, элементами которого являются суммы модулей элементов строк полученной матрицы;

в) упорядочить элементы V в порядке возрастания.

Сообщение отредактировано: VIVAsik -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 -


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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;


по моему так.. rolleyes.gif


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


я думаю он разберется теперь сам что и куда!! :D

Сообщение отредактировано: Catty -


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Женский

Репутация: -  0  +


Catty, :D посмотрим.. посмотрим..smile.gif


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


ОГРОМНОЕ СПОСИБО УВАЖАЕМЫЕ CATTY и FMS!!!
СЕРДЕЧНО БЛАГОДАРЮ!!! smile.gif smile.gif smile.gif
"я думаю он разберется теперь сам что и куда!!" unsure.gif
ЭЭЭЭЭ несовсем. ЕЩЕ РАЗ МОНА!!!! blink.gif blink.gif
1)Умножить k-ю строку матрицы А на заданное число тоесть умножить одну любую строку на любое число, наверное так!!!(или я не знаю)

Сообщение отредактировано: VIVAsik -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Женский

Репутация: -  0  +


Цитата(VIVAsik @ 19.04.04 12:38)
1)Умножить k-ю строку матрицы А на заданное число тоесть умножить одну любую строку на любое число, наверное так!!!(или я не знаю)

не одну любую, а именно k-ю.. smile.gif


и как успехи? сделал?

Сообщение отредактировано: fms -


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


Цитата
и как успехи? сделал?

НУ КАК СКАЗАТЬ КАЖИСЬ ДА. ВРЕМЯ ЕЩЕ НЕ ПРИШЛО....
Я извеняюсь, но вы бы не смогли еще одгу решить unsure.gif :p2: sad.gif ( ПЛИИЗЗЗЗ (я не подмазываюсь честно!!!)

Дан массив, состоящий из 2*N элементов. Поменять его элементы местами следующим образом: Первый элемент с последним, второй с предпоследним и т.д.

ЗАРАНИЕ ОГРАМЕННОЕ СПАСИБО УВАЖАЕМЫЕ САТТУ и FMS
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 -


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.


что то вроде..


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


lol.gif lol.gif lol.gif НУ ребята я прям не знаю, расцыловать вас надо, просто, расцыловать!!! smile.gif smile.gif smile.gif ЧМОКИ_ЧМОКИ
ВЫ ПРОСТО УМНИЦЫ Я ДАЖЕ НЕ ЗНАЮ...!!!
НО У МЕНЯ ВОЗНИК ВОПРОС: "А У КОГО ВЕРНЕЕ,Я В ВДУШЕ НЕ ПОНИМАЮ?"
(И если можно паеснить почему вернее утого или у другого)
ОГРАМЕННОЕ СПАСИБО САТТУ и FMS

Сообщение отредактировано: VIVAsik -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Женский

Репутация: -  0  +


VIVAsik, дак проверь и узнаешь что вернее.. )
правильно работаю по моему обе.. но у Catty покрасивее оформлено.. smile.gif

просто 2 варианта 1 задачи.

всего хорошего. :D


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


СПАСИБО СПАСИБО!!! (УЖЕ проверил) ВЫБРАЛ работу FMS ,а то у CATTY я БЛОК СХЕМУ немного запарней делать!!!
ВСЕМ ОГРОМНОЕ СПОСИБОЧКИИИИИИИИИИИИИИИИИИИИИИ!!!!! :D :D :D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 6:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name