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

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

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

 
 Ответить  Открыть новую тему 
> 2 задачки по Паскалю, РАБОТА С МАТРИЦОЙ
сообщение
Сообщение #1


Гость






Помогите, пожалуйста, кому не трудно, нужно 2 задачки по Паскалю решить:
1)Дана матрица размерности N на M. Найти столбец, в котором максимальный элемент минимален в соответствующей строке
2)Дана матрица размерности N на M. Вывести номера всех столбцов матрицы, не содержащих отрицательных элементов.


ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО ВСЕ, КТО ПОМОГ good.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


поиск
****

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

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



for i := 1 to n do //для столбцов
begin
f := 0 ;
for k := 1 to m do //для сточек
begin
if matrix[k,i] > 0 then inc(f) else //если < 0 то f + 1
break ; // в противном случае можно не смотреть
end
if f = m then writeln(i); //если колво элементов > 0 = кол во сторк то вывод на экран №столба
end ;


Вроде так если я что не нппутал с столбами и сточками smile.gif

У меня n столбцов и m строчек.

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


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


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

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

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


1-я задача - в поиск "следовые точки"

2-я:

for col := 1 to m do begin
row := 1;
while (row <= n) and (x[row, col] >= 0) do
inc(row);
if row > n then
writeln(col);
end;


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


поиск
****

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

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


(klem4)
хороший код...


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Спасибо ОГРОМНОЕ! Буду разбираться.
 К началу страницы 
+ Ответить 

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

 





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