Площади квадратов

[Arch0000]

дали такое задание - даётся входной файл, в первой строке - длина и количество строк массива. Далее - строки указанной длины, состоящие из единиц и нулей. Требуется найти квадрат, заполненый только единицами, максимальной площади. выходной файл - площадь. Написать на delphi

[Баламут]

От нас чего хочешь?

[Arch0000]

Подскажите, как сделать

[DeKot]

Вот держи квадрат с единицами.Может он и не максимальный, но и не маленький.


Нашел в Инете. Файл - http://s46.radikal.ru/i111/0902/56/7972647b7198.jpg

Пожалуйста, поконкретней вопрос.Что требуется исполнить?

[Arch0000]

требуется написать программу по заданным условиям - найти в заданном файле квадрат, вроде того, что у DeKot

[DeKot]

Наконец то дошло.В файле масив типа как на рис. и можно выделить несколько квадратов из едениц.Надо определить индексы большого квадрата и перевести в новый массив типа,выделенного самого большогоНадо подумать над алгоритмом.

[crc83]

Прямой перебор:
Цикл для "размер" квадрата от макс_размер до 1
Цикл для "Координата_левого_верхнего_угл а_Х" от 1 до (макс_размер-"размер")
Цикл для "Координата_левого_верхнего_угл а_У" от 1 до (макс_размер-"размер")
Если ЭтоКвадрат( "Координата_левого_верхнего_угл а_Х" , "Координата_левого_верхнего_угла_Y" , "размер" ) То Конец.

[Sazary]

Задачка понравилась, хоть и ничего особо сложного в ней нет.

Функция getlen() возвращает длину наибольшего квадрата с заданными координатами левого верхнего угла.
Т.к. пока в Делфи с файлами не работал, написал на паскале.

Файл kvadr.txt:

15 18
1 0 1 0 1 1 1 1 1 1 1 1 1 1 1
1 1 0 1 1 0 1 1 1 1 1 1 0 1 1
1 0 1 0 1 1 0 1 0 1 1 1 1 1 0
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
0 1 0 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1 1 1 1 1 1 0
0 0 1 1 1 1 1 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1 1 1 1 1 1 0
1 1 0 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 0 1 1 1 0 0 1 0 1 1 1
1 0 1 1 1 1 0 1 1 1 1 1 1 1 1

Программа:

uses crt;
var
f : text;
i,j : integer;
M,N : integer;
matr : array[1..100,1..100] of byte;
ni,nj,teklen,clen : integer;

{-------}
function getlen(ci,cj : integer) : integer;  { - }
 var i,j,len : integer;
 fl : boolean;
 begin
 len := 1;  { изначально длина =1 }
 i:=ci;    
 j:=cj;
 fl := true;
 while fl do
  begin
  inc(len);   { увеличиваем длину }
  if (ci+len-1>M) or (cj+len-1>N) then  { если такой квадрат не влезает в исходный прямоугольник... }
   begin
   dec(len);  { уменьшаем длину }
   getlen := len;  { и возвращаем ее }
   exit;
   end;

  fl := true;    { флаг = тру. Говорит о том, что все хорошо, можно продолжать }
  for i:=ci to ci+len-1 do     { идем по последней строке квадрата }
   if matr[i,cj+len-1] = 0 then    { если там есть ноль, значит это не может быть стороной }
    begin
    fl := false;      { говорим об этом }
    break;
    end;
  if not fl then break;   

  for j:=cj to cj+len-1 do     { идем по последнему столбцу квадрата }
   if matr[ci+len-1,j] = 0 then  { если там есть ноль - это не сторона }
    begin 
    fl := false;
    break;
    end;

  end; {while}
 if not fl then dec(len);
 getlen := len;
 end;
{---------}


begin
clrscr;
assign(f,'kvadr.txt');
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then
 begin
 writeln('File not found.');
 readln;
 exit;
 end;
{-------}
 { читаем количетсво столбцов и строк }
readln(f,N,M);   { M - number of strings; N - length }
for i:=1 to M do
 begin
 for j:=1 to N do
  read(f,matr[i,j]);    { читаем матрицу }
 readln(f);
 end;
close(f);
{--------}
clen := 0;  { изначально длина = 0 }
ni := 1;    { это координаты левого верхнего угла прямоугольника }
nj := 1;

{ проходим по каждому элементу матрицы }
for i:=1 to M do
 for j:=1 to N do
  if matr[i,j] = 1 then     { если текущий элемент = 1, то смотрим, насколько большой квадрат может получиться }
   begin
   teklen := getlen(i,j);  { ищем максимальную длину }
   if teklen > clen then   { если она больше ранее запомненной, то... }
    begin
    clen := teklen;  { запоминаем длину }
    ni := i;    { ...и координаты левого верхнего угла }
    nj := j;
    end;
   end;

{----------}
{ выводим исходный прямоугольник и выделяем цветом самый большой квадрат }
{ т.к. пишете на Делфи, можете не смотреть }
for i:=1 to M do
 begin
 for j:=1 to N do
  begin
  if (i>=ni) and (i<=ni+clen-1) and (j>=nj) and (j<=nj+clen-1) then
   TextColor(9)
  else TextColor(8);
  write(matr[i,j]:2);
  end;
 writeln;
 end;
TextColor(15);
writeln;
writeln('Storona = ',clen);    { выводим длину }
readln;
end.

[Arch0000]

только проблема - я не работал с файлами в паскале. Можно переписать для дельфи, если можно, с комментариями?
Задаём переменную типа TStringList , затем в коде:
X:=Tstringlist.create;
загружаем из файла:
x.loadfromfile('///');
и у нас теперь есть массив строк, поэлементно - x.strings[i];
Можешь переделать?

[Arch0000]

ну, или просто написать то-же, но с комментариями?