structure releve_meteo
{
        ville : chaine
        H1: entier
        T1 : reel
        H2 : entier
        T2 : reel
}

prodecure afficherReleve(E r : releve_meteo)
{
        Afficher(r.ville, " :\n")
        Afficher("- ",r.H1,"h : ",r.T1," degrés\n")
        Afficher("- ",r.H2,"h : ",r.T2," degrés\n")
}

procedure affichage(E f: Fichier)
{
        variable rm : releve_meteo
                tmoy : reel
                n : entier 
        
        tmoy <-- 0
        n <-- 0
        
        Decaler(f, Debut_Fichier, 0)
        
        Tantque(NON(Fin(f)))
        {
                Lire(f,rm)
                afficherReleve(rm)
                tmoy <-- tmoy + rm.T1
                n <-- n+1
        }
        
        Si (n!=0) alors
        {
                tmoy <-- tmoy / n
                Afficher("La température moyenne est de :", tmoy, "\n")
        }
}

procedure majRM(E f: Fichier)
{
        variable r : releve_meteo
                 trouve : booleen
                 ville : chaine
        
        trouve <-- FAUX;
        
	Decaler(f, debut_fichier, 0)
        
        Afficher("Saisir la ville cherchée ? ")
        Saisir(ville) 
         
        Tantque (NON (Fin(f)) && NON(trouve))
        {
                Lire(f,r)
                Si (r.ville=ville) alors
                {
                        trouve <-- VRAI
                }
        }
        
        Si (trouve) alors // equivalent à ecrire "Si (trouve = VRAI) alors"
        {
                Afficher("La ville est  ", r.ville, "\n")
                Afficher("Veuillez saisir le code postal international")
                Saisir(r.ville)

                Decaler(f, Position_courante, -1)
                Ecrire(f,r)
        }

}