Structure Emission
{
        id : entier
        date : Date
        heure : Heure
        nom : chaine de 20 caracteres
        durée : entier
        chaineTV : chaine de 20 caracteres       
}

structure Date
{
        jour : entier
        mois : entier
        année : entier
}

structure Heure
{
        h : entier
        m : entier
}

fonction saisirDate(): Date
{
        variable d:Date
        
        Afficher("Veuillez saisir le jour, le mois et l'année")
        Saisir(d.jour, d.mois, d.annee)
        
        retourner d
}

fonction saisirHeure(): Heure
{
        variable h:Heure
        
        Afficher("Veuillez saisir les heures et minutes")
        Saisir(h.h, h.m)

        retourne h
}

fonction saisirEmission(): Emission
{
        variable e:Emission
        
        Afficher("Veuillez saisir l'identifiant de l'émission")
        Saisir(e.id)
        
        e.date <-- saisirDate()
        e.heure <-- saisirHeure()

        Afficher("Veuillez saisir le nom de l'émission")
        Saisir(e.nom)

        Afficher("Veuillez saisir la duree de l'émission")
        Saisir(e.duree)
        
        Afficher("Veuillez saisir la chaine TV qui diffuse l'émission")
        Saisir(e.chaineTV)
        
        retourner e
}

procedure ModificationProgrammation(E nom_fichier: chaine, E id :entier)
{
        variable f: Fichier
                 e : Emission
                 Trouve : booleen
         
         Trouve <-- FAUX
                 
         Designer(nom_fichier, f)
         Ouvrir(f,"lecture/ecriture")
         Decaler(f, Debut_Fichier, 0)
         
         Tantque( NON Fin(f) ET NON TROUVE)
         {
                Lire(f,e)
                Si (e.id = id) alors
                        Trouve <-- VRAI
         }
         
         Si (Trouve) alors
         {
                e.date <-- saisirDate()
                e.heure <-- saisirHeure()
                Decaler(f, Position_Courante, -1)
                Ecrire(f, e)
         }
         
         Fermer(f)
}

Algorithme TV
{
        constante chaine progTV <-- "programmeTV.dat"
        variable id : entier
        
        Afficher("Veuillez saisir l'identifiant de l'émission dont vous voulez modifier la programmation")
        Saisir(id)
        
        ModificationProgrammation(progTV,id)
        
}