intercalar dois arrays (vetores)

Publicado por NewLinuxer 13/12/2005

[ Hits: 11.790 ]

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

Achar o maior e o menor valor inserido pelo usuario

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

Calculadora básica no Lazarus

maior elemento de uma matriz

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


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts