intercalar dois arrays (vetores)
Publicado por NewLinuxer 13/12/2005
[ Hits: 12.785 ]
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....
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.
cadastro de um cliente com registro
dizer se o aluno passou ou nao
Programa que realiza o reajuste salarial de acordo com o cargo
controle de notas de uma clase com vetor e registro
script para ler um vetor e mostrar o conteúdo
Nenhum coment�rio foi encontrado.
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Preciso de opiniões sobre meus programas (3)
criar alias do comando "ls -la" (14)