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

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

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

 
Closed Topic Открыть новую тему 
> матрицы, произведение положительных+работа с диагоналями
сообщение
Сообщение #1


Новичок
*

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

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


найти произведение всех положительнвх элементов матрицы и заменить им все диогональные элементы.помогите плиз. rolleyes.gif

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


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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


Массивы. Матрицы. Типичные задачи.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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


Цитата(fox @ 2.06.2007 14:25) *
найти произведение всех положительнвх элементов матрицы и заменить им все диогональные элементы.помогите плиз. rolleyes.gif
два вложеных цикла, один проходит по строкам, другой по столбцам. в теле проверяеш условие и если оно выполняется добавляеш текущей элемент к сумме...
Цитата(fox @ 2.06.2007 14:25) *
и заменить им все диогональные элементы.
организовуеш цикл до мин. стороны и проводиш заменение...

напоминаю опирация присваевывания элементу/элемента матрици происходит так..
a[i, i]:=s;
s:=s+a[i,j];

теперь, надеюсь, увидеть твой код smile.gif


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


Гость






Цитата
и если оно выполняется добавляеш текущей элемент к сумме...
А ты срочно перечитываешь задание, и делаешь так КАЖДЫЙ раз, прежде чем что-то советовать! Разговора о сумме не было вообще. Сумма и произведение - несколько разные вещи...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


спасибо за всё но плиз напишите как решать там матрица квадратная n=4;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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



Цитата(fox @ 2.06.2007 18:22) *
спасибо за всё но плиз напишите как решать там матрица квадратная n=4;
квадратная, тогда так
const 
n =3; //или 4
var
i,j:integer;
s:longint;
a:array[0..n, 0..n]of integer;
begin
randomize; //эти 4 строки просто заполняют массив...
for i:=0 to n do
for j:=0 to n do
a[i,j]:=random(10)-5;

s:=1;
for i:=0 to n do
for j:=0 to n do
if a[i,j]>0 then s:=s*a[i,j];

for i:=0 to n do a[i,i]:=s;


for i:=0 to n do begin
for j:=0 to n do
write( a[i,j] :7 );
writeln;
end;

readln;
read;
end.


вроде так...

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Сообщение мое проигнорировал ... Чтож твое дело.

Правила одни для все и их нужно соблюдать. Закрыто.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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