Algoritmo Em Delphi

[Guzenhu]

Alguém poderia me ajudar a construir um algoritmo e seu respectivo programa em Delphi que escreva 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. :blink:

Vlww!!

[BrunoVeríssimo]

Cara,você tá no tópico errado...

Aqui é Visual Basic...

Coloque sua pergunta no forun de Delphi. Caso não tenha, coloque-o no forum de "Demais linguagens"

[Thales Pontes Martins]

Bruno, ou o tópico foi movido ou você tá doidão, porque aqui é o Fórum de Delphi.

[Graymalkin]

O tópico foi movido. Originalmente ele foi postado na sala de VB.

Graymalkin

[Thales Pontes Martins]

É porque ele não está com simbolo de movido, está com simbolo normal.

[Graymalkin]

O símbolo de movido só aparece quando o mesmo é movido deixando um link no fórum de origem (o que não foi o caso).

Abraços,

Graymalkin

[kmkg]

é é é, movido ou não movido; com ou sem símbolo ? :D

Não esqueceram de um pequeno detalhe ?

[Thales Pontes Martins]

Detalhe? Que detalhe?

[kmkg]

O problema do Guzenhu continua desde o dia 18

[Thales Pontes Martins]

Ahh, é verdade, tinha me esquecido disso.

Num vai dar não, o tópico vai ter que ser movido pro fórum de lógica.

[Progr'amador]

Alguém poderia me ajudar a construir um algoritmo e seu respectivo programa em Delphi que escreva 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. :blink:

Vlww!!

procedure TForm1.Button1Click(Sender: TObject);
var vet1, vet2, vet3, vet4 :  array[1..15] of integer;
i, x : integer;
begin

  {1º - escreve 15 números inteiros dentro de um vetor de 15 elementos}
  for i := 1 to 15 do
    vet1[i] := i;

  {2º - Copia todo o seu conteúdo para um segundo vetor (vet2)}
  for i := 1 to 15 do
    vet2[i] := vet1[i];

  {Copia os elementos na ordem inversa para um terceiro vetor (vet3)}
  x := 15;
  for i := 1 to 15 do begin
    vet3[i] := vet1[x];
    x:=x-1;
  end;

Copia os números negativos para um quarto vetor vet(4)

Essa eu não entendi, que números negativos são esses??? Exiba no vídeo os elementos de todos os vetores

 
  // Exibindo em ListBox
  for i := 1 to 15 do
    ListBox1.Items.Add(IntToStr(vet2[i]));

  for i := 1 to 15 do
    ListBox2.Items.Add(IntToStr(vet3[i]));

end;

Abs. Progr'amador.

[kmkg]

Vai ver que ele quer números + e -

Pode fazer assim também:

  Randomize;
  for i := 1 to 15 do
    Vet1[i] := Random(High(DWord));

[Progr'amador]

Vai ver que ele quer números + e -

Pode fazer assim também:

  Randomize;
  for i := 1 to 15 do
    Vet1[i] := Random(High(DWord));

acho que assim é mais simples:

  for i := 1 to 15 do
    vet1[i] := i;

Abs. Progr'amador.

[kmkg]

Vai ver que ele quer números + e -

Pode fazer assim também:

  Randomize;
  for i := 1 to 15 do
    Vet1[i] := Random(High(DWord));

acho que assim é mais simples:

  for i := 1 to 15 do
    vet1[i] := i;

Abs. Progr'amador.

É mais simples, mas nunca dará um número negativo

[Guest Visitante]

Por gentileza gostaria de fazer um form com 3 Edits, que some exemplo

um edit que aceite valor o segundo que aceite valores e o 3 edit que mostre

o resultado da soma quando eu der enter e não no botão somar

Urgente por gentileza

Obrigado