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