Помогите пожалуйста
Вот такая задача
Я нашел число нулевых элементов в каждом столбце(ch[j])
И теперь мне надо найти столбец в котором больше всего нулевых элементов.?
 Перестановка столбцов |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Определение столбца............. |
Сообщение
#1
|
|
Гость  |
|
 
|
|
  |
Ответов
| volvo |
Сообщение
#2
|
|
Гость |
VDmV, а ты правила читал?
Цитата 6. Проверяйте программы перед тем, как запостить их!!! В Турбо-Паскале твой фрагмент кода не откомпилируется. Внимательнее с этим... Это первое. А второе - нужно не координаты нулей, а количество их в каждом столбце... Чтобы потом найти максимум... чтобы потом перебросить столбец с максимальным количеством нулей на последнюю позицию... И т.д. и т.п. Вместо того, чтобы ВНИМАТЕЛЬНО прочесть пост №4, и ссылку которая там находится. С учетом той информации программа уложится в несколько строк... Изобретаем дальше... |
|
|
|
Сообщений в этой теме
Определение столбца............. Перестановка столбцов 15.05.2005 21:19
Дож Допустим вот так:
Var i,max,temp : integer;
....… 15.05.2005 21:40 Serega18 подЗадача:Поставить на первое место столбец с наим… 15.05.2005 21:56 volvo :no: Ты должен сначала определить, в каком столбце… 15.05.2005 22:13 Serega18 Faq прочел ниче не понял.
А чтобы найти столбец с … 15.05.2005 22:32 volvo Не пойдет... У тебя это даже не скомпилируется ...… 15.05.2005 23:02 Serega18 FА если у меня num будет одномерным массивом
Proc… 15.05.2005 23:27 volvo Function min_nulls(var A:matrix): integer;
var
i… 16.05.2005 0:52 Serega18 count,indx -а что это такое? 16.05.2005 0:56 volvo Переменные, что еще? :blink: Count считает скольк… 16.05.2005 1:53 Serega18 Значит при перестоновке поставить indx
Procedu… 16.05.2005 2:48 volvo Да что тебя так тянет на этот NUM?
Procedure resor… 16.05.2005 2:52 Serega18 Спасибо :molitva: (А как во внутренней спецификац… 16.05.2005 3:09
volvo
Во внутренней спец... чего? :blink: Ты с кем это… 16.05.2005 3:42 Serega18 Появился еще один вопрос:
А что если после нахожде… 16.05.2005 22:14 volvo IF A[i,indx]=0 then
T:=A[5-n,indx]
… 16.05.2005 22:47 Serega18 IF A[i,indx]=0 then
… 16.05.2005 23:07 volvo Вот только не говори мне, что этот код НЕ эквивале… 16.05.2005 23:13 Serega18 А почему T лишняя? (я думал что для перестановки… 16.05.2005 23:19 Дож Естественно, нет...
Это
k:=a;
a:=b;
b… 17.05.2005 0:04 volvo Дож
Во-первых, речь не об этом, а о том, что если … 17.05.2005 0:14 Serega18 Решил собрать все подзадачи в одну и используя тек… 28.05.2005 20:34 volvo Опять велосипед изобретаем? Ну-ну... Что за смысл … 28.05.2005 20:46 Serega18 Найти нул элементы в каждом столбце
Может так
Proc… 28.05.2005 20:58 volvo Прочти теорию сначала, а потом уже начинай програм… 28.05.2005 21:15 Дож
Когда значение одной переменной известно, то все… 28.05.2005 21:19 Serega18 Присваиваю ch тип odn(одномерный массив),А-matrix
… 28.05.2005 21:27 VDmV Извиняюсь что вклиниваюсь, но я не могу на енто см… 28.05.2005 21:31 VDmV
Я понял. Возможно и не откомпилируется, но я хоте… 28.05.2005 22:06 Serega18 Begin
assign(f1,'isdan.pas');
as… 29.05.2005 2:22 volvo
Ну так куда же деваться? Если нужно сохранять изм… 29.05.2005 3:47 Serega18 Сделал так:Сделал еще одну процедуру в которой из … 30.05.2005 20:52 volvo
Сделать-то можешь только... Вот программа-то твоя… 30.05.2005 21:21 Serega18 Исправил предыдущие ошибки но f2 всеравно остается… 30.05.2005 21:43 volvo А файлы за тебя кто закрывать будет? Может быть ты… 30.05.2005 22:46 Serega18 Теперь в f2 выводит просто ноль
Program S4_3_3;
Us… 31.05.2005 0:44 volvo А вот что у меня получилось:
(только учти, что в… 31.05.2005 1:27 Serega18 Это очень круто :blink: ,я так понял там нетипизир… 31.05.2005 3:21 VDmV Мдя, решение конечно найдено, но 2Serega18. Не раз… 31.05.2005 3:28 Serega18 тоесть мне надо j во входящие параметры записать?
… 31.05.2005 3:45 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 7.09.2025 18:05 |
Связь с администрацией: bu_gen в домене octagram.name