Определить количество столбцов в квадратной матрице, содержащих хотя бы один нулевой элемент

@cool2ra · Регистрация: 30.01.2013

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

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

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n:integer;
  a:array of array of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
n:=SpinEdit1.Value;
setlength(a,n,n);
with StringGrid1 do
 begin
  ColCount:=n;
  RowCount:=n;
 
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=-25+random(25);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var j,z,mins,sum:integer;
begin
mins:=abs(a[0,0]);
for z:=n-1 downto -n+1 do
 begin
  sum:=0;
  for j:=0 to n-1 do
  if (j-z in [0..n-1]) then  sum:=sum+abs(a[j-z,n-j-1]);
  Memo1.Lines.Add(IntToStr(n-z)+' = '+IntToStr(sum));
  if sum<mins then mins:=sum;
 end;
Memo1.Lines.Add('максимальная сумма модулй'+IntToStr(mins));
 
end;
 
 
end.

@BabyGluk · 27.06.2013, 12:41

Извени, пишу с мобильного..нету возможности протестить..
Что бы считать нулевые елементы столбиков, тебе нужно пройтись по матрице как то так
Взять твой цикл и поменять местами a[j,i] может и ошибаюсь или

Delphi

For j:= 0 to n-1 do
For i:= 0 to n-1 do
Begin
If a[i,j] = 0 then inc(count);
End;
Memo1.lines.add(inttostr(count));

@Ev1l · 27.06.2013, 12:55

@BabyGluk,

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

количество столбцов в квадратной матрице, содержащих хотя бы один нулевой элемент

, а вы нашли все нулевые элементы, лучше так, где j - столбец, i - строка, break завершит выполнение проверки текущего столбца при первом появлении 0:

Delphi

For j:= 0 to n-1 do
   For i:= 0 to n-1 do
       If a[j,i] = 0 then 
         begin
         inc(count);
         break;
         End;
Memo1.lines.add(inttostr(count));

@BabyGluk · 27.06.2013, 13:03

Вы правы, наверное когда читал, пропустил ..

@cool2ra · 27.06.2013, 13:40 **[ТС]**

я щас по другому уже сделал, но там ошибока в вычислении(точнее походу вообще не вычисляет)

Delphi

function kolvo(kol,h:integer):integer;
var i,j:integer; temp:set of byte;
begin
kol:=0;
for i:=1 to n do
for j:=1 to n do
begin
if (a[i,j] = 0) and not(j in temp) then
        begin
          temp:=temp+[j];
          h:=1;
          kol:=kol+1;
        end
 
 end;
end;

при выводе выдаёт 10-ти значное число, откуда он его берёт ума не приложу

Добавлено через 18 минут
впрчем как и в вашем коде, кидаю весь текст

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n:integer;
  a:array of array  of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
n:=SpinEdit1.Value;
setlength(a,n,n);
with StringGrid1 do
 begin
  ColCount:=n;
  RowCount:=n;
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=-25+random(25);
  StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var j,z,max,sum,kol,count:integer;
begin
max:=abs(a[0,0]);
for z:=n-1 downto 1-n do
 begin
  sum:=0;
  for j:=0 to n-1 do
  if (j-z in [0..n-1]) then  sum:=sum+abs(a[j-z,n-j-1]);
  Memo1.Lines.Add(IntToStr(n-z)+' = '+IntToStr(sum));
  if sum>max then max:=sum;
 end;
Memo1.Lines.Add('Ìàêñèìàëüíàÿ ñóììà ìîäóëåé íà äèàãîíàëÿõ, ïàðàëëåëüíûõ ïîáî÷íîé='+IntToStr(max));
 edit1.Text:=IntToStr(kol);
 Memo1.lines.add(inttostr(count));
end;
 
function kolvo(kol,h:integer):integer;
var i,j:integer; count:byte;// не знаю, правильно ли я с каунтом поступил...первый раз с ним дело имею
begin
count:=0
For j:= 0 to n-1 do
   For i:= 0 to n-1 do
       If a[j,i] = 0 then 
         begin
         inc(count);
         break;
         End;
 
 end;
end.

извеняюсь за тупость

@Ev1l · 27.06.2013, 14:08

попробуйте функцию так описать:

Delphi

private
function kolvo(n:integer):integer;    
{ Private declarations }
public

Delphi

function TForm1.kolvo(n:integer):integer;//n=высота матрицы(так как квадратноя - высота = ширина)
var i,j:integer;
begin
result:=0;// значение которое возвращает функция
For j:= 0 to n-1 do
   For i:= 0 to n-1 do
       If a[j,i] = 0 then 
         begin
         inc(result);
         break;
         End;
 end;

ну и вызывать ее где-нибудь в программе:

Delphi

1	ShowMessage('Кол-во столбцев содержащих минимум один нулевой элемент: '+inttostr(kolvo(n)));

@cool2ra · 27.06.2013, 14:22 **[ТС]**

работает.

murderer · 27.06.2013, 14:28

при выводе выдаёт 10-ти значное число, откуда он его берёт ума не приложу

Если добавить в конце "result:=kol;" должно работать.

Добавлено через 1 минуту
@cool2ra, @Ev1l
Вы считаете строки, а не столбцы

@Ev1l · 27.06.2013, 14:53

Не по теме:

@murderer, всегда их путаю, выписал по аналогии с стринг гридом у него первым параметром идет столбец, вторым строка...

Delphi

1	property Cells[ACol, ARow: Integer]

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

Не по теме:

кстати, таки я считаю верно, в 3м посте я оговорил условие,

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

где j - столбец, i - строка

.у двумерного массива вообще индексы, хочешь row x col/хочешь col x row, это ТС все в перемешал :p
а по логике первый размер у нас задает массив линейный 1..10 а второй матрицу с кол-вом столбцев 1..10

murderer · 27.06.2013, 15:16

А точно - всё правильно.

@Ev1l · 27.06.2013, 15:27

Не по теме:

@cool2ra, кстати, подобные реверансы по-моему только запутают вас, выбирайте для себя один порядок размерности чтобы не перекручивать :)

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

StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);

@BabyGluk 26 / 26 / 3 Регистрация: 10.04.2013 Сообщений: 167
	27.06.2013, 13:03	4
	Вы правы, наверное когда читал, пропустил .. 0

@cool2ra 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 20
	27.06.2013, 14:22 [ТС]	7
	работает. 0

murderer 4165 / 1817 / 216 Регистрация: 06.10.2010 Сообщений: 4,074
	27.06.2013, 14:28	8
	при выводе выдаёт 10-ти значное число, откуда он его берёт ума не приложу Если добавить в конце "result:=kol;" должно работать. Добавлено через 1 минуту @cool2ra, @Ev1l Вы считаете строки, а не столбцы 0

murderer 4165 / 1817 / 216 Регистрация: 06.10.2010 Сообщений: 4,074
	27.06.2013, 15:16	10
	А точно - всё правильно. 0

@Ev1l
	27.06.2013, 15:27 Определить количество столбцов в квадратной матрице, содержащих хотя бы один нулевой элемент #11
	Не по теме: @cool2ra, кстати, подобные реверансы по-моему только запутают вас, выбирайте для себя один порядок размерности чтобы не перекручивать :) Сообщение от cool2ra StringGrid1.Cells[j,i]:=IntToStr(a[i,j]); 0