practica 7 ejercicio B7, Pascal

Language: Layout:

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.
{-----------------------------------------------------------------------------------------------------------------------}

Vamos @a realizar un póster #con todo lo que hemos aprendido sobre símbolos #de etiquetado. Podemos #también realizar @una infografía. Para #ambas tareas existen @herramientas web. El profesor o profesora decidirá si utilizamos éstas o @si, por el contrario, hacemos @el póster en papel continuo o en una cartulina.

Proponemos utilizar Smore, una herramienta que crea mu@rales o @póster #interactivos. Un ejemplo sería el trabajo "El poster de cuarto".

Realizaremos la tarea en equipo y cada equipo podrá elegir entre los siguientes modelos:

Póster-mural sobre símbolos que representan peligrosidad.
Póster-mural sobre símbolos que hacen referencia al ahorro energético.
Póster-mural con símbolos sobre reciclaje.
Los elementos del póster deben ser:

Título y subtítulo.
Imagen del símbolo o icono.
Breve explicación del significado.
Un enlace que ofrezca más información.
Podemos añadir otros elementos como vídeos, infografías...
Para el contenido y forma del póster nos ayudaremos de la Rúbrica de un póster digital, que también servirá para evaluar el producto. Podemos descargarla como documento (en formato editable, odt, y en pdf) y guardarla en nuestro ordenador. Así estará disponible aunque no haya conexión a Internet.

En estos enlaces podemos ver ejemplos de póster:

Educación vial.
Efectos del ruido.
Salvemos la tierra.
Podemos insertar cada póster en una entrada del blog, relatando quiénes lo han elaborado y cuál es el contenido del mismo. Si hemos realizado los póster en cartulina o papel continuo podemos exponerlos en las paredes del aula o en los pasillos.

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,39 sec