Practica # 10

Problema 1

1.- Inicio


ofstream archivo;
archivo.open("C:\\datos\\ejemplo.txt")
if(archivo.bad())
{
Print " No puede crear el archivo ejemplo.txt ";
}
else
{
archivo , 1 ,"  ", 50 , " Reprobado ";
archivo , 2 ,"  ", 0 , " Ausente ";
archivo , 3 ,"  ", 80 , " Aprobado ";
archivo , 4 ,"  ", 100 ," Aprobado ";
archivo.close()
}
Print " Datos guardados exitosamente "
Fin

Problema 2

1.- Inicio

ifstream arch1;

 calif,i           int

 cadena[10]      char

arch1.open("C:\\datos\\ejemplo.txt");

if(arch1.bad())

{

Print " Incapaz de crear o abrir el archivo ";

}

else

{

arch1 , i;

while(!arch1.eof())

{

Print  i ,"     ";

arch1 , calif;

Print calif ," \t ";

arch1 , cadena;

Print  cadena ;

arch1 , i;

}

arch1.close()

}

Fin

Problema 3

1.- Inicio

fstream f1;

 cadena[10],sigue,nombre[5][10];     char

 c1,c2,c3,c4,i=0;       int 

 promedio;      int

 opcion;     int

f1.open("C:\\datos\\ejemplo2.txt",ios::out);

do{

Print " 1) Almacenar datos del alumno : "<<endl;

Print " 2) Reporte de alumnos : "<<endl;

Print " 3) Salida de programa : "<<endl;

Print " Elige opcion : ";

Read opcion;

switch(opcion)

{

case 1:

do

{

Print " Nombre alumno : "<<(i+1)<<" : ";

Read  nombre[i];

Print " Calificacion 1 : ";

Read  c1;

Print " Calificacion 2 : ";

Read  c2;

Print " Calificacion 3 : ";

Read  c3;

Print " Calificacion 4 : ";

Read c4;

promedio = (c1+c2+c3+c4)/4;

f1,nombre," ",c1," ",c2," ",c3," ",c4," ",promedio," ;

if(promedio>=70)

{

f1,"Aprobado";

Print "*Aprobado";

}

else{

f1,"Reprobado"l;

Print "**Reprobado";

}

Print "Desea registrar a otro(s/n)";

Read sigue;

}

while(sigue=='s' || sigue=='S');

f1.close();

break;

case 2:

f1.open("C:\\datos\\ejemplo2.txt",ios::app);

Print "Nombre   Calif 1  Calif 2  Calif 3  Calif 4  Promedio";

if(f1.bad())

{

Print "Incapaz de crear o abrir el archivo";

}

else{

f1,nombre[i];

while(!f1.eof());

{

Print nombre[i+1]," ";

f1,c1;

Print c1,"\t";

f1,c2;

Print c2,"\t";

f1,c3;

Print c3, "\t";

f1>>c4;

Print c4,"\t";

f1,promedio;

Print promedio,"\t";

f1>>cadena;

Print cadena,"\t";

f1,nombre[i];

}

}

f1.close();

break;

case 3: Print"Salida Programa";

break;

default: Print ,"Error en Opcion";

break;

}

}

while(opcion !=3)

Fin.

Problema 4

Un archivo llamado polar.txt contiene las coordenadas pobres nesesarias en un programa de graficas.Actualmente este archivo contiene los siguientes datos.

                  Distancia (Pulgadas)          Angulo (Grados)      

             2.0                              45.0

             6.0                              30.0

            10.4                             45.0

             4.0                              60.0

            12.0                             55.0

             8.0                              15.0

a) Escriba u programa para crear este archivo.

b) Con base al archivo polar.txt escriba un programa que acepte del usuario los datos de distancia y angulo y los agregue al final del archivo.

c) Con el archivo polar. txt escriba u programa que lea este archivo y cree otro llamado xycord.txt las entradas al nuevo archivo deben contener las coordenadas rectangulares que corresponden a  las coordenadas polares.

x=ycoseno

y=rseno

Donde r es la coordenada de distancia y  es el equivalente en radianes a la coordenada del angulo en el archivo polar.txt.

1.- Inicio

void crearchivo()

{

fstream escribir;

escribir.open("C://datos//polar.txt",ios::out);

escribir , 2.0 ,"   ", 45.0; 

         , 6.0 ,"   ", 30.0 ;

         , 10.0 ,"   ", 45.0; 

         , 4.0 ,"   ", 60.0 ;

         , 12.0 ,"   ", 55.0 ;

         , 8.0 ,"   ", 15.0 ;

escribir.close();

}

void agregard()

{

 dist,angulo      float

 continuar      char

fstream escribir;

escribir.open("C://datos//polar.txt",ios::app);

do

{

Print " Distancia (Pulgadas): ";

Read dist;

Print " Angulo (Grados): ";

Read angulo;

escribir , dist ,"     ",angulo;

Print " Deseas registrar otro (S/N):";

Read continuar;

}

while (continuar=='S'||continuar=='s');

escribir.close();

}

void crearxycord()

{

float d,a,x,y,rad;

fstream f1;

fstream f2;

f1.open ("C://datos//polar.txt",ios::in);

f2.open ("C://datos//xycord.txt",ios::out);

f1,d;

while (!f1.eof())

{

f1,a;

rad = (a*3.1416)/180;

x = d*cos(rad);

y = d*sin(rad);

f2,x,"  ",y;

f1,d;

Print  x ," : ", y ;

}

f1.close()

f2.close()

}

void main()

{

crearchivo()

agregard ()

crearxycord ()

Fin.

Problema 5

Escriba los cuatro numeros reales 
                                                         92.65
                                                         88.72
                                                         77.46
                                                         82.93

en un archivo texto llamado resultados.Despues de escribir los datos en el archivo el programa debe leerlos determinar y desplegar el promedio de los cuatro numeros leidos. 

1.- Inicio

 num;    float

fstream archivo;

archivo.open("c://datos//resultados.txt",ios::out,ios::in);

archivo , 92.65 , "      ", 88.72 , "      ", 77.46 , "     " 82.93;

archivo.close();

float suma = 0;

archivo.open("c://datos//resultados.txt",ios::in);

for(int i=1;i<=4;i++)

{

archivo , num;

Print num,"  ";

suma = suma + num;

}

;

 promedio = suma/4.0;    float

Print " El promdio es : ",promedio;

Fin.

Problema 6

1.- Inicio

void ordenar (int n,char x[10][12])

{

 temp[12];     char

 i,elem;      int

for(elem=0;elem<(n-1);elem++)

{

for(i=elem+1;i<(n-1);i++)

{

if(strcmpi(x[elem],x[i])<0)

{

strcpy(temp,x[elem]);

strcpy(x[elem],x[i]);

strcpy(x[i],temp);

} } } }

void main ()

{

 i,n=0;     int

 x[10][12];    char

Print " Escribe fin para terminar ";

do

{

Print " Cadena ",(n+1)," : ";

Read x[n];

}

while(strcmpi(x[n++]," Fin "));

ordenar(--n,x);

Print " Lista Ordenar Cadena ";

for(i=0;i<n;i++)

{

Print x[i] ;

}

Fin.