practica 3 ejercicio B6, Pascal

practica 3 ejercicio B6

//fpc 3.0.4

program HelloWorld;
type 
    conj = set of char;
 
{--------------------------------------------------------------
INICIALIZACION - Inicializa las variables para comenzar el programa}
procedure inicializacion(var A:boolean;var B:boolean; var letras_mayusculas:conj;var aparecieron:conj);
begin
    A:=true;
    B:=true;
    letras_mayusculas:= ['A'..'Z'];
    aparecieron := [] ;
end;

{--------------------------------------------------------------
PARTE A - Verifica que la parte A cumpla con lo especificado}
procedure part_A(var car:char; mayusculas:conj; var A:boolean;var aparecieron:conj);
begin
    read(car);
    while car <> '@' do begin
        if not(car in mayusculas) then
            A:=false;  
        aparecieron:= aparecieron + [car];
        read(car);
    end;
end;

{--------------------------------------------------------------
PARTE B - Verifica que la parte B cumpla con lo especificado}
procedure part_B(var car: char; aparecieron:conj;var B:boolean);
begin
    read(car);
    while car <> '.' do begin
        if car in aparecieron then 
            B:=false;
        read(car);
    end;
end;

{--------------------------------------------------------------
INFORME - Imprime los resultados de lo pedido}
procedure informe(a,b:boolean);
begin
    if a and b then begin
        writeln('la secuencia cumple el patrón ');
    end else
        if not a and not b then begin 
            writeln('ninguna de las secuencias cumple el patrón');
        end else
            if not a then begin
                writeln('la secuenia A no cumple el patrón');
             end else 
                 writeln('la secuencia B no cumple el patrón');
end;

{--------------------------------------------------------------
MAIN_PROCESS - Dirige los procesos}
procedure main_process();
var 
    letras_mayusculas,aparecieron : conj;
    car:char;
    A,B:boolean;
begin
    inicializacion(A,B,letras_mayusculas,aparecieron);
    part_A(car,letras_mayusculas,A,aparecieron);
    part_B(car,aparecieron,B);
    Informe(A,B);
end;

{--------------------------------------------------------------
Programa principal}
begin
    main_process();
end.


run \| edit \| history \| help	0