массив замена -, на+. Delphi

[serj-07]

что-то запутался помогите найти ошибку. нужно отриц. заменить на полож.

 const
  n=5;
  type
  ta= array of real;

var
  Form1: TForm1;
  a:ta;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;

begin
n:= StrToInt(Trim(edit1.Text));
SetLength(a,n);
StringGrid1.ColCount:=n;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
s:real;
begin
 For i:=1 to n do
 a[i]:= StrToFloat( STringGrid1.Cells[i-1,0]);
 For i:=1 to n do
 i:=0;
 if a[i]<0 then
 a[i]:=abs(a[i])  
 
 s:=a[i];
 StringGrid1.Cells [i,0]:=FloatToStr(s)

end;

end.

[[Smarik]]

For i:=1 to n do
i:=0;
if a[i]<0 then
a[i]:=abs(a[i])

s:=a[i];
StringGrid1.Cells [i,0]:=FloatToStr(s)

в цикле нельзя изменять значение i если оно используется, еще ты видимо забыл поставить begin end в цикле ну и совсем не обязательно проверять число меньше 0 или нет
For i:=1 to n do
a[i]:= StrToFloat(abs( STringGrid1.Cells[i-1,0])); - вот так все числа будут положительными

[Sm1Le]

begin end в помощь ...

[puporev]

Вроде как у Вас динамический массив и, надеюсь нет фиксированного столбца в Гриде. Тогда так.

For i:=0 to n-1 do
 a[i]:= StrToFloat( STringGrid1.Cells[i]);
For i:=0 to n-1 do
if a[i]<0 then
a[i]:=abs(a[i]) ;

[serj-07]

В общем мне нужно в динамическом массиве составить процедуру, заменяющую все отрицательные элементы исходной матрицы их модулями и фиксирующую число таких замен. Применить эту процедуру для заданной матрицы NхM, причем в случае совпадения числа замен с общим числом элементов в матрице предусмотреть дополнительно вывод поясняющего текста.
загвозка пока в самой прцедуре.

Type
  TA=array of real;
  TA1=array of TA;

var
  Form1: TForm1;
   a: TA1;  n,m: Longint;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
 SetLength(a,n,m);
n:= StrToInt (trim(Edit1.Text));
m:= StrToInt (trim(Edit2.Text));
SetLength (a,n,m);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
end;

procedure Samena (a:TA1 );
var
i,j,n,m: Longint;
    s:real;

 begin

 n:=Length(a);
 m:=Length(a);
 s:=a[0,0];
  for i:=0 to n-1 do
 for j:=0 to m-1 do
 if s<0 then
 begin
 s:=abs(a[i,j]);

 end;

 end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i,j:Longint;

begin
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i,j]:= StrToFloat (StringGrid1.Cells[i,j]);
  Samena (a);
  StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;

end.

[spamer]

А в чем проблема?

На форму помести один Button и два StringGrid:

//Создаешь переменные
var
  mas:array of array of Integer;
  col,row,k:integer;

//По нажатию на кнопку пишешь
SetLength(mas,3,3);

for col:=0 to 2 do
  for row:=0 to 2 do
 mas[row,col]:=StrToInt(StringGrid1.Cells[col,row]);

for col:=0 to 2 do
  for row:=0 to 2 do
    if mas[col,row] < 0 then
    begin
      mas[col,row]:= abs(mas[col,row]);    //Замена всех отрицательных элементов исходной 
                                                         //матрицы их модулями
      k:= k+1;   //Считаем количество замен
    end;

for col:=0 to 2 do
  for row:=0 to 2 do
    StringGrid2.Cells[col,row]:= IntToStr(mas[row,col]);

Label1.Caption:= IntToStr(k);
mas:= nil;

Данный код заменяет все отрицательные элементы массива на положительные и считает количество замен. Все это превратить в отдельную процедуру, я думаю труда не составит. Также сам задавай размерность массива и выделяй память уже в соответствии с размерностью массива.

P.S. Код предназначен для матрицы 3*3, переделай под себя.

[mihali4]

procedure TForm1.Button2Click(Sender: TObject);
var i,j,zamen:int;
begin
zamen:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
try
if StrToFloat (StringGrid1.Cells[i,j])<0 then
begin
StringGrid1.Cells[i,j]:=FloatToStr(Abs(StrToFloat (StringGrid1.Cells[i,j])));
zamen:=zamen+1;
end;
except
ShowMessage('Обнаружено неверно введенное число');
break;
end;
if zamen=(n-1)*(m-1) then
ShowMessage('Пришлось заменить все элементы') else
ShowMessage('Произведено '+IntToStr((n-1)*(m-1))+'замен');
end;

А procedure Samena ни к чему...

[serj-07]

Всем огромное спасибо за помощь.
посмотрите вроде сделал все правельно но работать не хочет,
и еще в пояснении нада вывод если была замена всех эл. или количество замен. заранее огромное спасибо.

Type
  TA=array of real;
  TA1=array of TA;

var
  Form1: TForm1;
   a: TA1;
   n,m: Longint;

implementation

{$R *.dfm}

procedure Samena (a:TA1);
var
i,j,n,m: Longint;

 begin
 n:=Length (a);
 m:=Length (a);
 zam:=0;
    for i:=0 to n-1 do
    for j:=0 to m-1 do
     if a[i,j]<0 then
     a[i,j]:=abs(a[i,j]);
     zam:=zam+1;
     if zam=(n-1)*(m-1) then
     ShowMessage (' zam wse')
    else
      ShowMessage ('zam'+IntToStr( (n-1)*(m-1)));
 end;

procedure TForm1.Button1Click(Sender: TObject)

begin 
     m:= StrToInt (trim(Edit2.Text));
     n:= StrToInt (trim(Edit1.Text));
     SetLength(a,n,m);
   StringGrid1.ColCount:=n;
   StringGrid1.RowCount:=m;
   
end;
procedure TForm1.Button2Click(Sender: TObject);
var
 i,j:Longint;
 begin
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i,j]:= StrToFloat (StringGrid1.Cells[i,j]);
  Samena(a);
  StringGrid1.Cells [i,j]:= FloatToStr (a[i,j]);
 end;
end.

[puporev]

Измени индексы ячеек у таблиц, в массиве сначала указываются чтроки, потом столбцы, а у StringGrid наоборот, сначала столбцы, а потом строки.
И вывод измененного массива сделай во вторую таблицу.

for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i,j]:= StrToFloat (StringGrid1.Cells[j,i]);
  Samena(a);
  StringGrid2.Cells [i,j]:= FloatToStr (a[j,i]);

[mihali4]

И тут подправить надо:

if a[i,j]<0 then
begin
a[i,j]:=abs(a[i,j]);
zam:=zam+1;
end;