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

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

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

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

Delphi
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
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
1
2
3
4
5
6
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
1
2
3
4
5
6
7
8
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
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
1
2
3
4
private
function kolvo(n:integer):integer;    
{ Private declarations }
public

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
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]);

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

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

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

murderer 4190 / 1838 / 221 Регистрация: 06.10.2010 Сообщений: 4,125
	27.06.2013, 15:16
	А точно - всё правильно. 0