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.