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

[Оля 19]

У меня он ноль выводит всегда

[Mad_Cat]

с чем я вас в принципе и поздравляю) помочь не могу ничем - ибо не вижу ни вашего кода,ни вашего проекта! намек ясен? проект выложи или код

[Оля 19]

Пожалуста:

fUNCTION oNE:boolean;
var
i,j:integer;
 begin
   result:=false;
 for i := 1 to n do
   for j := 1 to n do
     if a[i,j]=1 then exit;
   result:=true;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..n,1..n] of integer;
  i,j:integer;
  i2,j2:integer;
  i3,j3:integer;
f:Textfile;
k: integer;
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;
  k:=0;
  while not one do begin
  i:=1;
  j:=1;
  while a[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 (a[i3,j3]=1) and (i3<=n) do
  inc(i3);
  i3:=i3-1;
  for i:=i2 to i3 do
  for j:=j2 to j3 do
  a[i,j]:=2;
  inc(k);
  end;
  edit1.text:=inttostr(k);
  closefile(f);
 end;


end.

[Mad_Cat]

кстати а у тя функция

fUNCTION oNE:boolean;

с каким массивом работает7
если с этим

a:array[1..n,1..n] of integer;

из TForm1.Button1Click(Sender: TObject); то зря ты себя обнадеживаешь ни разу не с ним! а так one у тя получается всегда true то основной код не срабатывает и программа честно и правдиво пишет значение K=0;
ты код в моем посте видала? где все переменные обьявлены???? они есть в процедуре или функции --правильно нет. А значит что - значит они ГЛОБАЛЬНЫЕ!!!

[Kingdom_Reborn]

Решение задачи.

Вложение 32827

P. S. Ошибся там немного при вызове функции; вместо Solve(a, 7, 15) нужно Solve(a, n, m).

Подправил: New.zip

[Оля 19]

В таком случае выдает ошибку: For loop control variable must be simple local variable

[Kingdom_Reborn]

Оля 19, в моей программе всё правильно работает.

[Оля 19]

Спасибо! действительно работает!

[Serge_Bliznykov]

Оля 19, ну что, всё, проблема решена?


Mad_Cat, код рабочий. только прошу учесть, что если поставить одиночную единичку в правый верхний угол - уходит в бесконечный цикл...

[Оля 19]

Решена, благодарю вас !!!