problema 11- inicio
ofstream archivo;
archivo.open("J:\\prog\\ejemplo.txt")
if(archivo.bad())
{
print, "No puede crear el archivo ejemplo.txt",endl
}
else{
archivo<<1<<" "<<50<<" Reprobado"<
fin
problema 2
1- inicio
ifstream arch1
int i,calif
char cadena[10]
arch1.open("J:\\prog\\ejemplo.txt")
if(arch1.bad())
{
print, "Incapaz de crear o abrir el archivo", endl
}
else
{
arch1>>i
while(!arch1.eof())
{
Print, i, " ",endl
arch1>>calif
print, calif, " \t "
arch1>>cadena;
cout<>i
}
arch1.close()
}
fin
problema 3
1- inicio
fstream f1;
char cadena[10],sigue,nombre[5][10]
int c1,c2,c3,c4,i=0
int promedio
int opcion
f1.open("J:\\prog\\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<=70)
{
f1<<"Aprobado"<>nombre[i]
while(!f1.eof())
{
cout<>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", endl
f1>>nombre[i]
}
}
f1.close()
break;
case 3: Print ,"Salida Programa", endl;
break;
default: Print ,"Error en Opcion", endl
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 0
y=rseno 0
donde r es la coordenada de distancia y 0. es el equivalente en radianes a la coordenada del angulo en el archivo polar.txt.
1- inicio
fstream escribir;
escribir.open("J://prog//polar.txt",ios::out);
escribir,2.0," ",45.0,endl
,6.0," ",30.0,endl
,10.0," ",45.0,endl
,4.0," ",60.0,endl
,12.0," ",55.0,endl
,8.0," ",15.0,endl;
escribir.close();
}
void agregard()
{
float dist,angulo
char continuar
fstream escribir
escribir.open("J://prog//polar.txt",ios::app);
do
{
Print,"Distancia (Pulgadas):"
Read, dist
Print, "Angulo (Grados):"
Read, angulo
escribir<>d;
while (!f1.eof())
{
f1>>a;
rad=(a*3.1416)/180;
x=d*cos(rad);
y=d*sin(rad);
f2<>d;
cout<
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
float num
fstream archivo;
archivo.open("J://prog//resultados.txt",ios::out,ios::in);
archivo<<92.65<<" "<<88.72<<" "<<77.46<<" "<<82.93<
archivo.close();
archivo.open("J://prog//resultados.txt",ios::in);
float suma=0
for (int i=1;i<=4;i++)
{
archivo>>num;
Print, num<<" "
suma=suma+num
}
Print, endl
float promedio=suma/4.0
Print, "El promedio es:", promedio, endl
fIN
problema 6
Suponga que desea introducir una lista de cadenas en un arreglo de tamaño 10.
Haga un programa que considere un metodo para ordenar alfabeticamente estas cadenas y escribir la lista de las cadenas en forma ordenada, en orden ascendente.
1- inicio
void ordenar(int n,char x[10][12])
{
char temp[12];
int i,elem;
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()
{
int i,n=0
char x[10][12]
Print, "Escribe Fin para terminar ", endl
do
{
Print, "Cadena ", (n+1), " : "
Read, x[n]
}
while(strcmpi(x[n++],"fin"));
ordenar(--n,x);
Print, "Lista Ordenar cadena ", endl;
for(i=0;i
{
Print, x[i], endl
} }
fin
