Массивы. Делфи.

[hl_anton]

Здравствуйте. Помогите решить задачу.

[ByAlex]

Сообщение от hl_anton

Здравствуйте. Помогите решить задачу.

Что не получается? Задача простая.

[Mad_Cat]

for i:=1 to n do
begin b[i]:=1;
for j:= 1 to m -1 do
if a[i,j]<a[i,j+1] then begin b[i]:=0;break;end;
end;

[hl_anton]

Сообщение от Mad_Cat

for i:=1 to n do
begin b[i]:=1;
for j:= 1 to m -1 do
if a[i,j]<a[i,j+1] then begin b[i]:=0;break;end;
end;

Спасибо, но работает некорректно.

[Mad_Cat]

Ds / это все-таки руки) проверено)

[Базиля]

набросал, вроде как должно быть все норм

for i:=1 to n do
begin
for j:=1 to m-1 do
if a[i,j]>a[i,j+1] then
inc(k);
if k=m-1 then
b[i]:=1
else
b[i]:=0;
k:=0;
end;

[Базиля]

Да кстати, тоже ради интереса решил проверить, у товарища Mad_Cat все работает, и даже рациональней вышло. Так что не знаю что у вас там не работает

[whatever]

Еще вариант

function linecheck(k:mass; i:integer):boolean;
var
  j:integer;
begin
  result:=true;
  for j:=1 to n-1 do
    if k[i,j]>k[i,j+1] then
      begin
        result:=false;
        break
      end;
end;

Ну и потом B[i]:=linecheck(k,i);
На крайний случай можно вместо boolean написать integer, true & false поменять на 1 и 0 соответственно, хотя, мне кажется, будет и так работать.

[Mad_Cat]

Так что не знаю что у вас там не работает

Неправильная конвертация Stringgrid(этот ли конвертируют) в матрицу скорее всего! как видно на картинке все работает 100%

[hl_anton]

procedure TForm3.btn6Click(Sender: TObject);
var
  i,j:Integer;
begin
m:=strtoint(edt4.Text);
n:=strtoint(edt5.Text);
strngrd3.RowCount:=m;
strngrd3.ColCount:=n;
      for i:=1 to m-1 do
        for j:=0 to n-1 do
 K[i,j]:=StrToInt(Strngrd3.Cells[i,j]);
end;


procedure TForm3.btn7Click(Sender: TObject);
var
  T:array [0..100] of integer;
  i,j,q,p:Integer;
begin
m:=strtoint(edt5.Text);
strngrd4.ColCount:=m;
for i:=0 to n-1 do
begin T[i]:=1;
for j:=0 to m-1 do
if K[i,j]<K[i,j+1]
then begin T[i]:=0;Break;end;
end;
for i:=0 to n-1 do
strngrd4.Cells[i,0]:=IntToStr(T[i]);
end;

Что тут может быть неправильного?