#include <stdio.h>
#include <math.h>
 
main(){
       FILE *f;
       char path[50];
       int i;
       double rand, imitono, sinimitono, efaptomeni, sinefaptomeni;
 

       printf("\nDwse to onoma tou arxeiou pros dimiourgia : ");
       scanf("%s", path);

 
       f = fopen(path, "w");
       if (!f){
            printf("\n\nSfalma kata th dhmiourgia tou arxeiou %s\n\n", path);
       }
 
       for (i=0;i<=359;i++){
            rand = (i*3.14)/180;
            imitono = sin(rand);
            fprintf(f, " %3.4f", imitono);
            sinimitono = cos(rand);
            fprintf(f, " %3.4f", sinimitono);
            efaptomeni = tan(rand);
            if (efaptomeni > 1 || efaptomeni < -1)
                 fprintf(f, " %c", 65);
            else
                 fprintf(f, " %3.4f", efaptomeni);
            if (efaptomeni==0)
                 fprintf(f, " Apeiro");
            else{
                 sinefaptomeni = 1/efaptomeni;
		 if (sinefaptomeni > 1 || sinefaptomeni < -1)
                       fprintf(f, " Apeiro");
		 else
                       fprintf(f, " %3.4f", sinefaptomeni);
            }
            fprintf(f, "\n");
       }
       fclose(f);
}