Vetor

Vetores
Professor José Renato

Prof. José Renato - [e-mail]

1

Declaração
 Var nome: array [1..100] of String
 Var idade: array [1..10] of integer

Prof. José Renato - [e-mail]

2

Exemplo
 Desenvolva um programa que

receba o nome e a idade de 5 alunos e ao final exiba os nomes e as idades digitadas. Prof. José Renato - [e-mail]

3

Solução

Prof. José Renato - [e-mail]

4

Codificação
PROGRAM Vetor1 ;
VAR
nome:ARRAY[1..5] OF STRING; idade:ARRAY[1..5] OF INTEGER; i:integer; Begin
FOR I:=1 TO 5 DO
BEGIN
WRITELN('Digite o nome ',i);
READLN(nome[i]);
WRITELN('Digite a idade ',i);
READLN(idade[i]);
END;
FOR I:=1 TO 5 DO
BEGIN
WRITELN('Nome: ',nome[i],' Idade: ',idade[i]);
END;
End.

Prof. José Renato - [e-mail]

5

Exercício
 Crie um programa que receba o

nome e as duas notas de cinco alunos e ao final exiba o nome, as notas e suas respectivas médias.

Prof. José Renato - [e-mail]

6

Solução

Prof. José Renato - [e-mail]

7

Codificação
PROGRAM VetorMediaAluno ;
VAR
nome:ARRAY[1..5] OF STRING; n1,n2:ARRAY[1..5] OF REAL; i:INTEGER; Begin
FOR I:=1 TO 5 DO
BEGIN
WRITELN('Digite o nome ',i);
READLN(nome[i]);
WRITELN('Digite a primeira nota');
READLN(n1[i]);
WRITELN('Digite a segunda nota');
READLN(n2[i]);
END;
FOR I:=1 TO 5 DO
BEGIN
WRITELN('Nome: ',nome[i],' Nota1: ',n1[i]:2:2,' Nota2: ', n2[i]:2:2,' Média: ',(n1[i]+n2[i])/2:2:2);
END;
End.

Prof. José Renato - [e-mail]

8

Exercício 2
 Sabendo que o tipo STRING é um

vetor de CHAR, crie um programa que conte a quantidade de vogais em um nome.

Prof. José Renato - [e-mail]

9