[Mp3]

никак не пойму в чем ошибка, если не сложно подскажите где ошибка

Код:

procedure A1;
Var  n,tau, x, y, v_x, v_y,w_x,W_y,v,w,w_tau,w_n,ro:integer;
 Begin
 n:=10;
 t:=StringGrid1.RowCount:=n+1 
 for tau:=1  to n do //ошибка в этой строке
 x:= 1;
 y:= 1;
 v_x:= 1;
 v_y:= 1;
 w_x:= 1;
 W_y:= 1;
 v:= 1;
 w:= 1;
 w_tau:= 1;
 w_n:= 5;
 ro:= 3;
 with Form1.stringgrid1 do
 Begin
  cells [0,tau]:=Floattostr (tau);
  cells [1,tau]:=Floattostr (x,ffFixed,0,2);
  cells [2,tau]:=Floattostr (x,ffFixed,0,2);
  cells [3,tau]:=Floattostr (v_x,ffFixed,0,2);
  cells [4,tau]:=Floattostr (v_y,ffFixed,0,2);
  cells [5,tau]:=Floattostr (w_x,ffFixed,0,2);
  cells [6,tau]:=Floattostr (w_y,ffFixed,0,2);
  cells [7,tau]:=Floattostr (v,ffFixed,0,2);
  cells [8,tau]:=Floattostr (w,ffFixed,0,2);
  cells [9,tau]:=Floattostr (w_tau,ffFixed,0,2);
  cells [10,tau]:=Floattostr (w_n,ffFixed,0,2);
  cells [11,tau]:=Floattostr (ro,ffFixed,0,2);
 end;

p.s. заранее спасибо

[dr. F.I.N.]

немного лишнего и немного нехватает.

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

Код:

...
  n:=10;
  StringGrid1.RowCount := n+1;
  for tau := 1  to n do
...

[Mp3]

а значение здесь писать??просто тоже в ошибку шлет

Код:

procedure A1;
Var  n,tau, x, y, v_x, v_y,w_x,W_y,v,w,w_tau,w_n,ro:integer;
 Begin
 n:=10;
 StringGrid1.RowCount:=n+1;
 for tau:=1  to n do 
 x:= 1; //значение
 y:= 1;
 v_x:= 1;
 v_y:= 1;
 w_x:= 1;
 W_y:= 1;

[dr. F.I.N.]

Блоки выделять надо "скобками" begin-end

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

Код:

procedure A1;
Var  n,tau, x, y, v_x, v_y,w_x,W_y,v,w,w_tau,w_n,ro:integer;
 Begin
 n:=10;
 StringGrid1.RowCount:=n+1; 
 for tau:=1  to n do
 begin
 x:= 1;
 y:= 1;
 v_x:= 1;
 v_y:= 1;
 w_x:= 1;
 W_y:= 1;
 v:= 1;
 w:= 1;
 w_tau:= 1;
 w_n:= 5;
 ro:= 3;
 with Form1.stringgrid1 do
 Begin
  cells [0,tau]:=Floattostr (tau);
  cells [1,tau]:=Floattostr (x,ffFixed,0,2);
  cells [2,tau]:=Floattostr (x,ffFixed,0,2);
  cells [3,tau]:=Floattostr (v_x,ffFixed,0,2);
  cells [4,tau]:=Floattostr (v_y,ffFixed,0,2);
  cells [5,tau]:=Floattostr (w_x,ffFixed,0,2);
  cells [6,tau]:=Floattostr (w_y,ffFixed,0,2);
  cells [7,tau]:=Floattostr (v,ffFixed,0,2);
  cells [8,tau]:=Floattostr (w,ffFixed,0,2);
  cells [9,tau]:=Floattostr (w_tau,ffFixed,0,2);
  cells [10,tau]:=Floattostr (w_n,ffFixed,0,2);
  cells [11,tau]:=Floattostr (ro,ffFixed,0,2);
 end;
end;

[Mp3]

Спасибо,тема закрыта