practica 7 ejercicio 8, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    DimF = 30;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    rangoConj = 1 .. DimF;
    letras = 'a' .. 'z';
    conjunto = record
        Tvector : array [rangoConj] of letras;
        DimL : rangoConj;
    end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos
de ser necesarias}
//var
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PERTENENCIA}
function pertenencia(c:conjunto;letra:char):boolean;
var 
    i:integer;
    encuentro:boolean;
begin
    i:=1;
    encuentro:=false;
    while (i <= c.DimL)and not(encuentro) do begin
        encuentro:= (c.Tvector[i] = letra);
        if not encuentro then i:= i+1;
    end;
    pertenencia := encuentro;
end;
{-----------------------------------------------------------------
INICIALIZACION}
procedure inicializar(var abecedario:conjunto);
var i:char;
begin
       abecedario.DimL := 1; 
       for i := 'a' to 'z' do begin
           abecedario.Tvector[abecedario.DimL] := i;
           if i <> 'z' then
               abecedario.DimL := abecedario.DimL + 1;
       end;
end;
{-----------------------------------------------------------------
UNION}
function Union(c1,c2: conjunto):conjunto;
var
    i,j:rangoConj;            // i = indice de c1  y  j = indice de c2
begin
    i:= c1.DimL+1;
    j:=1;
    while (j <= c2.DimL)and (c1.DimL < DimF) do begin
    
        if not pertenencia(c1,c2.Tvector[j]) then begin
            c1.Tvector[i] := c2.Tvector[j];
            c1.DimL := i;
            i := i + 1;
        end;
        
        j := j+1;
    
    end;
    
    Union:= c1;
end;
    
{-----------------------------------------------------------------
DIFERENCIA}
function Diference(c1,c2:conjunto):conjunto;
var
    i,indice:rangoConj;
begin
    for i := 1 to c2.DimL do begin
        if pertenencia(c1,c2.Tvector[i])then begin
            for indice:=i to c1.DimL-1 do c1.Tvector[i]:= c1.Tvector[i+1];
            c1.DimL := c1.DimL - 1;
        end;
    end;
    Diference := c1;
end;
{-----------------------------------------------------------------
LECTURA}
procedure leerC(var c:conjunto;abecedario:conjunto);
var
    car : char;
begin
    c.DimL := 1;
    read(car);
    while car = ' ' do read(car);
     while (car <> ' ')and(c.DimL < DimF) do begin
     if pertenencia(abecedario,car) and not(pertenencia(c,car)) then begin
            c.Tvector[c.DimL] := car;
            c.DimL:= c.DimL+1;
            end;
        read(car);
      end;
      c.DimL := c.DimL - 1;
end;
{-----------------------------------------------------------------
IMPRESION}
procedure imprimirConjunto(c:conjunto);
var 
    i:integer;
begin
    write('[');
    for  i:=1 to c.DimL-1 do 
        write(c.Tvector[i],',');
    write(c.Tvector[c.DimL],']');    
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    C1,C2:conjunto;
    abecedario : conjunto;
begin
    inicializar(abecedario);
    
    writeln;
    writeln;
    
    imprimirConjunto(abecedario);
    
    
    writeln;
    writeln;
    
    writeln('-------------lectura-------------');
    
    writeln;
    writeln;
    
    leerC(c1,abecedario);
    leerC(c2,abecedario);
    
    
    writeln;
    writeln;
    
    writeln('-------------impresion-------------');
    
    writeln;
    writeln;
    
    
    imprimirConjunto(c1);
    
    writeln;
    writeln;
    
    imprimirConjunto(c2);
    
    writeln;
    writeln;
    
    
    writeln('-------------union-------------');
    
    writeln;
    writeln;
    
    imprimirConjunto(Union(c1,c2));
    
    writeln;
    writeln;
    
    writeln('-------------Diferencia-------------');
    
    writeln;
    writeln;
    
    imprimirConjunto(Diference(c1,c2));
    
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.15 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,46 sec