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

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

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

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





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

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


Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо. smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(mugler02 @ 25.12.2010 23:50) *
В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.
Как-то вот так:
var
a: array [1..m,1..n] of integer;

...
begin
...
for i:=m downto 1 do
if a[i,1] mod 3=0 then begin
for j:=m-1 downto i do a[j+1]:=a[j];
for j:=1 to n do a[i,j]:=0
end;

Только ты имей в виду, что, поскольку строки сдвигаются при вставке, то последние исчезают.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


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





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

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


Ещё вот такая задачка:
В двумерном массиве удалить столбец, в котором находится первый четный отрицательный элемент.
Как я понимаю,
Код


k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 <> 0 then{если отрицательный и нечетный}
        k:=j;{запоминаем номер столбца}
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');


Как думаете, верно?

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


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(mugler02 @ 26.12.2010 23:25) *
Ещё вот такая задачка:
В двумерном массиве удалить столбец, в котором находится первый четный отрицательный элемент.
Как я понимаю,
...
Как думаете, верно?
Думаю, нет.
В условии - про первый четный, а ты ищешь на самом деле последний нечетный. Если хочешь искать первое вхождение - обрывай цикл поиска сразу после нахождения.
Само удаление, вроде, верно.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





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

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


То есть верно будет так?
Код
k:=0;
for j:=1 to n do
begin
  for i:=1 to m do
  if (a[i,j]<0)and (a[i,j]) mod 2 =0 then
        k:=j;
end;
if k=0 then write('В матрице нет отрицательных нечетных элементов')
else
begin
  writeln('Номер первого столбца с нечетным отрицательным элементом=',k);
  for i:=1 to m do{всем элементы всех строк}
  for j:=k to n-1 do{от номера столбца до предпоследнего}
  a[i,j]:=a[i,j+1];{присваиваем значение следующего}
  n:=n-1;{уменьшаем количество столбцов}
end;
writeln('Удаление столбца:');
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(mugler02 @ 27.12.2010 23:26) *
То есть верно будет так?
Нет.
Можно вот так:
k:=0;
for j:=1 to n do begin
for i:=1 to m do
if (a[i,j]<0)and (a[i,j]) mod 2<>0 then begin
k:=j;
break
end;
if k>0 then break
end;

Но лучше использовать цикл while. Еще один вариант (самый красивый)) - использовать функцию и выходить из нее во внутреннем цикле.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата(mugler02 @ 25.12.2010 23:50) *

Прошу помочь разобраться с решением задачи:

В двумерном массиве вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

Заранее спасибо. smile.gif

не понял
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата(Lapp @ 26.12.2010 9:35) *

Как-то вот так:
var
a: array [1..m,1..n] of integer;

...
begin
...
for i:=m downto 1 do
if a[i,1] mod 3=0 then begin
for j:=m-1 downto i do a[j+1]:=a[j];
for j:=1 to n do a[i,j]:=0
end;

Только ты имей в виду, что, поскольку строки сдвигаются при вставке, то последние исчезают.

извини но обьясни мне_________________________ смысл.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(Гость @ 30.12.2010 20:58) *
не понял


Цитата(Гость @ 30.12.2010 21:04) *
извини но обьясни мне_________________________ смысл.

Ну, и чего же ты не понял, дорогой Гость? Что тебе объяснить?


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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