Похоже что-то с циклом

[Lisёноk]

Добрый день!
У меня по лабораторной имеется следующее задание:

Для матрицы А (N строк, M столбцов) вывести те строки, в которых есть нулевые элементы, или вывести
сообщение "нет строк с нулями". Для проверки наличия нулевых элементов в произвольной строке матрицы
использовать процедуру.

Написала программу для выполнения задания.
Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TYPE TA=ARRAY of array of integer;
var
  Form1: TForm1;
  a:TA; b:Ta; i, j, t, d:integer; f:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

procedure findzero (x:TA; y:integer; var found: boolean);
var j:integer;
begin
For j:=0 to d-1 do
if (x[j,y]=0) then

found:=false

                                                          //<3 =)
else
begin
found:=true;
  break;
   end;
end;

begin
t:=StrToInt(LabeledEdit1.Text);
d:=StrToInt(LabeledEdit2.Text);
SetLength (a,t,d);
a [0,0] := 10;
SetLength (b,t,d);
b [0,0] := 10;
for i:=0 to t-1 do
begin
for j:=0 to d-1 do
begin
a[i,j]:=random(10);
stringgrid1.cells[j,i]:=inttostr(a[i,j]);
end;
end;


for i:=0 to t-1 do
begin
findzero(a,j, f);
if f then
begin
for j:=0 to d-1 do
begin
Label1.Caption:= 'Есть строки с нулями';
stringgrid2.cells[j,i]:=inttostr(a[i,j])
end;

end


else
begin
for j:=0 to d-1 do
begin
stringgrid2.cells[j,i]:=' ';
Label1.Caption:= 'нет строк с нулями';


end;
end;
end;
end;
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
t:=StrToInt(labelededit1.Text);
WITH StringGrid1 DO
ColCount:=(t);
Stringgrid2.colcount:=t;

SetLength(a,t);
SetLength(b,t);
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
d:=StrToInt(labelededit2.Text);
WITH StringGrid1 Do
RowCount:=(d);
Stringgrid2.rowcount:=d ;

SetLength(a,d);
SetLength(b,d);
end;
end.

Но программа работает не правильно. Похоже, она выполняет только половину цикла. Но я никак не могу найти ошибки. Что мне надо исправить?

[Grag]

Глаза выпали из орбит, читая неотформатированный код...

[vedro-compota]

действительно !буржуазные предрассудки предполагают такой поряд записи ( любят некоторые пробелы)))

or i:=0 to t-1 do
begin
  findzero(a,j, f);
  if f then
  begin
    for j:=0 to d-1 do
    begin
       Label1.Caption:= 'Есть строки с нулями';
       stringgrid2.cells[j,i]:=inttostr(a[i,j])
    end;
  end

(пробелы после бегинов добавляй ))

[Lisёноk]

Извините за столь некрасиво написанную программу. С нас в институте это не особо спрашивают(((

vedro-compota, в выделенном вами коде находится моя ошибка? Или что? а то я не поняла(( Просто он ничем не отличается от написанного у меня. Или я чего-то не понимаю?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TYPE TA=ARRAY of array of integer;

  var
  Form1: TForm1;
  a:TA; b:Ta; i, j, t, d:integer; f:boolean;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

procedure findzero (x:TA; y:integer; var found: boolean);
var j:integer;

 begin
For j:=0 to d-1 do
if (x[j,y]=0) then
found:=false
else
  begin
found:=true;
  break;
  end;
 end;


 begin
t:=StrToInt(LabeledEdit1.Text);
d:=StrToInt(LabeledEdit2.Text);
SetLength (a,t,d);
a [0,0] := 10;
SetLength (b,t,d);
b [0,0] := 10;
for i:=0 to t-1 do

  begin
for j:=0 to d-1 do

   begin
a[i,j]:=random(10);
stringgrid1.cells[j,i]:=inttostr(a[i,j]);
   end;
  end;


for i:=0 to t-1 do
  begin
findzero(a,j, f);
if f then
   begin
for j:=0 to d-1 do
    begin
Label1.Caption:= 'Есть строки с нулями';
stringgrid2.cells[j,i]:=inttostr(a[i,j])
    end;
   end
else
  begin
for j:=0 to d-1 do
   begin
stringgrid2.cells[j,i]:=' ';
Label1.Caption:= 'нет строк с нулями';
   end;
  end;
 end;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
 begin
t:=StrToInt(labelededit1.Text);
WITH StringGrid1 DO
ColCount:=(t);
Stringgrid2.colcount:=t;
SetLength(a,t);
SetLength(b,t);
 end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
 begin
d:=StrToInt(labelededit2.Text);
WITH StringGrid1 Do
RowCount:=(d);
Stringgrid2.rowcount:=d ;
SetLength(a,d);
SetLength(b,d);
 end;
end.

Хотя я не думаю, что у меня получилось сделать текст программы симпатичнее(((

[vedro-compota]

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

[was3110]

Сделал, протестировал...
Но видно уже не нужно

[Lisёноk]

Очень нужно! Я сделала, как посоветовали, но ошибку все равно найти не могу(((( Помогите, пожалуйста!!!

Постаралась сделать с пробелами:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TYPE TA=ARRAY of array of integer;
var
  Form1: TForm1;
  a:TA; b:Ta; i, j, t, d:integer; f:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

procedure findzero (x:TA; y:integer; var found: boolean);
var j:integer;
begin
  For j:=0 to d-1 do
  if (x[j,y]=0) then
  found:=false
  else
 begin
   found:=true;
   break;
 end;
end;

begin
  t:=StrToInt(LabeledEdit1.Text);
  d:=StrToInt(LabeledEdit2.Text);
  SetLength (a,t,d);
  a [0,0] := 10;
  SetLength (b,t,d);
  b [0,0] := 10;
  for i:=0 to t-1 do
 begin
   for j:=0 to d-1 do
  begin
    a[i,j]:=random(10);
    stringgrid1.cells[j,i]:=inttostr(a[i,j]);
   end;
  end;


  for i:=0 to t-1 do
 begin
   findzero(a,j, f);
   if f then
  begin
    for j:=0 to d-1 do
   begin
      Label1.Caption:= 'Есть строки с нулями';
       stringgrid2.cells[j,i]:=inttostr(a[i,j])
   end;
  end
   else
  begin
    for j:=0 to d-1 do
   begin
     stringgrid2.cells[j,i]:=' ';
     Label1.Caption:= 'нет строк с нулями';

   end;
  end;
 end;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
  t:=StrToInt(labelededit1.Text);
  WITH StringGrid1 DO
  ColCount:=(t);
  Stringgrid2.colcount:=t;

  SetLength(a,t);
  SetLength(b,t);
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
  d:=StrToInt(labelededit2.Text);
  WITH StringGrid1 Do
  RowCount:=(d);
  Stringgrid2.rowcount:=d ;

  SetLength(a,d);
  SetLength(b,d);
end;
end.

Помогите, пожалуйста!! Я уже не знаю, что делать с этой программой((

[VVM]

Мой вариант вашего задания. Delphi 7.

[RUSt88]

для новичков и не только - в новых версиях делфи (про делфи 7 не знаю, мож тож есть) есть такая фича, как автоматическое форматирование кода

выделяешь весь код или нужный участок и нажимаешь Ctrl + D, и ву-а-ля, код отформатирован по всем правилам

[Lisёноk]

Большое спасибо!