FILE *funkcia_V()
{
    FILE *fr;

    if((fr=fopen("UCET.TXT", "r"))== NULL)
        printf("Neotvoreny subor.\n");
    else
    {
        char c;
        int i;
        do
        {

            printf("transakcia: ");
            while((c=getc(fr))!='\n')
                  putchar(c);
            putchar('\n');

            printf("kredit/debet: ");
            c=getc(fr);
            putchar(c);
            c=getc(fr);
            putchar('\n');

            printf("Cislo uctu kam/odkial idu peniaze: ");
            while((c=getc(fr))!='\n')
                putchar(c);
            putchar('\n');

            printf("suma: ");
            while((c=getc(fr))!='\n')
                putchar(c);
            putchar('\n');

            printf("datum: ");
            while((c=getc(fr))!='\n')
                putchar(c);
            putchar('\n');
            getc(fr);
            putchar('\n');
            getc(fr);
            c=getc(fr);
            i++;
        }   while(c!=EOF);
    }
    return fr;
}
int funkcia_N(FILE *fr)
{
    double *suma;
    if(fr==NULL) { }
    else
    {
        int i, j=-1;
        char c;

        rewind(fr);

        do
        {
            for(i=0; i<5; i++)
            {
                while(getc(fr)!='\n') { }
            }
            c=getc(fr);
            j++;
         }while(c!=EOF);

        suma =(double *) malloc(j* sizeof(double));

        rewind(fr);

        do
        {
            for(i=0;i<3;i++)
            {
                while(getc(fr)!='\n') { }
            }
            fscanf(fr,"%lf", (suma+j));
            for(i=0;i<2;i++)
            {
                while(getc(fr)!='\n') { }
            }
            c=getc(fr);
        }while(c!=EOF);
    }
    return *suma;
}

int main(void)
{
double *suma=NULL;
int i;
FILE *fr=NULL;
    while(1)
    {
        switch(getchar())
        {
        case 'V': fr=funkcia_V(fr); break;
        case 'R': funkcia_R(fr); break;
        case 'N': suma = (double *) malloc(sizeof(double)); *suma=funkcia_N(fr); break;
        case 'S': funkcia_S(suma); break;
        case 'H': funkcia_H(); break;
        case 'U': funkcia_U(); break;
        case 'K': fclose(fr); return 0;
        }
    }
}