#include<ctype.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>

#define MAXLINE 100
/*calculadora rudimentaria*/
 main()
{
	float num, atof(char[]);
	char line[MAXLINE];
	int getline(char line[],int max);
	clrscr();
	while(getline(line, MAXLINE)>0)

		printf("El resultado es:\t%3.6f\n",atof(line));
	return 0;


}

/* getline: lee una l¡nea en s, regresa su longitud */
int getline(char s[], int lim)
{
	int c,i;

	for(i=0;i<lim-1 &&(c=getchar())!=EOF && c!='\n';++i)
		s[i]=c;
	if(c=='\n'){
		s[i]=c;
		++i;
	}
	s[i]='\0';
	return i;
}


/*atof: convierte la cadena s a double */
 float atof(char s[])
{
	float val, power,negativo,positivo;
	int i, sign;

	for(i=0; isspace(s[i]);i++) /*ignora espacios blancos*/
		;
	sign=(s[i]=='-')?-1:1;
	powe=((s[i]=='e'||s[i]=='E')&& s[i+1]=='-')?(pow(10,((-1)*isdigit(s[i+1]))))):(pow(10,(isdigit(s[i+1])))));
	if (s[i]=='+' || s[i]=='-')
		i++;
	for(val=0.0;isdigit(s[i]);i++)
		val=10.0*val+(s[i]-'0');
	if(s[i]=='.')
		i++;
	for(power=1.0;isdigit(s[i]);i++) {
		val=10.0*val+(s[i]-'0');
		power*=10.0;
	}
	if((s[i]=='e'||s[i]=='E')&& s[i+1]=='-')
		{i++;
		negativo=(sign*(val/power)*(powe));
		return negativo;}
	else if((s[i]=='e'||s[i]=='E')&& s[i+1]=='+')
		{i++;
		positivo=(sign*(val/power)*(powe));
		return positivo;}
    /*	return (sign * val/power);  */
}