exemplo de vetores
Publicado por NewLinuxer 10/12/2005
[ Hits: 7.390 ]
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.
Calculadora de décimo terceiro salário(Lazarus)
média dos numeros informados em posiçoes pares em um vetor
Crivo de Eratóstenes Simples em Ada 95
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
O Que Fazer Após Instalar Ubuntu 25.04
O Que Fazer Após Instalar Fedora 42
Debian 12 -- Errata - Correções de segurança
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Música que eu compus, será que ficou boa? (6)
VPN Site to site mantendo wifi da operadora (0)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (24)
Copiar Layout do Teclado para aplicar em outra Distribuição (3)