intercalar dois arrays (vetores)

Publicado por NewLinuxer 13/12/2005

[ Hits: 12.636 ]

Download exerc11.pas




Programa feito para ler dois vetores o mostrar na tela a intercalação dos dois, ou seja, item 1 do primeiro, item 1 do segundo, item 2 do primeiro....

  



Esconder código-fonte

Program exercicio11;

uses crt;

Type
  Vetor = array[1..10] of integer;

Var
  Vet1, vet2 : Vetor;
  Contador   : integer;

Begin
  clrscr;

  For contador := 1 To 10 do
  Begin
    Write('Digite o ',contador:2,'§ numero do vetor 1: ');
    Readln (vet1[contador]);
  end;

  Writeln;

  For contador := 1 To 10 do
  Begin
    Write('Digite o ',contador:2,'§ numero do vetor 2: ');
    Readln (vet2[contador]);
  end;

  clrscr;

  For contador := 1 to 10 do
  Begin
    writeln(contador:2, '§ numero do vetor 1= ', vet1[contador]);
    writeln(contador:2, '§ numero do vetor 2= ', vet2[contador]);
  end;

  Readkey;

End.

Scripts recomendados

Cáculo de Fatorial, utilizando-se de Repeat - Until

armazenar estoque em uma matriz

Calculadora utilizando until e case

média dos numeros informados em posiçoes pares em um vetor

Existência de triângulo, em Pascal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts