Программа по вычислению матрицы

[Iliyas_797]

помогите плз...
вычислить сумму элементов матрицы А, стоящих правее второго столбца, умножить на это значение элементы первого и второго столбца,результат вывести на печать.
{4.2, 5.3, 5.2, -7.1,
9.3, -8.1, 2.3, 9.5,
0.3, 0.4, -0.5, 0,
-1, 1, 0.3, 4.2}
Учитель дал задание на сессию сделать программу по вычислению матрицы с использованием двухмерного массива и с использованием операторов for to do и StringGrid выполнить задание!!! Я болел около месяца и теперь вообще не могу разобраться что к чему((( у кого есть свободное время помогите пожалуйста если это вам не составит особого труда

[ACE Valery]

Ужасть, что ж все студентики такие больные пошли... Что ни задача, то обязательно болел, тему пропустил... Витаминки кушать надо и закаляться.

Весь курс пропустили что ли? Даже матрицу с клавиатуры не знаете, как ввести? Надоели, если честно, халявщики-врали.

[Iliyas_797]

Сообщение от ACE Valery

Ужасть, что ж все студентики такие больные пошли... Что ни задача, то обязательно болел, тему пропустил... Витаминки кушать надо и закаляться.

Весь курс пропустили что ли? Даже матрицу с клавиатуры не знаете, как ввести? Надоели, если честно, халявщики-врали.

Извините Нет говорю же около месяца а витаминки сердцу не сразу помогут уже год лечусь я пропустил занятия с масивами для меня вообще тёмный лес

[ACE Valery]

Да вы что, правда? Учиться вы тоже не будете, пока не вылечитесь полностью? Или вам кто-то запрещает взять в руки книжки и почитать про (как минимум) ввод матриц? Или на формочку кинуть StringGrid с кнопочкой, по нажатию на которую хотя бы сообщение выводится. Ну чтоб было видно, что вы реально человек стремящийся, который действительно пропустил занятия, а не злостный халявщик (что до сих пор мною наблюдается).

Вообще очень странное учебное заведение, в котором массивы изучаются в конце курса.

[Stilet]

With StringGrid1 do begin
 // Получаем сумму
  for i:=0 to RowCount-1 do for j:=2 to ColCount-1 sum:=sum+StrToIntDef(Cells[i,j],0);
 // Умножаем
  for i:=0 to RowCount-1 do 
   for j:=0 to 1  Cells[i,j]:=IntToStr(StrToIntDef(Cells[i,j],0)*sum);
end;

если ниче не напутал.
Код можешь поместить на клик кнопки. Sum - переменка типа Integer;

[Iliyas_797]

сейчас по пробую спасибо))

[Iliyas_797]

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

With StringGrid1 do begin
 // Получаем сумму
  for i:=0 to RowCount-1 do for j:=2 to ColCount-1 sum:=sum+StrToIntDef(Cells[i,j],0);
 // Умножаем
  for i:=0 to RowCount-1 do 
   for j:=0 to 1  Cells[i,j]:=IntToStr(StrToIntDef(Cells[i,j],0)*sum);
end;

если ниче не напутал.
Код можешь поместить на клик кнопки. Sum - переменка типа Integer;

Я не могу понять его куда вставлять нажимая на StringGrid1 или нажимая на кнопку button

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
With StringGrid1 do begin
 // Получаем сумму
  for i:=0 to RowCount-1 do for j:=2 to ColCount-1 sum:=sum+StrToIntDef(Cells[i,j],0);
 // Умножаем
  for i:=0 to RowCount-1 do
   for j:=0 to 1  Cells[i,j]:=IntToStr(StrToIntDef(Cells[i,j],0)*sum);
end;
begin


end;

end.

[BDA]

Iliyas_797, осталось только описать переменную sum.

[Iliyas_797]

А как это элемент какой то или оператор?

[Stilet]

Это переменная. А переменные описываются в секции var.

procedure TForm8.Button1Click(Sender: TObject);

Ты в этой процедуре код мимо begin...end вставил. Одумайся пока компилятор тебя не предал анафеме.