kod Delphi

[Damelya]

Помогите с кодом, ввожу нажимаю обработать, а программа обрабатывает только не так, как надо, заменяет нулями левые цифры, а не отрицательные, помогите найти ошибку в коде)
· Если элементы массива по строкам образуют неубывающую последовательность, то все отрицательные элементы заменить нулями

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
 for i:=1 to n do
 for j:=1 to n do  begin
   if a[i,j]<0 then a[i,j]:=0;
    Stringgrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
         end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=0 to n-1 do
 begin
 StringGrid1.Cols[i].Clear;
 StringGrid2.Cols[i].Clear;
 Edit1.Clear;
 end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=randomrange(-10,10);
StringGrid1.Cells[i-1,j-1]:=inttostr(a[i,j]);
end;
end;
end.

[Stilet]

заменяет нулями левые цифры, а не отрицательные

Потому что у тебя не хватает проверки на

Если элементы массива по строкам образуют неубывающую последовательность

Т.е. цикла типа

procedure TForm1.Button2Click(Sender: TObject);
var b:boolean; k:integer;
begin
n:=strtoint(edit1.Text);
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
 for i:=1 to n do begin
  b:=false; for k:=1 to n do if a[i,k]>a[i,k-1] then begin b:=true;break;end;
  for j:=1 to n do  begin
    if b then if a[i,j]<0 then a[i,j]:=0;
    Stringgrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
  end;
 end;
end;

[Damelya]

нет не работает, все равно левые цифры выходят, некоторые заменяет нулями, а некоторые к примеру 1 заменяет на 7
а так скопировала и вставила ваш код целиком

[Damelya]

а можете проверить этот код? он правильный? просто он вообще не заменяет нулями
как есть таки оставляет

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToInt(Stringgrid1.Cells[j-1,i-1]);

k:=0;
for i:=1 to n do
for j:=1 to n-1 do
if a[i,j]<=a[i,j+1] then k:=k+1;

if k=(n-1)*n then
for i:=1 to n do
for j:=1 to n-1 do
if a[i,j]<0 then a[i,j]:=0;

StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
for i:=1 to n do
for j:=1 to n do
Stringgrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

[Stilet]

Надо не копипастить а разбираться.
Внимательнее будь.
У тебя в одном месте написано так:

Stringgrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);

А во втором так:

StringGrid1.Cells[i-1,j-1]:=inttostr(a[i,j]);

Видишь ошибку? Сначала ты пишешь в столбик, а после расчета в строку.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
const n=3;
var   b:boolean; i,j,k:integer; a:array[1..n,1..n] of integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;

 StringGrid1.ColCount:=n;
 StringGrid1.RowCount:=n;

 for i:=1 to n do
 for j:=1 to n do
 begin
 a[i,j]:=-5+random(10);
 StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);


begin



 for i:=1 to n do begin
  b:=false; for k:=1 to n do if a[i,k]<a[i,k-1] then begin b:=true;break;end;
  for j:=1 to n do  begin
    if b then if a[i,j]<0 then a[i,j]:=0;
    Stringgrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
  end;
 end;

end;

end.

[Damelya]

Спасибо большое)