//Program operaciones
#include <stdio.h>
#include "oper.h"

int i,j,v=50,y;
char c;
double r;
float a,b;

void result (void);
double revisar (int a);

main ()
{
     textcolor (9);
     textbackground (1);
     clrscr ();
     printf ("Teclea los dos numeros: ");
     scanf ("%f %f", &a, &b);
     clrscr ();
     puts ("  Teclea la operacion:");
     puts ("a) Suma");
     puts ("b) Resta");
     puts ("c) Multiplicaci¢n");
     puts ("d) Divisi¢n");
     puts ("e) M¢dulo");
     do
       {
       gotoxy (24,1);
       textcolor (15);
       clreol ();
       c = getche ();
       }
       while (c != 'a' && c!= 'b' && c!= 'c' && c!= 'd' && c!= 'e');

     result ();
     switch (c)
	   {
	   case 'a': r= suma(a,b);  y= 2; break;
	   case 'b': r= resta(a,b); y= 3; break;
	   case 'c': r= mult(a,b);  y= 4; break;
	   case 'd': r= div(a,b);   y= 5; break;
	   case 'e': r= mod(a,b);   y= 6; break;
	   }
     for (j=2; j<= 70; j++)
	 {
	 if ((j%7) < 2)
	    continue;
	 result ();
	 r= revisar (j%7);
	 if (r<0)
	    gotoxy (23,j%7);
	    else
	    gotoxy (24,j%7);
	 textcolor (14); clreol ();
	 printf ("%1.2f", r);
	 if ((j%7)==2)
	    v+= 30;
	 delay (v);
	 }

     for (j=2; j<= y; j++)
	 {
	 result ();
	 r= revisar (j);
	 if (r<0)
	    gotoxy (23,j);
	    else
	    gotoxy (24,j);
	 textcolor (14); clreol ();
	 printf ("%1.2f", r);
	 delay (500);
	 }
     gotoxy (24,y);
     printf ("%1.2f", r);
     getch ();
     return 0;
}

double revisar (int d)
{
       switch (d)
	      {
	      case 2: r= suma(a,b);  ; break;
	      case 3: r= resta(a,b); ; break;
	      case 4: r= mult(a,b);  ; break;
	      case 5: r= div(a,b);   ; break;
	      case 6: r= mod(a,b);   ; break;
	      }
       return (r);
}

void result (void)
{
     textcolor (8);
     for (i=2; i<=6; i++)
	 {
	 r = revisar (i);
	 if (r<0)
	    gotoxy (23,i);
	    else
	    gotoxy (24,i);
	 clreol ();
	 printf ("%1.2f", r);
	 }
}