Vetores - Pascal

Ao utilizamos variáveis, podemos armazenar apenas um valor por vez. Agora,
imagine um programa onde precisa-se armazenar as notas de 5 provas realizadas por um
aluno. Com os conhecimentos que você possui até agora, seria necessário criar cinco
variáveis para armazenar as notas. Desta forma:
NOTA1, NOTA2, NOTA3, NOTA4, NOTA5 : integer;
Em Pascal existem estruturas que nos permitem agrupar várias informações
dentro de uma mesma variável. Estas estruturas são chamadas de vetores e matrizes.

Vetores


Este tipo de estrutura é também chamado de matriz unidimensional. Um vetor
é representado por seu nome, tamanho e seu tipo.

Sintaxe:
    <vetor> : array[tamanho] of <tipo_de_dado>;

Ex.:

program EXEMPLO_VETOR;
var
A,B: array[1..10] of integer;
I: integer;
begin
{ *** Entrada dos Dados ***}
    for I := 1 to 10 do
        begin
            write('Informe o valor', I);
            readln(A[I]);
        end;
{ *** Teste Par ou Ímpar ***}
    for I := 1 to 10 do
        if (I mod 2 = 0) then
            B[I] := A[I] * 5
        else
            B[I] := A[I] + 5;
    writeln;
{ *** Apresentação das matrizes ***}
    for I := 1 to 10 do
        writeln('A[', I:2,'] = ', A[I]:2, '', 'B[', I:2, '] = ', B[I]:2 );
    writeln;
    writeln('Tecle <ENTER> para encerrar: ');
    readln;
End.

Ex.:

program EXEMPLO_VETOR;
var
vetor: array[1..10] of integer;
i:integer;
begin
    for i := 1 to 10 do
        Begin
            Write(i,' Informe: ');
            readln(vetor[i]);
        End;
    for i := 1 to 10 do    
        Write(vetor[i],' ');    
End.

Exercício

Resposta

01 02 03 04 05 06 07 08

Categories: Pascal , Programação