Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Naloga 8: 10.9.2008
aaaaa
Zad 3 в
Genetic Pascal
imprimir_numeros_hasta_N
janja - naloga 1 - 25.1.2012
VINICIUS ELIAS SILVEIRA 600625519
Kelipatan
Projet1
a 3 .b