Многомерные массивы в delphi 7

[Миша Л.]

Помогите, пжлст))
Матрица 3 на 4, вводится через stringgrid.
найти и умножить элементы 1 строки, 1 столбца на заданный коэффициент!

[Stilet]

Ты вообще с матрицами работать умеешь?

[Миша Л.]

похоже нет((
я ответ вывожу в лабле первом и втором...
он находит ток строчку на коэфф(( столбик не могу(( условие не наложить для if((

[Миша Л.]

могу кинуть текст программы через блокнот!?) пжлст, сорр что через блокнот)
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const k=2; m=3; n=4;
type matr=array[1..m,1..n] of real;
var x:matr;
i,j:byte;
b,a:real;
begin
a:=0;b:=0;
i:=1;
while i<=stringgrid1.colcount do
begin
j:=1;
while j<=stringgrid1.rowcount do
begin
x[i,j]:=strtofloat(stringgrid1.Cells[i-1,j-1]);
if (j=1) then a:=x[i,j]*k;
if (i=1)then b:=x[i,j]*k;
j:=j+1;
end;
i:=i+1;
label1.caption:=label1.Caption+#9+f loattostr(a);
label2.caption:=label2.Caption+#13+ floattostr(b);
end;
end;
end.

[S_Yevgeniy]

Сообщение от Миша Л.

Помогите, пжлст))
Матрица 3 на 4, вводится через stringgrid.
найти и умножить элементы 1 строки, 1 столбца на заданный коэффициент!

Михаил опешите подробнее задачу.
если у вас есть данные в stringgrid то можно и с ним работать.
Только не забываете переводить их использовать функцию StrToInt для целочисленного или StrToFloat
А брать данные из stringgrid Stringgrid1.Cells[J,I]

 Ваша переменная. := StrToFloat (Stringgrid1.Cells[J,I] );

Только не забывайте в stringgrid первая строка имеет индекс 0


А если вы пожелаете можно сделать чтобы программа брала то поле из StringGrid которое выделено. Ну если вам это разрешено по условию вашей задачи.

[Миша Л.]

посмотрите текст моей программы, пжлст))он выше,там я все использую. сорр, вставил через блокнот((

[DoDge_VipeR]

Господи!!

procedure TForm1.Button1Click(Sender: TObject);
const k=2;
var i:byte;
begin
for i:= 0 to stringgrid1.colcount-1 do
label1.caption:=label1.Caption+#9+f loattostr(strtofloat(stringgrid1.cells[i,0])*k);
for i:= 0 to stringgrid1.rowcount-1 do
label2.caption:=label2.Caption+#9+f loattostr(strtofloat(stringgrid1.cells[0,i])*k);
end;

и зачем вам вообще тут матрица???

[DoDge_VipeR]

////////////////////////////////

[Миша Л.]

преподаватель требует((
спс большое)) программа работает))
но что с моей программой?((

[S_Yevgeniy]

Сообщение от Миша Л.

if (j=1) then a:=x[i,j]*k;

Тут у вас проблема по моему так как J=1 может быть и во второй строке тоже.