задача на паскале - Матрица,2-х мерный массив

[vdv08]

Матрица 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.

[puporev]

А в чем проблема? Программа же работает.

[vdv08]

Сообщение от puporev

А в чем проблема? Программа же работает.

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

[puporev]

Не знаю, раз 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
Для этого перепишите строки

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
for j := 1 to m do
begin
read(mas[i,j]);
end;
readln
end;

Матрицу вводите как нарисована, в строках через пробел, в конце каждой строки - Enter.
Увидите, что программа выдаст Вам все строки и столбцы.

[vdv08]

Сообщение от puporev

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.

как напиать прогу без false и true попроще,и легче вы не знаете....

[puporev]

Можно написать как Вы хотите, подсчитывая количество единиц или нолей в строке и если одни ноли, то выводить сообщение, но это будет не проще, а сложнее. Здесь Вам переменная типа Boolean все это сама делает, ничего считать и писать не надо.
Если очень хочется посложнее, напишу.

[puporev]

Вот что будет без true, false.

uses crt;
var a:array[1..20,1..20]of byte;
    n,m,i,j,k,s:byte;
begin
clrscr;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');
for i:=1 to n do
for j:= 1 to m do
read(a[i,j]);//здесь вводим чbсла в строке через пробел, в конце строки-Enter
readln;
s:=0;
for i:=1 to n do
  begin
    k:=0;
    for j:= 1 to m do
    if a[i,j]=1 then k:=k+1;//считаем единицы в строке
    if k=0 then //если нет
      begin
        s:=1; //фиксируем
        writeln('V stroke ',i,' edinic net!');//выводим сообщение
      end;
  end;
for j:=1 to m do
  begin
    k:=0;
    for i:= 1 to n do
    if a[i,j]=1 then k:=k+1; //то же в столбцах
    if k=0 then
      begin
        s:=1;
        writeln('V stolbce ',j,' edinic net!');
      end;
  end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

Как видите, вместо false, true появились k,s + вычисления, т.е программа стала тяжелее, хотя если не понимаеете тип boolean, то легче для понимания.

[vdv08]

Сообщение от puporev

Вот что будет без true, false.

uses crt;
var a:array[1..20,1..20]of byte;
    n,m,i,j,k,s:byte;
begin
clrscr;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');
for i:=1 to n do
for j:= 1 to m do
read(a[i,j]);//здесь вводим чbсла в строке через пробел, в конце строки-Enter
readln;
s:=0;
for i:=1 to n do
  begin
    k:=0;
    for j:= 1 to m do
    if a[i,j]=1 then k:=k+1;//считаем единицы в строке
    if k=0 then //если нет
      begin
        s:=1; //фиксируем
        writeln('V stroke ',i,' edinic net!');//выводим сообщение
      end;
  end;
for j:=1 to m do
  begin
    k:=0;
    for i:= 1 to n do
    if a[i,j]=1 then k:=k+1; //то же в столбцах
    if k=0 then
      begin
        s:=1;
        writeln('V stolbce ',j,' edinic net!');
      end;
  end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

Как видите, вместо false, true появились k,s + вычисления, т.е программа стала тяжелее, хотя если не понимаеете тип boolean, то легче для понимания.

спасибо что помогаете,но надо что выводило как в задаче Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца,не содержащих единицы,либо сообщить,что таковых нет.

а у вас он пишет не верный директив.....посмотрите и дорполните...за раннее спасибо...

[puporev]

Вы сами хоть знаете, что вам надо? Вам так и было сделано, но вы написали, что или строку выдает или столбец. Вам переделали, чтобы все строки и все столбцы выдавло, опять нехорошо. Сами то хоть чуть-чуть пошевелите мозгами.
Всего и нужно то, прервать циклы, как находим строку или столбец.

s:=0;
for i:=1 to n do
  begin
    k:=0;
    for j:= 1 to m do
    if a[i,j]=1 then k:=k+1;//считаем единицы в строке
    if k=0 then //если нет
      begin
        s:=1; //фиксируем
        writeln('V stroke ',i,' edinic net!');//выводим сообщение
        readln;
        exit
      end;
  end;

Тоже самое в столбцах.

[vdv08]

Сообщение от puporev

Вы сами хоть знаете, что вам надо? Вам так и было сделано, но вы написали, что или строку выдает или столбец. Вам переделали, чтобы все строки и все столбцы выдавло, опять нехорошо. Сами то хоть чуть-чуть пошевелите мозгами.
Всего и нужно то, прервать циклы, как находим строку или столбец.

s:=0;
for i:=1 to n do
  begin
    k:=0;
    for j:= 1 to m do
    if a[i,j]=1 then k:=k+1;//считаем единицы в строке
    if k=0 then //если нет
      begin
        s:=1; //фиксируем
        writeln('V stroke ',i,' edinic net!');//выводим сообщение
        readln;
        exit
      end;
  end;

Тоже самое в столбцах.

спасибо огромное