Дана матрица 6х4, найти и выдать на экран строки содержащие нулевые элементы

[>>arty<<]

Пожалуйста помогите, задача вроде лёгкая, а вот я ваще не врубаюсь как это реализовать, ну не пашет у меня прога и всё, облазил весь форум не смог найти похожей даже.....

[sheka]

есть дофига похожих.
а ваши наработки где?!
исправлять ведь быстрее, чем писать заново. и так больше кто откликнется

[sheka]

uses crt;

const
     xmax=5;
     ymax=3;

var
   a:array[1..ymax,1..xmax]of integer;
   x,y:integer;
   b:boolean;

begin
     randomize;
     clrscr;
     for y:=1 to ymax do
         for x:=1 to xmax do
             a[y,x]:=random(10);

     for y:=1 to ymax do
     begin
          for x:=1 to xmax do
              write(a[y,x]:3);
          writeln;
     end;

     readln;
     writeln;

     for y:=1 to ymax do
     begin
          b:=false;
          for x:=1 to xmax do
              if a[y,x]=0 then b:=true;
          if b=true then
          begin
               for x:=1 to xmax do
                   write(a[y,x]:3);
               writeln;
          end;
     end;
     readln;
end.

[Serge_Bliznykov]

sheka, в целом зачёт.
но парочка замечаний.
1) "Дана матрица 6х4 ... ",
а у Вас: xmax=5; ymax=3;
2) не понравилось использование имён переменных X и Y в качестве индексов для массивов. ещё с древного Фортрана исторически сложилось использовать для индексов переменные I, J, K... а X и Y как-то больше принято использовать в качестве переменных вещественных типов. Хотя, безусловно, это право программиста — выбирать имена переменных... Просто мне, например, глаз режет..
3) т.к. ищем хотя бы один нулевой элемент в строке, то не обязательно крутить цикл по строке, если уже нашли нулевой. Для этого можно или прерывать цикл for, либо, более красиво, воспользоваться циклом с условием. А ещё можно как только нашли нулевой элемент, сразу печатать строку (тогда и в переменной и необходимость отпадёт.) вот так, например:

     for y:=1 to ymax do
     begin
          x:=1;
          while (x<=xmax) and (a[y,x]<>0) do inc(x);
          if (x<=xmax) then
          begin
            for x:=1 to xmax do
              write(a[y,x]:3);
            writeln;
          end;
     end;

p.s. прошу не расценивать мои слова как наезд...

[sheka]

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

p.s. прошу не расценивать мои слова как наезд...

можна и так
3. так как массив маленький - много выиграша во времени это не даст, хотя согласен - не прав(так просто было быстрее писать).
2. в задачах, в которых x,y явно не асоциируются с не цикловыми переменными, напремер, график функции, я предпочитаю использовать х,у. (хотя тоже это не правильно, но при достаточно громоздких прогах - мне, лично, помогает. иногда для циклов вообще называю именем, но очень-очень редко).
1. сколько учусь никак не могу понять что означает 6х4 : [1..4,1..6] или [1..6,1..4], поэтому подумал, если человеку надо, пусть хоть 2 числа поменяет,лень даже свои, хоть какие, наработки выложить.

[Serge_Bliznykov]

sheka. угу. принято. со всем согласен.

много выиграша во времени это не даст

БЕССПОРНО!

сколько учусь никак не могу понять что означает 6х4 : [1..4,1..6] или [1..6,1..4]

принято так 6x4 = array[1..6,1..4] (и, если его вывести получится 6 столбцов * 4 строки)... просто принято, сначала координата по горизонтали (X или номер столбца), потом по вертикали (Y или номер строки).
Но это всё достаточно условно...

лень даже свои, хоть какие, наработки выложить.

шутить изволите?... да я на 100% уверен, что нет у него никаких своих наработок.
Дай ещё Бог, чтобы он смог выложенное решение "переварить"... а то выдаст за своё и глазом не моргнёт...

p.s. ой.. простите, я похоже скатился в оффтоп... ;(

[sheka]

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

принято так 6x4 = array[1..6,1..4] (и, если его вывести получится 6 столбцов * 4 строки)... просто принято, сначала координата по горизонтали (X или номер столбца), потом по вертикали (Y или номер строки).

ничего не перепутал?

[__STDC__]

6*4 - 6 строк, 4 столбца.. сначала номер строки... вот в стринг гриде в делфи, там вроде наоборот

***
еще два первых цикла (с заполнением и выводом) объединить можно в один...

[>>arty<<]

я вроде и сложнее составлял проги а тут так тупанул, что аж самому стыдно Спасибо всем за помощь наработки были но как я понял я запутался в единственном куске, там ещё у меня была некая переменная считающая количество строк в которых нули, хотя она там совсем не нужна была и вовсе как я уже понял...
for i:=1 to n do
begin
x:=false;
for j:=1 to k do
if a[i,j]=0 then x:=true;
if b=true then y:=i;
begin
for j:=1 to k do
write(a[i,j]:2);
writeln;
end;
end;
readln;
end.

[sheka]

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

еще два первых цикла (с заполнением и выводом) объединить можно в один...

а зачем тогда вообще двухмерный массив? можна использовать множество, одномерный массив, файл или вообще строку!
этим меня бесят простые задачи . придумывали б уже зоть какие-то действия над массивом, а то просто ввести и вывести