practica 3 ejercicio B5, Pascal

practica 3 ejercicio B5

//fpc 3.0.4

program HelloWorld;
type
    conj = set of char;

{------------------------------------------------------
INICIALIZACION - Se encarga de tomar el conjunto de vocales y
consonantes}
procedure inicializacion(var cons,voc:conj; var vmax,cmax:integer;var posicion:integer);
begin
    posicion:=0;
    vmax:=0;
    cmax:=0;
    voc:= ['a','e','i','o','u','A','E','I','O','U'];
    cons:= ['A'..'Z']+['a'..'z'];
    cons:= cons - voc;
end;

{------------------------------------------------------
CONTAR VOCALES Y CONSONATES - Subproceso uno de Palabra}
procedure contar_vocales_y_consonantes(var cvoc:integer;var ccons:integer; voc,cons:conj;car:char);
begin
     if car in cons then begin
         ccons:=ccons+1;
      end else 
          if car in voc then
               cvoc:=cvoc+1;
end;

{------------------------------------------------------
CONTAR VOCALES Y CONSONATES - Subproceso dos de Palabra}
procedure maxima_vocales_consonantes(cvoc,ccons,posicion:integer;var pvmax:integer;var pcmax:integer; var vmax:integer; var cmax:integer);
begin
    if vmax < cvoc then begin
        vmax:= cvoc;
        pvmax:= posicion;
    end;
    if cmax < ccons then begin
        cmax:= ccons;
        pcmax:=posicion;
    end;
end;
{------------------------------------------------------
PALABRA- Se encarga de procesar cada palabra y contar
la cantidad de vocales y consonantes}

procedure palabra(cvoc,ccons:integer;voc,cons:conj;var pvmax:integer; var pcmax:integer; var vmax:integer;var cmax:integer;var posicion:integer; var car:char);
begin
    posicion:= posicion + 1;
    while (car <> '*') and (car <> ' ') do begin
        contar_vocales_y_consonantes(cvoc,ccons,voc,cons,car);
        read(car);
    end;
    maxima_vocales_consonantes(cvoc,ccons,posicion,pvmax,pcmax,vmax,cmax);
    writeln('la palabra de la posicion ', posicion, ' tiene ',cvoc,' vocales y ',ccons,' consonantes');
end;

{------------------------------------------------------
PROCESO PRINCIPAL- Es la cabeza del programa dirigiendo
cada proceso e iniciando la secuencia}    
procedure main_program();
var 
    voc,cons:conj;        // conjunto de vocales y consonantes 
    vmax,cmax:integer;    //cantidad de vocales y consonantes maximas en una palabra
    posicion:integer;     //posicion de cada palabra en orden que se ingresaron
    pvmax,pcmax:integer;  //posicion de la palabra con mas vocales y mas consonantes
    car:char;
begin
    inicializacion(cons,voc,vmax,cmax,posicion);
    read(car);
    while car <> '*' do begin                                                       //entra en la secuencia
        palabra(0,0,cons,voc,pvmax,pcmax,vmax,cmax,posicion,car);                   //llama al proceso palabra
        while car = ' ' do read(car);                                               //limpia blancos
    end;
    writeln(' la posicion de la palabra con mas vocales es ', pvmax);
    writeln(' la posicion de la palabra con mas consonantes es ',pcmax);
end;
    
{------------------------------------------------------
PROGRAMA PRINCIPAL}  
begin  
    main_program();
end.


run \| edit \| history \| help	0