Sign in to follow this  
Guzenhu

Algoritmo Em Delphi

Recommended Posts

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!!

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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));

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this