exemplo de vetores
Publicado por NewLinuxer 10/12/2005
[ Hits: 7.233 ]
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 utilizando until e case
calculo de porcentagem em vetores
controle de notas de uma clase com vetor e registro
Nenhum comentário foi encontrado.
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Impressora Canon Ip 1800 (Drivers) 64 bit (3)
iso de sistema 32 bit em atividade (15)
Como transfiro os pokemons do fire red para o emulador mupen64? (1)