Дана целочисленная квадратная матрица порядка N. Найти номера строк, все элементы которы - нули

@xxxxxx_93 · Регистрация: 17.09.2012

Студворк — интернет-сервис помощи студентам

дана целочисленная квадратная матрица порядка N. Найти номера строк,всех элементов которые - нули.

@rangerx · 28.12.2012, 21:09

Pascal

program prog;
 
label
  SKIP_LABEL;
 
const
  n = 5;
 
var  
  i, j: Integer;
  matrix: array[1..n, 1..n] of Integer;
  
begin
  for i:= 1 to n do begin
    for j:= 1 to n do begin
      Write('[', i, ',', j, ']: ');
      ReadLn(matrix[i,j]);
    end;
  end;
 
  WriteLn;
  
  for i:= 1 to n do begin
    for j:= 1 to n do 
      Write(matrix[i,j]: 7);
    WriteLn;
  end;
 
  WriteLn;
  
  for i:= 1 to n do begin
    for j:= 1 to n do 
      if matrix[i,j] <> 0 then
        goto SKIP_LABEL;
        
      WriteLn(i);
      
  SKIP_LABEL:;
  end;    
end.

@cdkrot · 29.12.2012, 20:08

Касательно skip_label: вместо меток и goto можно (и далее лучше) использовать выход из цикла break;
Для этого вложенный цикл увеличите до n+1. И на n+1 делайте с найденной строкой что хотите.

@xxxxxx_93 0 / 0 / 0 Регистрация: 17.09.2012 Сообщений: 8
		1
	Дана целочисленная квадратная матрица порядка N. Найти номера строк, все элементы которы - нули 28.12.2012, 17:48. Показов 6373. Ответов 2 Метки нет (Все метки) дана целочисленная квадратная матрица порядка N. Найти номера строк,всех элементов которые - нули. 0

@cdkrot 0 / 0 / 2 Регистрация: 28.12.2012 Сообщений: 20
	29.12.2012, 20:08	3
	Касательно skip_label: вместо меток и goto можно (и далее лучше) использовать выход из цикла break; Для этого вложенный цикл увеличите до n+1. И на n+1 делайте с найденной строкой что хотите. 0

Опции темы

Дана целочисленная квадратная матрица порядка N. Найти номера строк, все элементы которы - нули

Решение