Arreglo en delphi7

[franco_cvm]

me piden que haga un arreglo [1..20] de valores enteros, con la secuencia de valores: 1,4,9,16,...,400.

procedure TForm1.Button1Click(Sender: TObject);
type
tmiarre=array[1..20] of integer;
var
miarre:tmiarre;
i:integer;
begin
for i:=1 to 20 do
begin
miarre[i]:=i*i;
end;
for i:= 1 to 20 do
begin
StringGrid1.Cells[i-1,0]:=IntToStr(i);
StringGrid1.Cells[i-1,1]:=IntToStr(miarre[i]);
end;
end;

¿hay otra forma de hacerlo ademas de esta?
podrian explicarmelo

[ecfisa]

Hola franco_cvm, bienvenido a Club Delphi :)

Como acostumbramos con los que recién ingresan, te invitamos a que leas nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Es innecesaria la carga previa de los cuadrados de los valores en un arreglo, simplemente se puede hacer:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 1 to 20 do
begin
StringGrid1.Cells[i-1,0]:=IntToStr(i);
StringGrid1.Cells[i-1,1]:=IntToStr(i*i);
end;
end;

No sé si podré darte una explicación mas clara que la que surge de la sola visualización del código, pero a ver...

Se ejecuta un ciclo que va desde 1 a 20.
La variable de control sirve como índice de las columnas.
La variable de control, se va mostrando en la fila 0 (i-1) y sucesivas columnas con su valor original y en la fila subyacente, con su valor multiplicado por si mismo (cuadrado).

Saludos :)

[franco_cvm]

gracias por aclararme la duda