/* July 1, 1998 */
/* Program to convert distances from miles to kilometers using FILE */

#include 

#define KMS_PER_MILE 1.609
#define NUM 10

main ()
{
	/* Declaration */
	double miles, kms;
	int i;
	FILE *inp, *outp;

	/* Open the input and output files */
	inp = fopen("distance.dat", "r");
	outp = fopen("distance.out", "w");


	/* loop to scan and convert 10 numbers */
	for (i = 0; i < NUM; ++i) {

	/* Get and echo the distance in miles */
	fscanf(inp, "%lf", &miles);
	fprintf(outp, "The distance in miles is %.2f.\n", miles);

	/* Convert the distance to kilometers */
	kms = KMS_PER_MILE * miles;

	/* Display the distance to kilometeres. */
	fprintf(outp, "That equals %.2f kilometers.\n\n", kms);

	}

	/* Close files */
	fclose(inp);
	fclose(outp);

}

    Source: geocities.com/yosemite/rapids/9568

               ( geocities.com/yosemite/rapids)                   ( geocities.com/yosemite)