0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 3
1

Дана целочисленная квадратная матрица размером n*n, найти номера строк, все элементы которых – нули

19.10.2016, 21:40. Показов 3938. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
по теме «Двумерные массивы» помогите написать программу: дана целочисленная квадратная матрица размером n*n. Найти номера строк, все элементы которых – нули.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2016, 21:40
Ответы с готовыми решениями:

Найти номера строк матрицы, все элементы которых - нули
приложение 5 y=(1-e "в степени -ab") x sin(4По) Приложение 6 Известно, что из 4х чисел одно...

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

Дана матрица А 30х10. Вывести номера строк, в которых все цифры >=8
Дана матрица А 10x30. Вывести номера строк, в которых все цифры >=8. Ошибся в размерности.

найти номера строк, все элементы которые - нули
дана целочисленная квадратная матрица размером n*n найти номера строк, все элементы которые - нули

4
-9 / 1 / 1
Регистрация: 20.06.2016
Сообщений: 18
19.10.2016, 21:46 2
Так ведь раздел для С++

Добавлено через 3 минуты
Ну а так лови:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
var
d,k,n,i,j:integer;
a:array[1..25,1..25] of integer;
g:array[1..25] of integer;
begin
clrscr;
write('n='); readln(n);
d:=0;
 
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
if a[i,j]=0 then
begin
k:=k+1;
if k=n then
begin
d:=d+1;
g[d]:=i;
end;
end;
end;
end;
 
writeln;
for i:=1 to d do
begin
write(g[i],' ');
end;
readln;
end.
0
0 / 0 / 0
Регистрация: 19.10.2016
Сообщений: 3
19.10.2016, 22:07  [ТС] 3
The_Shak, проверила программу в паскале, он в итоге мне не выводит номера строк, где элементы равны нулю.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
21.10.2016, 21:33 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const n=5;
type mas=array[1..n,1..n] of integer;
var a:mas;
    i,j:integer;
    rez:set of byte;
    f:boolean;
begin
 rez:=[];
 for i:=1 to n do
  begin
   f:=true;
   for j:=1 to n do
    begin
     a[i,j]:=-5+random(7);
     if a[i,j]<=0 then a[i,j]:=0 else f:=false;  
     write(a[i,j]:3)
    end;
   if f then include(rez,i); 
   writeln
  end;
 writeln('***'); 
 if rez<>[]
  then 
   begin
    for i:=1 to n do if i in rez then write(i,' ')
   end 
  else writeln('---')
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7534 / 4394 / 2785
Регистрация: 22.11.2013
Сообщений: 12,588
Записей в блоге: 1
22.10.2016, 10:34 5
Если не совмещать ввод с проверкой, может быть намного проще:
Pascal
1
2
3
4
5
6
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  Write('Строки из нулей:');
  for i:=1 to n do begin
    j:=n; while (j>0) and (a[j]=0) do Dec(j);
    if j=0 then Write(' ',i);
  end; WriteLn;
Добавлено через 5 минут
Если нужна диагностика отсутствия таких строк:
Pascal
1
2
3
4
5
6
7
8
for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  Write('Строки из нулей:');
  for i:=1 to n do begin
    j:=n; while (j>0) and (a[j]=0) do Dec(j);
    if j=0 then begin Write(' ',i); Inc(k); end;
  end; 
  if k>0 then WriteLn
  else WriteLn(' отсутствуют');
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2016, 10:34
Помогаю со студенческими работами здесь

Найти номера строк , все элементы которых равны
помогите решить! дана целочисленная матрица М(5,4).Найти номера строк , все элементы которых...

Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали..
..

Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали
Матрица 1.Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и...

Дана целочисленная квадратная матрица.
ПОМОГИТЕ ПОЖАЛУЙСТА! 1)Дана целочисленная квадратная матрица.Найти в каждой строке наибольший...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru