conversione mi km bernardo approved

/*************************************************************************/
/* programma per la conversione di miglia in chilometri (versione batch) */
/*************************************************************************/

/*****************************/
/* inclusione delle librerie */
/*****************************/

#include <stdio.h>

/*****************************************/
/* definizione delle costanti simboliche */
/*****************************************/

#define KM_PER_MI 1.609   /* fattore di conversione */

/***********************************/
/* definizione della funzione main */
/***********************************/

int main(void)
{
    /* dichiarazione delle variabili locali alla funzione */
    double miglia,             /* input: distanza in miglia */
           chilometri;         /* output: distanza in chilometri */
    FILE *file_miglia,         /* lavoro: puntatore al file di input */
         *file_chilometri;     /* lavoro: puntatore al file di output */
    int esito_fscanf;

    /* aprire i file */
    file_miglia = fopen("miglia.txt",
                "r");
    file_chilometri = fopen("chilometri.txt",
                "w");

    if (file_miglia == NULL)
        printf("Errore nell'apertura del file miglia.txt!\n");
    else
    {
        /* acquisire la distanza in miglia */
        esito_fscanf = fscanf(file_miglia,
                      "%lf",
                      &miglia);

        if (esito_fscanf != 1 || miglia < 0)
            printf("Input non accettabile!\n");
        else
        {
            /* convertire la distanza in chilometri */
            chilometri = KM_PER_MI * miglia;

            /* comunicare la distanza in chilometri */
            fprintf(file_chilometri,
                "La stessa distanza in chilometri e’: %f\n",
                chilometri);

            /* chiudere i file */
            fclose(file_miglia);
            fclose(file_chilometri);
        }
    }

    return(0);
}