Для матрицы F(m, n), 1<(m, n)<10, напечатать номера столбцов с количеством нулей больше 1.

[Igoreha010]

Уважаемые форумчане, помогите пожалуйста решить задачу в делфи.
Делфи не консольной, с помощью стрингрида.
Для матрицы F(m, n), 1<(m, n)<10, напечатать номера столбцов с количеством нулей больше 1.
заранее спасибо.

[IT-man]

Ася над аватаром.стучи сделаю за 50 рублей.

[Stilet]

Igoreha010

А наработками похвастаться?

[Igoreha010]

a[i,j]:= array [10,10];
begin
For i = 0 to (a -1) do;
For j = 0 to (b - 1) do;
if a[i,j] = 0  then
k:=k+1;
else
k:= k +0;
end;
If k>1 then
showmassage (  ( k));
else (нету столбцов где количество нулей больше 1);

считает нули... но есть ошибка....

[ОДИНОЧЕСТВО В СЕТИ]

считает нули... но есть ошибка...

Странно, что данный код вообще откомпилировался

[Igoreha010]

лучше подскажите как решать.... чем подробнее тем лучше

[Stilet]

Хм...
Ну вот тебе самый простейший вариант

program Project1;



uses forms,Grids,Controls,
  SysUtils;
  const n=5;m=4;
  var f:TForm;  g:TStringGrid; q,w,e:integer;
begin
 f:=TForm.Create(nil);
 f.Width:=500;f.Height:=500;
 f.Position:=poDesktopCenter;

 g:=TStringGrid.Create(f);
 g.Parent:=f;
 g.Align:=alclient;
 g.ColCount:=n;g.RowCount:=m;
 g.FixedCols:=0;g.FixedRows:=0;

 for q:=0 to n do begin e:=0;
  for w:=0 to m do begin
   g.Tag:=random(5);
   g.Cells[w,q]:=IntToStr(g.Tag);
   if g.Tag=0 then inc(e);
  end;
  if e<>0 then f.Caption:=f.Caption+' '+IntToStr(q);
 end;

 f.ShowModal;


  { TODO -oUser -cConsole Main : Insert code here }
end.

Ниче не нужно описывать и связывать.

[Igoreha010]

к сожалению программа щитает лишь столбцы...