Матрица опять..

[POPOV]

Дана матрица A(n,n). Если сумма положительных элементов больше суммы отрицательных, то положительные элементы заменить единицами. В противном случае отрицательные заменить нулями.

Ну вот нужно для начала сделать первым способом (Используя StringGrid).

Вот что я сумел накатать:

procedure TForm1.Button7Click(Sender: TObject); // Кнопка "Создать матрицу"
begin
n:=strtoint(edit1.text);
StringGrid1.ColCount:=n;                                                    
StringGrid1.RowCount:=n;                                                    
StringGrid1.height:=n*StringGrid1.DefaultRowHeight+10;                                                                                                   StringGrid1.Width:=n*StringGrid1.DefaultColWidth+10;

procedure TForm1.Button8Click(Sender: TObject); // Кнопка "Вычислить" 
var
i,j,sum1,sum2,s,k,pol,otr,rez,a,b:integer;

begin
sum1:=0;
sum2:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
begin

If StrToInt(StringGrid1.Cells[i,j])>0 then
begin

Sum1:=sum1+StrToInt(StringGrid1.Cells[i,j]);

end
else

begin
Sum2:=Sum2+StrToInt(StringGrid1.Cells[i,j]);

end;

If sum1>Sum2 then
begin


end
else
begin


end;

Ну вообщем вот. Сумму отрицательных считает, положительных тоже. Далее сделал условие что если сумма 1 (положит.) > суммы 2 (отрицат.), то ........ И вот не знаю как вывести единицы вместо положительных элементов если sum1>sum2 и нули вместо отрицательных если sum1<sum2.

Помогите!

[Alex21]

2 процедуры:

первая
for i:= .. 
for j:=...
If StrToInt(StringGrid1.Cells[i,j])>0 then
  StringGrid1.Cells[i,j]:='1';

....
вторая
for i:= .. 
for j:=...
If StrToInt(StringGrid1.Cells[i,j])<0 then
  StringGrid1.Cells[i,j]:='0';

если сумма 1 (положит.) > суммы 2 (отрицат.), то первая ИНАЧЕ вторая.

[POPOV]

Непонимаю...Куда нужно записывать вторую процедуру ? Она же будет выполняться при нажатии на что-то или как ? Одна кнопка уже занята.

[Abbatik]

procedure TForm1.Button8Click(Sender: TObject); // Кнопка "Вычислить" 
var
i,j,sum1,sum2,s,k,pol,otr,rez,a,b:integer;

begin
sum1:=0;
sum2:=0;
for i:=0 to n-1 do begin
for j:=0 to n-1 do
begin

If StrToInt(StringGrid1.Cells[i,j])>0 then
begin

Sum1:=sum1+StrToInt(StringGrid1.Cells[i,j]);

end
else

begin
Sum2:=Sum2+StrToInt(StringGrid1.Cells[i,j]);

end;
end;
end;
If sum1>Sum2 then
begin
for i:=0 to n-1 do begin
for j:=0 to n-1 do begin
if 
StrToInt(StringGrid1.Cells[i,j])>0 then
  StringGrid1.Cells[i,j]:='1'
end;
end;
end
else
begin
for i:=0 to n-1 do begin
for j:=0 to n-1 do begin
if 
StrToInt(StringGrid1.Cells[i,j])<0 then
  StringGrid1.Cells[i,j]:='0'
end
end;
end;
end;

твоя процедура до конца в той же кнопе!

[POPOV]

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

[Abbatik]

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

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

if 
StrToInt(StringGrid1.Cells[i,j])<0 then
  StringGrid1.Cells[i,j]:='0'

поэксперементируй с этими строками может что получится!

[Alex21]

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

Непонимаю...Куда нужно записывать вторую процедуру ? Она же будет выполняться при нажатии на что-то или как ? Одна кнопка уже занята.

как описываются процедуры? Никаких кнопок не нужно, просто пишете:

procedure Proc1;
begin
  for i:= .. //дописать
  for j:=... //дописать
  If StrToInt(StringGrid1.Cells[i,j])>0 then
  StringGrid1.Cells[i,j]:='1';
end;

procedure Proc2;
begin
  for i:= ...//дописать
  for j:=...//дописать
  If StrToInt(StringGrid1.Cells[i,j])<0 then
  StringGrid1.Cells[i,j]:='0';
end;

Дальше в вашем коде добавляете:
если сумма 1 (положит.) > суммы 2 (отрицат.), то Proc1 ИНАЧЕ Proc2;
If sum1>Sum2 then Proc1 else Proc2;

[POPOV]

Незнаю, просто не понимаю и всё ...
Создал 2 процедуры , объявил в заголовках процедур, написал то что писали выше ,выдаёт тучу разных ошибок.
То с переменными чёт не так, например в новых процедурах не объявлены i,j. Ну я объявил, дальше ошибка "Uidentifier: 'StringGrid1'".
Короче я незнаю )

[Alex21]

Переменные можете сделать глобальными, или описать в каждой процедуре (VAR)

"Uidentifier: 'StringGrid1'".

Либо далаем процедуры так: Procedure TForm1.Proc1; тогда добавляем этуже строчку в раздел объявленных процедур,

либо Procedure Proc1;, тогда вручную дописываем Form1.StringGrid1..... и так ко всем вызываемым компонентам.

-----------------
p.s.: проще всего объявить глобальные переменные, и в процедурах вместо StringGrid писать Form1.StringGrid1

[POPOV]

Вот то что щас написано... Опять влюбом случае заменяет положительные единицами.. Не могли бы проверить, где ошибся ?

Procedure Proc1;
begin
for i:=0 to n-1 do
  for j:=0 to n-1 do
  If StrToInt(Form1.StringGrid1.Cells[i,j])>0 then
  Form1.StringGrid1.Cells[i,j]:='1';
end;

Procedure Proc2;
begin
for i:=0 to n-1 do
  for j:=0 to n-1 do
  If StrToInt(Form1.StringGrid1.Cells[i,j])<0 then
  Form1.StringGrid1.Cells[i,j]:='0';
end;

procedure TForm1.Button8Click(Sender: TObject); 
var
sum1,sum2:integer;
begin
sum1:=0;
sum2:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
begin
If StrToInt(StringGrid1.Cells[i,j])>0 then
begin
Sum1:=sum1+StrToInt(StringGrid1.Cells[i,j]);
end
else
begin
Sum2:=Sum2+StrToInt(StringGrid1.Cells[i,j]);
end;
end;
If sum1>Sum2 then Proc1 else Proc2;
end;