Proyecto1 uc facyt

Algoritmo_proyecto

Var:

Cadena1: arreglo [1…52] de cadena;
Cadena2: arreglo [1…102] de cadena;
Cadena3: arreglo [1…32] de cadena;

Registro tiempo

HORA;MINUTOS;SEGUNDOS: enteroFinregistro

Registro mejores_canciones

NOMBRE: cadena1
MINUTOS,SEGUNDOS,PUNTUACION: ENTERO

Finregistro

Registro propaganda

nombre: cadena3

duracion,repeticiones: entero

FinregistroCad : cadena1

Tiempo : tiempo

Canciones_buenas,shows_buenos,aleatorio,cont,centi_s: entero
Opcion,NUMERO1,NUMERO2,lectura,aux,aux1,aux2,aux3,imprimir : entero
NAME : arreglo[1…500] decadena
basura : carácter

INICIO

TIEMPO.HORA(0

TIEMPO.MINUTOS(5

TIEMPO.SEGUNDOS(0

c : arreglo[1…1002] de propaganda
b : arreglo[1…17] de shows

a : arreglo [1…1002] de cancionescant,cant2,cant_publi,i : entero

canciones,publicidad,shows,grilla,grillacompleta : Archivo

AbrirArchivo(canciones,”canciones.in,”lectura”)
AbrirArchivo(publicidad,”publicidad”,”lectura”)AbrirArchivo(shows,”shows.in”,”lectura”)
AbrirArchivo(grilla,”grilla.out”,”escritura”)

Si((v_archivos(canciones)=0)and(v_archivos(publicidad)=0)and(v_archivos(shows)=0)and(v_archivos(grilla)=0)) entonces

LeerArchivo(canciones,cant)
LeerArchivo(canciones,basura)

Si((cant>1)and(cant 0 )entonces
{

EscribirArchivo(grilla, TIEMPO.HORA, TIEMPO.MINUTOS,TIEMPO.SEGUNDOS);

TIEMPO.SEGUNDOS(TIEMPO.SEGUNDOS + c[imprimir].duracion + 1;

transformando_tiempo((REF:TIEMPO.HORA),(REFTIEMPO.MINUTOS), (REF:TIEMPO.SEGUNDOS));EscribirArchivo ("P ");
EscribirArchivo(grilla c[imprimir].nombre);

Cont(cont+1;
while(cont 0);

centi_s(cent_s+1;

si(TIEMPO.HORA 0 )entonces(grilla, ", TIEMPO.HORA, TIEMPO.MINUTOS, TIEMPO.SEGUNDOS);

TIEMPO.SEGUNDOS( TIEMPO.SEGUNDOS + c[imprimir].duracion + 1;

transformando_tiempo((REF:TIEMPO.HORA),(REF:TIEMPO.MINUTOS),...