practica 3 ejercicio B7, Pascal

practica 3 ejercicio B7

//fpc 3.0.4

program HelloWorld;
type
    conj = set of char;
    
procedure inicializacion(var q:boolean; var v:boolean; var w:boolean);
begin
    q:=true;
    v:=true;
    w:=true;

end;
{---------------------------------------------------------
PART_V es una secuencia de palabras, donde todas las palabras 
comienzan con la letra ‘o’ y terminan con una la letra ‘n’.}
procedure part_V(var v:boolean;var car:char);
var ult_car:char;
begin
    read(car);
    while (car<>'&')and v do begin
        if (car <> 'o')then begin
            v:=false;
        end else
            begin
                while (car<>' ')and(car <> '&') do begin
                    ult_car:=car;
                    read(car);
                end;
                if (ult_car <> 'n') then begin
                    v:=false;
                end else
                    while (car = ' ') do read(car);
            end;
    end;
end;

{---------------------------------------------------------
PART_Q es una secuencia de palabras, donde todas las palabras tienen todas las vocales.}
procedure part_Q(var q:boolean;var car:char);
var vocales: conj;
begin
    read(car);
    while car = ' ' do read(car);
    while (car <> '%') and (q) do begin
        vocales:= ['a','e','i','o','u'];
        while (car<>'%')and(car <> ' ') do begin
            if car in vocales then
                vocales:= vocales - [car];
             read(car);
        end;
        if (vocales <> [])then begin q:=false; 
        end else
            while car = ' ' do read(car);
     end;
end;
{---------------------------------------------------------
PART_W - es una secuencia de palabras donde todas las palabras de longitud mayor que 5, tienen tres ‘s’.}
procedure part_W(var w:boolean;var car:char);
var long:integer;cants:integer;
begin
    read(car);
    while (car <> '*')and(w)do begin
        long:= 0;cants:=0;
        while (car <> '*')and(car <> ' ')do begin
            long:=long+1;
            if car = 's' then cants:= cants+1;
            read(car);
        end;
        if (long >=5)and(cants <> 3) then begin w:=false;
        end else
            while car = ' ' do read(car);
    end;

end;

{---------------------------------------------------------
MAIN_PROCESS- LIDER OF SYSTEM}
procedure main_process();
var
    q,v,w:boolean;
    car:char;
begin
    inicializacion(q,v,w);
     part_V(v,car);
     if v then begin
         part_Q(q,car);
          if q then begin
              part_W(w,car);
              if w then begin writeln('la secuencia cumple con el patron');
              end else writeln('la parte w no cumple con el patron');
          end else writeln('la parte q no cumple la secuencia');
      end else writeln('la parte v no cumple la secuencia');
end;

{---------------------------------------------------------
MAIN_PROGRAM }
begin
    main_process();
end.


run \| edit \| history \| help	0