|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.09.2008, 10:02 | #1 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
задача на паскале - Матрица,2-х мерный массив
Матрица K(m,m) cостоит изнулей и единицю. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца,не содержащих единицы,либо сообщить,что таковых нет.
Зарание спасибо всем кто откликнеться!!! const m = 3; var i, j: byte; mas: array[1..m, 1..m] of byte; naideno, b: boolean; begin randomize; naideno := false; for i := 1 to m do //заполнение матрицы и вывод на экран begin for j := 1 to m do begin mas[i, j] := random (2); write(mas[i, j]:2) end; writeln end; for i := 1 to m do //поиск по строкам begin b := false; for j := 1 to m do if mas[i, j] = 1 then b := true; if not b then begin writeln('Stroka ', i); naideno := true end; end; for j := 1 to m do //поиск по столбцам begin b := false; for i := 1 to m do if mas[i, j] = 1 then b := true; if not b then begin writeln('Stolb ', j); naideno := true end; end; if not naideno then //если не найдено write('Not found'); readln end. |
17.09.2008, 10:36 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
А в чем проблема? Программа же работает.
|
20.09.2008, 09:07 | #3 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
|
20.09.2008, 09:28 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Не знаю, раз 30 прогнал, если нет единиц в строке, выдает строку, если нет в столбце, выдает столбец, если есть строка и столбец без единиц, то выдает и то и другое, но это только один раз выпало, если нет ни строки ни столбца, сообщает. Размер матрицы 3х3 не дает возможности нормально тестировать программу. Возьмите
const m = 5; Матрицу введите вручную, типа 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 Для этого перепишите строки Код:
Код:
Увидите, что программа выдаст Вам все строки и столбцы. |
22.09.2008, 09:12 | #5 | |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Цитата:
|
|
22.09.2008, 09:17 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Можно написать как Вы хотите, подсчитывая количество единиц или нолей в строке и если одни ноли, то выводить сообщение, но это будет не проще, а сложнее. Здесь Вам переменная типа Boolean все это сама делает, ничего считать и писать не надо.
Если очень хочется посложнее, напишу. |
22.09.2008, 09:32 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот что будет без true, false.
Код:
|
22.09.2008, 13:10 | #8 | |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Цитата:
а у вас он пишет не верный директив.....посмотрите и дорполните...за раннее спасибо... |
|
22.09.2008, 13:16 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вы сами хоть знаете, что вам надо? Вам так и было сделано, но вы написали, что или строку выдает или столбец. Вам переделали, чтобы все строки и все столбцы выдавло, опять нехорошо. Сами то хоть чуть-чуть пошевелите мозгами.
Всего и нужно то, прервать циклы, как находим строку или столбец. Код:
|
22.09.2008, 13:25 | #10 | |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача на паскале - Матрица,2-х мерный массив | vdv08 | Помощь студентам | 1 | 14.09.2008 12:45 |
матрица {двумерные массив} | Влдислаав3911 | Помощь студентам | 6 | 27.05.2008 08:33 |
Помогите Написать программу Матрица и Массив | 77rusnaut | Помощь студентам | 4 | 20.12.2007 20:22 |
С++ Создать класс содержащий 3х-мерный массив int'ов, заполнять с помощью генератора случайных чисел | vipER | Помощь студентам | 1 | 22.09.2007 22:08 |