Enumerações
Tipos de dados enumerados são utilizados para denotar um conjunto de constantes.
Declaração de enumerações
Var nomeEnumeracao : ( identificador, ...., identificador ) ;
Onde identificador denota um identificador válido na linguagem Pascal.
Exemplo
Program Pzim ;
var diasSemana : (domingo, segunda, terca, quarta, quinta, sexta, sabado) ;
Begin
writeln( 'Depois de segunda vem quinta? ' , succ(segunda) = quinta );
writeln( 'Depois de segunda vem terca? ' , succ(segunda) = terca );
writeln( 'Antes de quinta vem quarta? ' , pred(quinta) = quarta );
writeln( 'Antes de quinta vem segunda? ' , pred(quinta) = segunda );
End.
Exemplo
Program Pzim ;
Type diaSemana = ( domingo, segunda, terca, quarta, quinta, sexta, sabado ) ;
Var dia : diaSemana ;
Begin
for dia := domingo to sabado do
begin
case ( dia ) of
domingo: writeln( 'O dia é domingo' );
segunda: writeln( 'O dia é segunda' ) ;
terca : writeln( 'O dia é terca' ) ;
quarta : writeln( 'O dia é quarta' ) ;
quinta : writeln( 'O dia é quinta' ) ;
sexta : writeln( 'O dia é sexta' ) ;
sabado : writeln( 'O dia é sabado' ) ;
end;
end;
readkey;
End.
Created with the Freeware Edition of HelpNDoc: Free help authoring environment