Подсчитать итоговые значения в StringGrid

[StudentMarat]

Есть StringGrid заполненный цифрами. Как сделать так, в чтобы в нижней дополнительной строке выводилось произведение нечетных элементов каждого столбца



Подправил тему.
и совет на будущее, старайтесь давать тему так,
чтобы было понятно, что, где и как?
и какой язык программирования нужен...
Модератор

[Serge_Bliznykov]

Теперь по сути проблемы.

Какой язык программирования?
Что именно не получается?
Не знаете, как перемножить нечётные элементы каждого столбца?
Или не знаете, как записать полученное произведение в нижнюю строчку?
Или не знаете, на какое событие "повесить" обрабтку?..

p.s. по сути задача сводится банально к двум вложенным циклам. всего примерно 7-10 строчек кода...

[StudentMarat]

Язык программирования Delphi 7.
Не знаю как перемножить нечётные элементы каждого столбца и как записать полученное произведение в нижнюю строчку

p.s. Serge_Bliznykov если не трудно подскажите. Я задачу свою почти всю сделал, вот только на этом и застрял.

Ну неужели никто не знает???

[Hacker19_90]

ну а в чём проблема?
Пробегаете по столбцу и умножаете.
Проверка на не чётность всё таже

if (chislo mod 2) <> 0 then умножаете

[Stilet]

Ну неужели никто не знает???

Неа. Прикинь, непорядок, да?

with StringGrd do 
 for i:=0 to ColCount-2 do begin s:=StrToInt(Cells[i,0]);
  for j:=1 to RowCount-1 do begin
   s:=s*StrToInt(Cells[i,j]);
   Cells[i,ColCount-1]:=IntToStr(s);
  end;
 end;

Где S Целая переменка

[StudentMarat]

Ну вот код который я сделал

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    ScrollBar1: TScrollBar;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    procedure ScrollBar1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
  StringGrid1.RowCount:=ScrollBar1.Position;
end;

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
StringGrid2.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
end;

procedure TForm2.FormDblClick(Sender: TObject);
var i,j,s:byte;
    t:integer;
begin
randomize;
for i:=0 to StringGrid1.ColCount-1 do
  begin
    for j:=0 to stringgrid1.RowCount-1 do
      begin
        t:=round(random*200-100);
        StringGrid1.Cells[i,j]:=inttostr(t);
         if (t mod 2)<>0 then s:=s*j;
      end;


        StringGrid2.Cells[i,0]:=inttostr(s);
  end;

  end;


end.

Здесь StringGrid1 заполняется случайными числами. Это у меня сделано. Попробовал сделать произведение нечетных чисел не получилось. Что-то он у меня не то считает

Не знаю че то не получается. Помогите доделать

У меня почти получилось. Он подсчитывает сумму элементов каждого столбца, но мне нужно, чтобы он подсчитывал сумму нечетных элементов каждого столбца. Помогите доделать. Вот код

procedure TForm2.FormDblClick(Sender: TObject);
var
    i,j,t,s,k,l:integer;
begin
randomize;

for i:=0 to StringGrid1.ColCount-1 do
  begin

  for j:=0 to stringgrid1.RowCount-1 do
  begin
  t:=round(random*200-100);
  StringGrid1.Cells[i,j]:=inttostr(t);

  end;
end;

  with StringGrid1 do
 for i:=0 to ColCount-1 do
 begin
  s:=StrToInt(Cells[i,0]);
    for j:=1 to RowCount-1 do begin
      s:=s+StrToInt(Cells[i,j]);
      StringGrid2.Cells[i,0]:=IntToStr(s);
  end;
 end;


 end;

Помогите доделать

[Serge_Bliznykov]

  with StringGrid1 do
 for i:=0 to ColCount-1 do
 begin
  s:=StrToInt(Cells[i,0]);
    for j:=1 to RowCount-1 do begin
      if odd(StrToInt(Cells[i,j])) then   s:=s+StrToInt(Cells[i,j]);
      StringGrid2.Cells[i,0]:=IntToStr(s);
  end;
 end;

[StudentMarat]

Привет всем!!! В общем получилось у меня эта работа. 2 дня мучений не прошли даром. Вроде бы работа легкая, а как не смешно, застрял на ней. Serge_Bliznykov т.к. Вы подсказали, впринципе программа работала, но там был маленький "косяк": программа обязательно складывала первые числа первое число каждого столбца, и при этом не проверяло, четное число это или нет. Но все равно спасибо Вам за подсказку. Именно на основании этой подсказки у меня получилось написать программу. Я немного переделал код программы. Вот он, может кому-нибудь пригодиться.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    ScrollBar1: TScrollBar;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Label3: TLabel;
    procedure ScrollBar1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
  StringGrid1.RowCount:=ScrollBar1.Position;
end;

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
StringGrid2.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
end;

procedure TForm2.FormDblClick(Sender: TObject);
var
    i,j,t,s,k,l,temp:integer;
begin
randomize;

for i:=0 to StringGrid1.ColCount-1 do
  begin

  for j:=0 to stringgrid1.RowCount-1 do
  begin
  t:=round(random*200-100);
  StringGrid1.Cells[i,j]:=inttostr(t);

  end;
end;


  for i:=0 to stringgrid1.ColCount-1 do begin
  temp:= 0;
  for j:=0 to stringgrid1.RowCount-1 do
   try
    if odd(StrToInt(StringGrid1.Cells[i,j])) then temp:= temp+ strtoint(stringgrid1.Cells[i,j])
   except
   end;
  stringgrid2.Cells[i,0]:= inttostr(temp)
 end
end;

[StudentMarat]

Уважаемые знатоки! Снова нужна помощь. Очень прошу помочь разобраться!
Дана матрица StringGrid - заполняется она случайными числами от -100 до 100 на двойной щелчок мыши. Дополнительный столбец матрицы выводит сумму нечетных чисел в каждом столбце. Сравнивая эти суммы, я должен выбрать наименьшую, и по нажатию на кнопку столбец с наименьшей суммой выделяется красной рамкой.
Все работает, наименьшая сумма находится, а вот чтобы столбец выделялся красной рамкой не могу сделать. Привожу код программы

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, Menus;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    ScrollBar1: TScrollBar;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Label3: TLabel;
    Button1: TButton;
    procedure ScrollBar1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;


implementation

{$R *.dfm}

procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
  StringGrid1.RowCount:=ScrollBar1.Position;
end;

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
StringGrid2.ColCount:=strtoint(RadioGroup1.Items[RadioGroup1.itemindex]);
end;

procedure TForm2.FormDblClick(Sender: TObject);
var
    i,j,t,temp:integer;
begin
randomize;

for i:=0 to StringGrid1.ColCount-1 do
  begin

  for j:=0 to stringgrid1.RowCount-1 do
  begin
  t:=round(random*200-100);
  StringGrid1.Cells[i,j]:=inttostr(t);

  end;
end;


  for i:=0 to stringgrid1.ColCount-1 do begin
  temp:= 0;
  for j:=0 to stringgrid1.RowCount-1 do
   try
    if odd(StrToInt(StringGrid1.Cells[i,j])) then temp:= temp+ strtoint(stringgrid1.Cells[i,j])
   except
   end;
  stringgrid2.Cells[i,0]:= inttostr(temp);
 end;

end;



procedure TForm2.Button1Click(Sender: TObject);
var
min, i, j : Integer;
begin
  min := High(Integer);
  for i := 0 to StringGrid2.ColCount - 1 do
    for j := 0 to StringGrid2.RowCount - 1 do
      if min > StrToInt(StringGrid2.Cells[i, j])
            then
                min := StrToInt(StringGrid2.Cells[i, j]);
   Label3.Caption:=IntToStr(min);
end;
end.

[StudentMarat]

Вот пока до чего додумался.

procedure TForm2.Button1Click(Sender: TObject);
var
min, i, j : Integer;
begin
  StringGrid1.Repaint;
  StringGrid1.Canvas.Brush.Style:=bsClear;
  StringGrid1.Canvas.Pen.Width:=2;
  StringGrid1.Canvas.Pen.Color:=clRed;
  min := High(Integer);
  for i := 0 to StringGrid2.ColCount - 1 do
    for j := 0 to StringGrid2.RowCount - 1 do
      if min > StrToInt(StringGrid2.Cells[i, j])
            then
            begin
                min := StrToInt(StringGrid2.Cells[i, j]);

            end;
    Label3.Caption:=IntToStr(min);
     stringgrid1.Canvas.Rectangle(i*65,0,i*65+65,25*stringgrid1.RowCount);

end;