Structure Releve_meteo
{
        ville : chaine
        H1 : entier
        T1: réel
        H2 : entier
        T2: réel
}

procedure afficherRM(E rm: Releve_meteo)
{
        Afficher(rm.ville, " :\n")
        Afficher("- ", rm.H1, "h : ", rm.T1," degrés\n")
        Afficher("- ", rm.H2, "h : ", rm.T2," degrés\n")
}

procedure Affichage(E f: Fichier)
{
        variable rm : Releve_meteo
                total : reel
                nb : entier

        Decaler(f,Debut_Fichier, 0)
        
        total <-- 0 // Vous ne viendrez plus chez nous par hasard
        nb <-- 0
        
        Tantque(NON Fin(f))
        {
                Lire(f, rm)
                AfficherRM(rm)
                total <-- total + rm.T1
                nb <-- nb +1
        }
        
        Si (nb != 0) alors
                Afficher("La moyenne des températures est de : ", total/nb, "\n")
}

procedure majRM(E f: Fichier)
{
        variable rm : Releve_meteo
                 trouve : booleen
                 ville : chaine
                 
        Decaler(f,Debut_Fichier, 0)
        
        trouve <-- FAUX
        
        Afficher("Veuillez saisir le nom de la ville ?")
        Saisir(ville)

        Tantque (NON Fin(f) ET NON (trouve))
        {
                Lire(f,rm)
                
                Si (rm.ville = ville) alors
                {
                        trouve <-- VRAI
                }
        }
        
        Si (trouve) alors
        {
                Decaler(f, Position_Courante, -1)
                Afficher("Veuillez saisir le code postal international")
                Saisir(rm.ville)
                Ecrire(f,rm)
        }
}