exemplo de vetores
Publicado por NewLinuxer 10/12/2005
[ Hits: 7.312 ]
programa que exemplifica o uso do array e das operaçoes entre varios arrays juntos.
neste script o usuário preenche tres vetores de dez campos cada, após isso a soma dos tres vetores é armazenada num quarto vetor, que ao final será exibido, como sendo a soma de cada linha e somado, para mostrar a soma total.
não tem utilidade pratica, mas é bom pra quen tá começando.
program exercicio02; uses crt; type vetores = array [1..10] of integer; var vet01, vet02, vet03, vet04: vetores; soma01, soma02, soma03, soma04, cont: integer; begin clrscr; soma01:=0; soma02:=0; soma03:=0; soma04:=0; for cont := 1 to 10 do begin write ('Digite o ',cont:2,'§ n£mero do vetor 01: '); readln (vet01[cont]); vet04[cont] := vet01[cont]; write ('Digite o ',cont:2,'§ n£mero do vetor 02: '); readln (vet02[cont]); vet04[cont] := vet02[cont] + vet04[cont]; write ('Digite o ',cont:2,'§ n£mero do vetor 03: '); readln (vet03[cont]); vet04[cont] := vet03[cont] + vet04[cont]; writeln end; for cont := 1 to 10 do begin soma01 := soma01 + vet01[cont]; soma02 := soma02 + vet02[cont]; soma03 := soma03 + vet03[cont]; soma04 := soma04 + vet04[cont]; end; writeln('A 1§ soma parcial : ', soma01); writeln('A 2§ soma parcial : ', soma02); writeln('A 3§ soma parcial : ', soma03); writeln('A soma total (Vetor 04) : ', soma04); readkey; end.
vendas de uma empresa em matriz
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta