Проверить, все ли элементы столбца матрицы нулевые

@hhaf · Регистрация: 02.06.2017

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

Получив массив B, присвоив его k-му элементу значение 0, если все элементы k-го столбца матрицы нулевые, и значение 1 в противном случае(k=1,2,...,M)

@D1973 · 16.06.2017, 12:16

hhaf, что сами сделали, в чем проблема возникла? (Ответы "вааще не понимаю...", "не знаю массивы" и т.д. и т.п. - не котируются)

@hhaf · 16.06.2017, 12:18 **[ТС]**

хочу научится делать на примере

@Matan! · 16.06.2017, 12:20

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

Получив массив B, присвоив его k-му элементу

Напишите, пожалуйста, по-русски.. Ничего не понятно. Дана матрица A(NxM). Что и как нужно из неё получить?

Добавлено через 54 секунды

Не по теме:

D1973, вывернулся:D

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

хочу научится делать на примере

@hhaf · 16.06.2017, 12:21 **[ТС]**

Извиняюсь, "Получить массив B

@D1973 · 16.06.2017, 12:24

Сообщение от Matan!

Ничего не понятно

Да это понятно... Суммировать каждый столбец матрицы A: если сумма = 0, то соответствующий столбцу элемент массива В = 0, иначе =1

Добавлено через 1 минуту

Не по теме:

Сообщение от Matan!

вывернулся

Ага :D Но грамотно...

Добавлено через 47 секунд
hhaf, что конкретно надо: консоль или форму? И если форму, то какая версия Дельфи?

@Matan! · 16.06.2017, 12:25

hhaf, я так понял, что Вам нужно получить массив, у которого 0 - это соответствующие номера нулевых столбцов матрицы А, а все остальные элементы массива 1. Так?

@hhaf · 16.06.2017, 12:29 **[ТС]**

консоль

Добавлено через 3 минуты
да

@D1973 · 16.06.2017, 12:50

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var N, M, S, i, j: integer;
    A: array of array of integer;
    B: array of integer;
 
procedure PrintMatrixA;
var s : String;
    i, j: integer;
begin
 for i := 0 to N - 1 do
  begin
   s := '';
   for j := 0 to M - 1 do
    s := s + IntToStr(A[i, j]) + #9;
   Writeln(s);
  end;
end;
 
procedure PrintMatrixB;
var s : String;
    i: integer;
begin
 s := '';
 for i := 0 to M - 1 do
  s := s + IntToStr(B[i]) + #9;
 Writeln(s);
end;
 
begin
 Write('Enter N: ');
 Readln(N);
 Write('Enter M: ');
 Readln(M);
 SetLength(A, N, M);
 SetLength(B, M);
 for i := 0 to N - 1 do
  for j := 0 to M - 1 do
   begin
    Write(Format('A[%d, %d] = ', [i, j]));
    Readln(A[i, j]);
   end;
 Writeln('');
 Writeln('Our matrix A:');
 PrintMatrixA;
 for j := 0 to M - 1 do
  begin
   S := 0;
   for i := 0 to N - 1 do
    S := S + A[i, j];
   if S = 0 then B[j] := 0 else B[j] := 1;
  end;
 Writeln('');
 Writeln('Our matrix B:');
 PrintMatrixB;
 Readln;
end.

@hhaf · 16.06.2017, 12:59 **[ТС]**

спасибо

@Matan! · 16.06.2017, 13:05

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  A: array of array of Integer;
  i, j: Integer;
  N, M, Sum: Integer;
  B: array of Integer;
 
begin
  Writeln('Enter number of Rows');
  Readln(N);
  Writeln('Enter number of Columns');
  Readln(M);
 
  SetLength(A, N, M);
  SetLength(B, M);
 
  for i := 0 to N - 1 do
    for j := 0 to M - 1 do
      Readln(A[i, j]);
  Writeln;
  for i := 0 to N - 1 do
  begin
    for j := 0 to M - 1 do
      Write(IntToStr(A[i, j]) + ' ');
    Writeln;
  end;
  Writeln;
  for j := 0 to M - 1 do
  begin
    Sum := 0;
    for i := 0 to N - 1 do
      Sum := Sum + A[i, j];
    if Sum = 0 then
      B[j] := 0
    else
      B[j] := 1;
  end;
  for j := 0 to M - 1 do
    Write(IntToStr(B[j]) + ' ');
 
  Sleep(1000);
end.

Добавлено через 51 секунду

Я на 14 мин отстал..

@volvo · 16.06.2017, 13:10

Не это нужно было ТС-у. Написано же, если все элементы k-го столбца - нули, то присвоить B[k] ноль. Если нет - то присвоить 1. Matan!, что будет, если столбец будет таким: <1, -1, 2, 4, -6, 0>? Сумма = 0, но не все элементы = 0, ответ неправильный.

@D1973 · 16.06.2017, 13:38

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

ответ неправильный

Ха! Воистину, никто отрицательные элементы и не рассматривал...

@D1973 · 16.06.2017, 13:46

volvo, спасибо за замечание.
hhaf, вот исправленный код

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var N, M, i, j: integer;
    A: array of array of integer;
    B: array of integer;
    Zero: boolean;
 
procedure PrintMatrixA;
var s : String;
    i, j: integer;
begin
 for i := 0 to N - 1 do
  begin
   s := '';
   for j := 0 to M - 1 do
    s := s + IntToStr(A[i, j]) + #9;
   Writeln(s);
  end;
end;
 
procedure PrintMatrixB;
var s : String;
    i: integer;
begin
 s := '';
 for i := 0 to M - 1 do
  s := s + IntToStr(B[i]) + #9;
 Writeln(s);
end;
 
begin
 Write('Enter N: ');
 Readln(N);
 Write('Enter M: ');
 Readln(M);
 SetLength(A, N, M);
 SetLength(B, M);
 for i := 0 to N - 1 do
  for j := 0 to M - 1 do
   begin
    Write(Format('A[%d, %d] = ', [i, j]));
    Readln(A[i, j]);
   end;
 Writeln('');
 Writeln('Our matrix A:');
 PrintMatrixA;
 for j := 0 to M - 1 do
  begin
   Zero := true;
   for i := 0 to N - 1 do
    if A[i, j] <> 0 then Zero := false;
   if Zero then B[j] := 0 else B[j] := 1;
  end;
 Writeln('');
 Writeln('Our matrix B:');
 PrintMatrixB;
 Readln;
end.

@hhaf · 19.06.2017, 20:58 **[ТС]**

А можно еще форму?

@Matan! · 20.06.2017, 08:30

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

А можно еще форму?

А ты сам её не можешь создать?
У тебя и алгоритм и код на руках. Осталось его немножко подправить для стринглиста(или мемо, смотря куда вводить матрицу будешь).

@D1973 · 20.06.2017, 08:46

Да матрицу-то лучше всего в СтрингГрид...

@Matan! · 20.06.2017, 10:31

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

Да матрицу-то лучше всего в СтрингГрид...

Сорри, хотел написать стринггрид, а написал стринглист...

@hhaf -8 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 50
	19.06.2017, 20:58 [ТС]	15
	А можно еще форму? 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	16.06.2017, 12:16	2
	hhaf, что сами сделали, в чем проблема возникла? (Ответы "вааще не понимаю...", "не знаю массивы" и т.д. и т.п. - не котируются) 0

@hhaf -8 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 50
	16.06.2017, 12:18 [ТС]	3
	хочу научится делать на примере 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	16.06.2017, 12:20	4
	Сообщение от hhaf Получив массив B, присвоив его k-му элементу Напишите, пожалуйста, по-русски.. Ничего не понятно. Дана матрица A(NxM). Что и как нужно из неё получить? Добавлено через 54 секунды Не по теме: D1973, вывернулся:D Сообщение от hhaf хочу научится делать на примере 0

@hhaf -8 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 50
	16.06.2017, 12:21 [ТС]	5
	Извиняюсь, "Получить массив B 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	16.06.2017, 12:24	6
	Сообщение от Matan! Ничего не понятно Да это понятно... Суммировать каждый столбец матрицы A: если сумма = 0, то соответствующий столбцу элемент массива В = 0, иначе =1 Добавлено через 1 минуту Не по теме: Сообщение от Matan! вывернулся Ага :D Но грамотно... Добавлено через 47 секунд hhaf, что конкретно надо: консоль или форму? И если форму, то какая версия Дельфи? 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	16.06.2017, 12:25	7
	hhaf, я так понял, что Вам нужно получить массив, у которого 0 - это соответствующие номера нулевых столбцов матрицы А, а все остальные элементы массива 1. Так? 0

@hhaf -8 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 50
	16.06.2017, 12:29 [ТС]	8
	консоль Добавлено через 3 минуты да 0

@hhaf -8 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 50
	16.06.2017, 12:59 [ТС]	10
	спасибо 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	16.06.2017, 13:10	12
	Не это нужно было ТС-у. Написано же, если все элементы k-го столбца - нули, то присвоить B[k] ноль. Если нет - то присвоить 1. Matan!, что будет, если столбец будет таким: <1, -1, 2, 4, -6, 0>? Сумма = 0, но не все элементы = 0, ответ неправильный. 2

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	16.06.2017, 13:38	13
	Сообщение от volvo ответ неправильный Ха! Воистину, никто отрицательные элементы и не рассматривал... 0

	20.06.2017, 10:31

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	20.06.2017, 08:30	16
	Сообщение от hhaf А можно еще форму? А ты сам её не можешь создать? У тебя и алгоритм и код на руках. Осталось его немножко подправить для стринглиста(или мемо, смотря куда вводить матрицу будешь). 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	20.06.2017, 08:46	17
	Да матрицу-то лучше всего в СтрингГрид... 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	20.06.2017, 10:31	18
	Сообщение от D1973 Да матрицу-то лучше всего в СтрингГрид... Сорри, хотел написать стринггрид, а написал стринглист... 0