Problema 1
Pseudocodigo:
Inicio.
registro producto
{
noProd int
descrip[30] char
precio real
cantidad int
}
producto Registro
FILE*alias
funcion void ALTA_SECUENCIAL()
{
no_prod int
clrscr()
Print "\n\rALTAS DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb+")
if(alias==NULL)
alias=fopen("c:\\Datos\\PRODCTO.SEC","wb")
Print "\n\n\n\rNumero de producto:" Read no_prod;
fread(&Registro,sizeof(Registro),1,alias)
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\n\n\rRegistro duplicado!!!"
fclose(alias)
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rDescripcion:" gets(Registro.descrip)
Print "\n\rCantidad:" Read Registro.cantidad
Print "\n\rPrecio:" Read Registro.precio
Registro.noProd=no_prod
fwrite(&Registro,sizeof(Registro),1,alias)
fclose(alias)
Print "\n\n\n\rProducto registrado!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar >>> "
}
Funcion void CONSULTA_SECUENCIAL(void)
{
no_prod int
clrscr()
Print "\n\rCONSULTA DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTOS.SEC","rb")
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
Print "\n\n\n\rNumero de producto:" Read no_prod;
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\rNo Prod Descripcion Cantidad precio"
Print "\n\r------------------------------------------------------------\n\n"
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
fclose(alias)
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rNo se encuentra ese registro !!!"
fclose(alias)
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
funcion void LISTADO_SECUENCIAL(void)
{
clrscr()
Print "\n\rLISTADO DE REGISTRO DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb")
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
Print "\n\rNo Prod Descripcion Cantidad Precio"
Print "\n\r------------------------------------------\n\n"
fread(&Registro,sizeof(Registro),1,alias);
while(!feof(alias))
{
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
fread(&Registro,sizeof(Registro),1,alias)
}
fclose(alias)
Print "\n\r-----------------------------------------------------------------\n\n"
Print "\n\rFin del listado!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
menu() int
{
opcion int
Print "\n\n1)alta de producto"
Print "\n2)Consulta de producto"
Print "\n3)Listado de productos"
Print "\n4)Modificar datos de productos"
Print "\n5)Salida programa"
Print "\n\nSeleccioa opcion=?"
Read opcion
return opcion
}
funcion void MODIFICACION_SECUENCIAL(void)
{
no_prod int
clrscr()
Print "\n\rMODIFICACION DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb+")
if(alias==NULL)
{
Print "\n\n\n\r No existe el archivo!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
Print "\n\n\n\rNumeros de producto:" Read no_prod
fread(&Registro,sizeof(Registro),1,alias)
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\rNo prod descripcion Cantidad precio\n\n"
Print "\n\r--------------------------------------------\n\n"
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
Print "\n\n\n\rAnote los nuevos datos..."
Print "\n\rDescripcion:";gets(Registro.descrip)
Print "\n\rCantidad:"; cin>>Registro.cantidad
Print "\n\rprecio:"; cin>>Registro.precio
fseek(alias,ftell(alias)-sizeof(Registro),SEEK_SET)
fwrite(&Registro,sizeof(Registro),1,alias)
fclose(alias)
Print "\n\n\n\rRegistro modificado!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rNo se encuentra ese registro!!!"
fclose(alias)
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
main() int
{
opc int
do
{
clrscr()
opc=menu()
switch(opc)
{
case 1:
ALTA_SECUENCIAL()
break
case 2:
CONSULTA_SECUENCIAL()
break
case 3:
LISTADO_SECUENCIAL()
break
case 4:
MODIFICACION_SECUENCIAL()
break
case 5: Print "\n\nFinal programa"
break;
default: Print "\nError en opcion"
}
}
while(opc !=5)
Fin.
Problema 2.
Pseudocodigo:
Inicio.
registro producto
{
noProd int
descrip[30] char
precio real
cantidad int
}
producto Registro
FILE*alias
funcion void ALTA_SECUENCIAL()
{
no_prod int
clrscr()
Print "\n\rALTAS DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb+")
if(alias==NULL)
alias=fopen("c:\\Datos\\PRODCTO.SEC","wb")
Print "\n\n\n\rNumero de producto:" Read no_prod;
fread(&Registro,sizeof(Registro),1,alias)
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\n\n\rRegistro duplicado!!!"
fclose(alias)
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rDescripcion:" gets(Registro.descrip)
Print "\n\rCantidad:" Read Registro.cantidad
Print "\n\rPrecio:" Read Registro.precio
Registro.noProd=no_prod
fwrite(&Registro,sizeof(Registro),1,alias)
fclose(alias)
Print "\n\n\n\rProducto registrado!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar >>> "
}
Funcion void CONSULTA_SECUENCIAL(void)
{
no_prod int
clrscr()
Print "\n\rCONSULTA DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTOS.SEC","rb")
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
Print "\n\n\n\rNumero de producto:" Read no_prod;
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\rNo Prod Descripcion Cantidad precio"
Print "\n\r------------------------------------------------------------\n\n"
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
fclose(alias)
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rNo se encuentra ese registro !!!"
fclose(alias)
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
funcion void LISTADO_SECUENCIAL(void)
{
clrscr()
Print "\n\rLISTADO DE REGISTRO DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb")
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
Print "\n\rNo Prod Descripcion Cantidad Precio"
Print "\n\r------------------------------------------\n\n"
fread(&Registro,sizeof(Registro),1,alias);
while(!feof(alias))
{
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
fread(&Registro,sizeof(Registro),1,alias)
}
fclose(alias)
Print "\n\r-----------------------------------------------------------------\n\n"
Print "\n\rFin del listado!!!"
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
menu() int
{
opcion int
Print "\n\n1)alta de producto"
Print "\n2)Consulta de producto"
Print "\n3)Listado de productos"
Print "\n4)Modificar datos de productos"
Print "\n5)Salida programa"
Print "\n\nSeleccioa opcion=?"
Read opcion
return opcion
}
funcion void MODIFICACION_SECUENCIAL(void)
{
no_prod int
clrscr()
Print "\n\rMODIFICACION DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\Datos\\PRODUCTO.SEC","rb+")
if(alias==NULL)
{
Print "\n\n\n\r No existe el archivo!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
Print "\n\n\n\rNumeros de producto:" Read no_prod
fread(&Registro,sizeof(Registro),1,alias)
while(!feof(alias))
{
if(Registro.noProd==no_prod)
{
Print "\n\rNo prod descripcion Cantidad precio\n\n"
Print "\n\r--------------------------------------------\n\n"
Print Registro.noProd , setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) , Registro.precio
Print "\n\n\n\rAnote los nuevos datos..."
Print "\n\rDescripcion:";gets(Registro.descrip)
Print "\n\rCantidad:"; cin>>Registro.cantidad
Print "\n\rprecio:"; cin>>Registro.precio
fseek(alias,ftell(alias)-sizeof(Registro),SEEK_SET)
fwrite(&Registro,sizeof(Registro),1,alias)
fclose(alias)
Print "\n\n\n\rRegistro modificado!!!"
Print "\n\r<<< Oprima cualquier tecla para continuar>>>"
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rNo se encuentra ese registro!!!"
fclose(alias)
Print "\n\r<<<Oprima cualquier tecla para continuar>>>"
}
main() int
{
opc int
do
{
clrscr()
opc=menu()
switch(opc)
{
case 1:
ALTA_SECUENCIAL()
break
case 2:
CONSULTA_SECUENCIAL()
break
case 3:
LISTADO_SECUENCIAL()
break
case 4:
MODIFICACION_SECUENCIAL()
break
case 5: Print "\n\nFinal programa"
break;
default: Print "\nError en opcion"
}
}
while(opc !=5)
funcion void BAJA_LOGICA_SECUENCIAL(void)
{
no_prod int
op char
clrscr()
Print "\n\rBAJAS LOGICAS DE REGISTROS DE PRODUCTOS"
alias=fopen("c:\\datos\\PRODUCTO.SEC","rb+")
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo !!!"
Print "\n\r<<< Oprima cualquier tecla para continuar >>>"
}
Print "\n\n\n\rNumero de producto: " Rad no_prod
fread(&Registro,sizeof(Registro),1,alias)
{
if(Registro.noProd==no_prod)
{
Print "\n\rNo Prod Descripcion Cantidad Precio "
Print "\n\r---------------------------------------------------------------\n\n"
Print Registro.noProd<<setw(20) , Registro.descrip , setw(10) , Registro.cantidad , setw(10) . Registro.precio
Registro.noProd=0
strcpy(Registro.descrip,"")
Registro.cantidad=0
Registro.precio=0.0
do {
Print "\n\n\rEsta seguro que desea borrarlo? [S/N] ---> "
op=toupper(getche())
}while(op!='S' && op!='N')
if(op=='S')
{
fseek(alias,ftell(alias)-sizeof(Registro),SEEK_SET)
fwrite(&Registro,sizeof(Registro),1,alias);
Print "\n\n\n\rRegistro eliminado !!!"
}
fclose(alias)
Print "\n\r<<< Oprima cualquier tecla para continuar >>>"
}
fread(&Registro,sizeof(Registro),1,alias)
}
Print "\n\rNo se encuentra ese registro !!!"
fclose(alias)
Print "\n\r<<< Oprima cualquier tecla para continuar >>>"
}
funcion void BAJA_FISICA_SECUENCIAL(void)
{
FILE *temporal
clrscr()
Print "\n\rBAJAS FISICAS DE REGISTROS DE PRODUCTOS" alias=fopen("C:\\datos\\PRODUCTO.SEC","rb");
if(alias==NULL)
{
Print "\n\n\n\rNo existe el archivo !!!"
Print "\n\r<<< Oprima cualquier tecla para continuar >>>"
}
temporal=fopen("C:\\datos\\TEMPORAL.TMP","wb");
fread(&Registro,sizeof(Registro),1,alias)
while(!feof(alias))
{
if(Registro.noProd!=0)
fwrite(&Registro,sizeof(Registro),1,temporal)
fread(&Registro,sizeof(Registro),1,alias)
}
fcloseall()
remove("C:\\datos\\PRODUCTO.SEC")
rename("C:\\datos\\TEMPORAL.TMP","C:\\datos\\PRODUCTO.SEC")
Print "\n\n\n\rArchivo compactado !!!"
Print "\n\r<<< Oprima cualquier tecla para continuar >>>"
}
fin.
Problema 3.
Pseudocodigo:
Inicio
void agregar_datos_file()
{
ofstream salida
salida.open("C://Datos//grupo.txt",ios::app)
int j,calf
char name[30],sigue\
Int calif
do
{
print " Nombre = ? "
gets(name)
salida , name
for(j=1 j<=4 j++)
{
print "Calificacion " , j , " : "
read calf
salida , calf
}
print " Deseas Registrar otro alumno s/n ? "
read sigue
}
while(sigue=='s' || sigue=='S')
salida.close()
}
void listado_datos_file()
{
int i,suma=0,promedio
ifstream entrada
entrada.open("C://Datos//grupo.txt")
char nombre[30]
int c1
clrscr()
print "nombre alumno c1 c2 c3 c4 Promedio "
entrada.getline(nombre,30)
while(entrada.good())
{
print setw(20) , nombre
suma=0
for(i=1 i<=4 i++)
{
entrada>>c1
print setw(4) , c1
suma=suma + c1
}
promedio=suma/4
print setw(5) , promedio
entrada.ignore()
entrada.getline(nombre,30)
}
entrada.close()
}
void menu()
{
print "1)Agregar datos alumno "
print "2)Listado de alumnos "
print "3)Fin de programa "
print "Elige opcion ==> "
}
int main()
{
int opcion
do
{
clrscr()
menu()
read opcion
switch(opcion)
{
case 1: agregar_datos_file()break
case 2: listado_datos_file()
getch()
breaK
case 3: print " Fin del programa "
getch()
break
default: print "Error en opcion "
break
}
}
while(opcion !=3)
}
Fin.
b).
