exemplo de vetores
Publicado por NewLinuxer 10/12/2005
[ Hits: 7.411 ]
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.
controle de notas de um aluno com registro e array
programa pra carregear duas matrizes e achar o maior
Array de números aleatórios não-repetidos de um intervalo em Pascal
Nenhum comentário foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como instalar protetores de tela (Debian e derivados)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github