Algoritmo em delphi

[Guzenhu 0]

Alguém pode me ajudar a construir um algoritmo e seu respectivo programa em Delphi que escreve 15 números inteiros dentro de um vetor de 15 elementos e depois: Copia todo o seu conteúdo para um segundo vetor (vet2). Copia os elementos na ordem inversa para um terceiro vetor (vet3). Copia os números negativos para um quarto vetor vet(4). Exiba no vídeo os elementos de todos os vetores. :wacko:

 

Vlw! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[marcio.theis 3]

Isto esta parecendo mais trabalho de faculdade...

[Hugo Slepicka 0]

AUUAhUAhuhuHAuHAuhAU!!!!Onde você faz facul???Márcio, parece mesmo!!!rsrs!!!

[marcio.theis 3]

Veja se era algo do tipo que você precisava:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	vet1, vet2, vet3, vet4: array[0..14] of integer;	x, aux: integer;	valor: string;beginx:=0;while x <= 14 do	begin	valor:='';	if InputQuery('Digite um n° inteiro (' + IntToStr(x + 1) + '):','Digite...',valor) then		begin		try			vet1[x]:=StrToInt(valor);			Inc(x);		except			ShowMessage('Valor inválido !');			end;		end;	end;//Copia o vetorvet2:=vet1;//Inverto as posiçõesfor x:=14 downto 0 do	vet3[(14 - x)]:=vet1[x];//Separa os negativosaux:=0;for x:=0 to 14 do	if vet1[x] < 0 then		begin		vet4[aux]:=vet1[x];		Inc(aux);		end;//Carrega nos Memo		for x:=0 to 14 do	begin	Memo1.Lines.Add(IntToStr(vet1[x]));	Memo2.Lines.Add(IntToStr(vet2[x]));	Memo3.Lines.Add(IntToStr(vet3[x]));	end;for x:=0 to (aux - 1) do	if vet4[x] <> 0 then		Memo4.Lines.Add(IntToStr(vet4[x]));end;

Apenas adicione um TBitBtn na tela e 4 TMemo