VPF::[Pascal] Ненулевые строки в матрице

Andronit

Дата 22.12.2006, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

Помогите пожалуйста! Мне нужна прога, кот-я будет определять количество строк в матрице, не содержащих ни одного нулевого элемента. (оформить ввиде функции)
Буду очень признателен!

skyboy

Дата 23.12.2006, 16:17 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 5
Всего: 260

Код


type 
 TArr= array[1..20,1..20] of integer;
function countRowsNoZero(ar: TArr; N: integer): integer;
var i,j,count: integer; 
begin
count:= 0;
for i:= 1 to N do
 begin
  count:= count + 1;
  for j:=1 to N do
   if ar[i,j] = 0
    then
     begin
      count:= count - 1;
      break;
     end;
 end;
countRowsNoZero:= count; 
end;

var Arr: TArr;
      N,i,j: integer;
begin
 writeln('Введите размерность матрицы');
 readln(N);
 if N< 1
  then
   begin
    writeln('Как минимум одна строка и как минимум один столбце должны быть');
    N:= 1;
   end;
 if N> 20
  then
   begin
    writeln('Извините, программа не может обработать более 20 строк и более 20 столбцов');  
    N:= 20;
   end;
writeln('Вводите матрицу:');
for i:= 1 to N do
 begin
  writeln('Строка', i);
  for j:= 1 to N do
   begin
    writeln('Элемент ',j);
    readln(Arr[i,j]);
   end;
 end;
writeln('Количество строк, в которых нет нулевых элементов:', countRowsNoZero(Arr,N));
end.

Andronit

Дата 23.12.2006, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

СПАСИБО ОГРОМНОЕ!!!!!! smile

skyboy

Дата 23.12.2006, 21:49 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 5
Всего: 260

почему бы не отметить вопрос решенным? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »