МИННОЕ ПОЛЕ В Delphi

[Оля 19]

Начало зимы - время курсовых...
Подскажите пожалуйста решение такой задачи:
На квадратном клетчатом листе бумаги размером 100х100 клеток нарисована схема минных полей в виде прямоугольников.
Каждый прямоугольник состоит из целых клеток, различные прямоугольники не накладываются друг на друга и не соприкасаются. Напр:
111000111110000
111000111110000
000000111110000
000000000000000
001000011100011
000000011100011
000000011100000
Задан массив размером 100х100, в котором элемент a[i,j]=1, если клетка [i,j] принадлежит какому-либо минному полю (заминирована) и a[i,j]=0 в противном случае.
Написать программу, которая сосчитает и напечатает число прямоугольников.
Программа в Delphi

Я начала ее решать и дошла только до отображения массива из файла.
Помогите написать код для счета этих прямоугольников

const
  n=99;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..n,1..n] of integer;
i,j:integer;
f:Textfile;
begin
 Assignfile(f,'ìèííîå ïîëå.txt');
 reset(f);
 for i:=1 to n do
 for j:=1 to n do
 begin
   read(f,a[i,j]);
   Stringgrid1.Cells [j,i]:= inttostr(a[i,j]);
  end;
  closefile(f);
 end;

___________________
_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Просто написать слово КОД: - недостаточно...
Модератор.

[Serge_Bliznykov]

сразу вопрос. если массив 100 на 100 - то почему n=99 ?

а по сути вопроса надо подумать.
Выделить прямоугольники - несложно. Надо придумать, как отмечать те ячейки, которые уже посчитаны.
Я бы предложил добавить ещё один массив. Скопировать туда исходный и, в процессе подсчёта, убирать посчитанные клеточки (заносить туда нолик)

и ещё вопрос.
Ошибки можно не анализировать? Пересечения, накладки, "дырки" внутри прямоугольников - можно считать что такого нет и БЫТЬ НЕ МОЖЕТ? просто, чтобы не усложнять код подсчёта...

[Оля 19]

=>Пересечения, накладки, "дырки" внутри прямоугольников - можно считать что такого нет и БЫТЬ НЕ МОЖЕТ?

-Да, такого нет и не будет!

А с заданием константы, в файле просто видимо одну колонку не дописала, поэтому получилось 99

[Mad_Cat]

так устроит? сделал для 10 на 10! 100 на 100 впадлу заполнять!
ну и в консоли ! с формами не интересно!

[Оля 19]

Ну, мне вообще то надо это в DELPHI, а не в консоли...

[Mad_Cat]

Ну, мне вообще то надо это в DELPHI, а не в консоли...

ну а Delphi Console Application эт не Delphi уже????
и я себе плохо представляю матрицу 100 на 100 выведенную в Stringgrid)
вот для 10 на 10)

[Оля 19]

Я хочу спросить как делать подсчет этих прямоугольников, а не саму программу в .exe

[Mad_Cat]

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

1)идем построчно ищем 1 (for N_строки:= 1 to n do For N_столбца:=1 to n do)
2)нашли идем вниз по этому столбцу пока не 0( то есть прибавляем к индексу строки 1)
3)нашли идем вправо пока 1 ( то есть прибавляем к индексу столбца 1)
и у нас 4 угла прямоугольника
4)зануляем его (прямоугольник) и увеличиваем счетчик на 1
повторяем 1-4 пока есть в матрице хоть одна 1

[Оля 19]

ага, это я понимаю, а вот как "идти" вправо и вниз(т.е. конкретные команды на ЯВУ) нет

[Mad_Cat]

ага, это я понимаю, а вот как "идти" вправо и вниз(т.е. конкретные команды на ЯВУ) нет

решение в лоб оптимизации никакой-- с ней (с оптимизацией) сами как нить

const n=10;
 inp = 'mine.txt';
 var mp:array[1..n,1..n] of byte;
 i,j:integer;
 i1,j1:integer;
 i2,j2:integer;
 i3,j3:integer;
 f:textfile;
 k:integer;
{//--------------------------//}
FUNCTION oNE:boolean;
 begin
   result:=false;
 for i := 1 to n do
   for j := 1 to n do
     if mp[i,j]=1 then exit;
   result:=true;
 end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 assignfile(f,inp);
 reset(f);
 for i := 1 to n do begin
   for j := 1 to n do
    begin
     read(f,mp[i,j]);
    stringgrid1.Cells[j-1,i-1]:=inttostr(mp[i,j])
    end;
 end;
 k:=0;
 while not one do  begin
 i:=1;
 j:=1;
 while mp[i,j]<>1 do begin
 inc(j);
 if j>=n then
 begin j:=1;inc(i);
 end;
 end;
 i2:=i;
 i3:=i;
 j2:=j;
 j3:=j;
 while (mp[i3,j3]=1) and (i3<=n) do
  inc(i3);
  i3:=i3-1;
 while (mp[i3,j3]=1) and (j3<=n)  do
  inc(j3);
  j3:=j3-1;
 for i := I2 to I3 do
   for J := J2 to J3 do
     MP[I,J]:=2;
     INC(K);
 end;
   edit1.Text:=floattostr(k);
  closefile(f);
end;