exemplo de vetores
Publicado por NewLinuxer 10/12/2005
[ Hits: 7.414 ]
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.
Soma dois Valores e exibe o resultado
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
armazenar o nome de um aluno e suas notas
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
BlueMail não abre no Kubuntu 25.04 (8)
Não consigo montar meu cartão SD (6)
Sempre que vou baixar algum pacote acontece o erro dpkg (4)
aplicativos criados com webapp-manager não aparecem no menu do xfce (1)