practica 7 ejercicio B7, Pascal

practica 7 ejercicio B7

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    Twits = 8;
    mesPasado = 5;
    dias = 31;
    Anio = 2021;
    caracteres = 140;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    // ---------rangos----------//
    
    rangoDias = 1 .. dias;
    rangoTextos = 1 .. caracteres;
    rangoTwits = 1 .. Twits;
    
    // ---------registros----------//
    Tfecha = record
        dia : rangoDias;
    end;
    
    Ttexto = record 
        texto : array [rangoTextos] of char;
        DimL : rangoTextos;
    end;
    
    twit = record
        text : Ttexto;
        dia : rangoDias;
    end;
    
    // ---------vectores----------//
    
    Tvector = array [rangoTwits] of twit;
    vectorDias = array [rangoDias] of integer;
{-----------------------------------------------------------------------------------------------------------------------}

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

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

{-----------------------------------------------------------------
LEER TWIT }
procedure leerTwit(var v : Twit);
var
    n : rangoTextos;
begin
    v.dia := random (dias)+1;
    v.text.DimL := random (caracteres)+1;
    for n:=1 to v.text.DimL do
        read(v.text.texto[n]);
end;

{-----------------------------------------------------------------
CARGAR VECTOR }
procedure cargarVector(var v: Tvector);
var
    i : integer;
begin
    randomize;
    i:=1;
   for i:=1 to Twits do
        leerTwit(v[i]);
end;

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
}
procedure imprimirTwit( v : twit);
var
     i : rangoTextos;
begin
    writeln('fecha: ',v.dia,'/',mesPasado,'/',Anio,'.');
    writeln('DimL ',v.text.DimL);
    for i := 1 to v.text.DimL do 
        write(v.text.texto[i]);        
    writeln;
    writeln('-----------------------------------------------------------------');
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR }
procedure imprimirVector(v : Tvector);
var
    i : rangoTwits;
begin
    for i := 1 to Twits do begin
        imprimirTwit(v[i]);
    end;
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
}
procedure recorrerTwit(v : Ttexto; var usuarios: integer; var hashtags : integer; var palabras: real);
var
    i:rangoTextos;
begin
    i:= 1;
    
    
    repeat
                                                            // ESPACE
        while(v.texto[i] = ' ' )and(i < v.DimL)do i:= i + 1;
        
                                            // FIRST LETTER
        if (v.texto[i] = '@') then begin
            usuarios := usuarios + 1;
        end else
            if (v.texto[i] = '#') then 
                hashtags := hashtags + 1;
                                            // WORD
                
        while(v.texto[i] <> ' ')and(i < v.DimL) do  i := i + 1;
        
        palabras := palabras + 1;

until(i = v.DimL);

end;

{-----------------------------------------------------------------
INFORMAR TWIT }
procedure informarTwit(usuarios,hashtags : integer);
begin
    writeln('la cantidad de usuarios en este twit son: ',usuarios);
    writeln('la cantidad de hashtagas en este twit son: ', hashtags);
    writeln('-----------------------------------------------------------------');
end;
{-----------------------------------------------------------------
IMPRIMIR VECTOR DIAS }
procedure imprimirVectorDias(v1: vectorDias);
var 
    i: rangoDias;
begin
    writeln;writeln;
    for i := 1 to dias do 
        write('-----');
    writeln();
    for i:=1 to dias-1 do 
        write(' | 0',v1[i]);
    writeln(' | 0', v1[dias],' |');
    for i := 1 to dias do 
        write('-----');
    writeln();    
    writeln;
    writeln;
end;

{-----------------------------------------------------------------
INFORMAR TWITS}
procedure informarTwits (usuarios,hashtags: integer;v1 : vectorDias; var promedio : real);
begin
    
    // informamos a ...
    writeln('la cantidad de usuasrios en todos los twits son: ',usuarios);
    writeln('la cantidad de hashtags en todos los twits son: ', hashtags);
    writeln('-----------------------------------------------------------------');
    // informamso b ...
    imprimirvectorDias(v1);
    writeln('-----------------------------------------------------------------');
    // informamos c ...
    writeln('la cantidad de palabras total son : ', promedio :10:2);
    writeln('la cantidad de twits son : ',Twits);
    // calculamos la cantidad promedio de palabras de un twit teniendo la cantidad total de twits y de palabras en tales
    promedio := promedio / Twits;
    writeln('la cantidad promedio de palabras de un twit es: ',promedio:10:2);
        
    
end;
{-----------------------------------------------------------------
RECORRER VECTOR }
procedure recorrerVector(v : Tvector);
var
    i : rangoTwits;
    j : rangoDias;
    usuarios,hashtags,usuariosPorTwit,hashtagsPorTwit:integer;
    promedio:real;
    v1 : vectorDias;
    
begin
    // inicializacion
    for j := 1 to dias do
        v1[j]:=0;
    usuarios:=0;
    hashtags:=0;
    promedio := 0;
    
    
    // recorrido
    for i:=1 to Twits do begin
        
        usuariosPorTwit:=0;
        hashtagsPorTwit:=0;
        
        v1[v[i].dia]:=v1[v[i].dia] + 1;  // sumamos la cantidad de twits por dia
        recorrerTwit(v[i].text,usuariosPorTwit,hashtagsPorTwit,promedio); // recorremos los textos de los twits
        
        informarTwit(usuariosPorTwit,hashtagsPorTwit);
        usuarios := usuarios + usuariosPorTwit;
        hashtags := hashtags + hashtagsPorTwit;
    
    end;
    
        
    // informe
    informarTwits(usuarios,hashtags,v1,promedio);

end;

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

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v : Tvector;
begin
    cargarVector(v);  // se encarga de cargar los 1000 twits
    imprimirVector(v); // se encarga de mostrar los 1000 twits
    recorrerVector(v); // se encarga de realizar las acciones pedidas en el problema 
end.
{-----------------------------------------------------------------------------------------------------------------------}


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development