Índice de Aulas  Próxima Aula  Aula Anterior  Página Principal


Aula 8

Criando tipos de variáveis

Inteiro (integer) , real ,character (char), registros (record) são tipos de variáveis. Você também pode criar os seus tipos.Eles devem ser declarados em uma seção chamada de Type.

Sintaxe

Type

nome_do_identificador = ( valores que pode assumir );

Exemplos:

Program tipos;

Type

Frutas = (UVA,PERA,MANGA);

Inteiro = 1..100; { O simbolo .. é um delimitador de faixa }

Cadastro = Record
                              Nome: string;
                              Idade:  integer;
                     End;

Vetor = Array [1..3] of  Cadastro;

Var

Sabor: frutas; { Sabor é uma variável do tipo frutas e pode guardar os seguintes valores
                        uva, pera ou manga }

I, Numero: inteiro; { I, Num são variáveis do tipo inteiro que podem assumir  valores
                         de 1 até 100 }

Chefe: cadastro; { Chefe é uma variácel do tipo cadastro, ou seja, um registro com campos nome  e idade }

Cliente: Vetor ; { Clientes é um vetor de cadastros, ou seja, um conjunto de registos indexados com campos nome e idade  }
 

Begin

Write (' Digite o nome do chefe -  ');
Readln(Chefe.nome);

For   I:= 1 to 3  do
                         Begin
                        Write('Digite o nome do ',I,' º  Cliente - ');
                        Readln(Cliente[I].nome);
                       Write('Digite a idade do  ',I,' º  Cliente - ');
                       Readln(Cliente[I].idade);
                        End;

Writeln (' O nome do 2º cliente é ',Cliente[2].nome );
Writeln (' O nome do seu chefe é ',Chefe.nome );
Write (' Digite um número entre 1 e 100 - ');
Readln (Numero);
Sabor:=UVA;
If  Sabor = UVA Then
                             begin
                             Write('Você digitou o número ',numero);
                           end;

End.
 



Índice de Aulas  Próxima Aula  Aula Anterior  Página Principal