vetor

[luana rs 0]

Oi pessoal alguem pode me ajudar eu tenho que fazer um programa que leia um vetor de 10 posições de numeros inteiros.A seguir calcule o quadrado de cada elemento do vetor lido,armazenando o resultado num segundo vetor!

[Hugo Slepicka 0]

bom dia Luana...

 

tudo bem??

 

Bom, utilizei o seguinte:

 

No Create do Form Coloquei

 

procedure TForm1.FormCreate(Sender: TObject);var arrayint : array [0..9] of Integer;	arrayquad : array [0..9] of Integer;	I: Integer;begin  //Atribuindo os valores...  for I := 1 to 10 do  Begin	arrayint[i-1] := i;  end;  for I := 0 to length(arrayint) - 1 do  Begin	arrayquad[i] := SQR(arrayint[i]);  end;  for I := 0 to length(arrayint) - 1 do  Begin	Showmessage('O Quadrado de '+ IntToStr(arrayint[i]) + ' é ' + IntToStr(arrayquad[i]));  end;end;

 

Se quiser também pode baixar o exemplo que eu fiz em:

http://www.simioobeso.org/hugo/forum/array.zip

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif