practica 7 ejercicio 2, Pascal

practica 7 ejercicio 2

//fpc 3.0.4

program HelloWorld;

{----------------------------------------------------------------------------------------------------------------------}

{-------------------------------------------------------------
TYPE - Declaracion de tipos definidos x el usuario}
type
    
    rangoAbecedario = 'a' .. 'z';

Tvector = array [rangoAbecedario] of integer;
    
    conj = set of char;
    
{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
VARIABLES GLOBALES - Ingresa variables para todos los modulos... }
var 
    i: rangoAbecedario;
{----------------------------------------------------------------------------------------------------------------------}
    
{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
INICIALIZACION - Inicia el vector todo en cero }
procedure inicializacion(var v:Tvector;var c:conj);
begin
    
    c := ['a'..'z'];
    
    for i:='a' to 'z' do begin
    
        v[i] := 0;
    
    end;

end;
{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
LEER SECUENCIA - Cuenta la cantidad de veces que aparece cada letra
y lo almacena en el vector}
procedure leerSecuencia(var car:char;var v:Tvector;c:conj);
begin
    if car in c then
        v[car]:= v[car] + 1;
    read(car);
end;
{-------------------------------------------------------------
INFORMAR - Informa la cantidad de veces que aparece cada letra}
procedure Informar(v : Tvector);

begin
        for i:='a' to 'z' do begin
            writeln(i,': ',v[i]);        
        end;
end;

{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
var
    car : char;
    v:Tvector;
    c:conj;
begin
        // ------inicializa------//
        inicializacion(v,c);
        //------read first char----//
        read(car);
        //------press secuence-----//
        while (car <> '.') do begin
            leerSecuencia(car,v,c);
        end;
        //-----report times x letter----//
        Informar(v);
        
end.
{----------------------------------------------------------------------------------------------------------------------}


run \| edit \| history \| help	0