Practica 8 

Problema 5
Inicio Funcion guardar_datos
{
ofstream salida
salida.open("C://Datos//empleado.dat",ios::app)
nombre[20],categoria[1],fecha[12],otro = 's' char
numem int
phora Real
do
{
Write "Introduzca el nombre del empleado: "
Read nombre
if(nombre>0)
{
Write "Introduzca la categoria del empleado:  "
Read categoria
Write "Introduzca el numero de empleado:  "
Read numem
Write "Introduzca el pago por hora del empleado:  "
Read phora
Write "Introduzca la fecha de ingreso del empleado:  "
Read fecha
salida, nombre, " ", categoria, " ", numem, " ", phora, " ", fecha
}
else
Write "Nombre de empleado no valido"
Write "Desea hacer otro registro? (s/n)"
Read otro
}
while(otro == 's')
salida.close()
}
Fin función guardar_datos

Inicio Funcion desplegar_datos
{
ifstream salida2
salida2.open("C://Datos//empleado.dat")
data1[10],data2[10],data3[10],data4[10],data5[10] char
a3,a4 Real
do
{
salida2>>data1
salida2>>data2
salida2>>data3
a3=atoi(data3)
salida2>>data4
a4=atoi(data4)
salida2>>data5
Write setw(20), data1, setw(10), data2, setw(15), data3, setw(15), data4, setw(15), data5
}
while(!salida2.eof())
}
Fin funcion desplegar_datos
Inicio programa
{
guardar_datos()

Write " Nombre del empleado  Categoria   Num Empleado   Pago p. hora   Fecha de entrada"
desplegar_datos()

}


Fin programa

Problema 7
Pseudocódigo

Inicio Programa
leer()
desplegar()
Fin Programa

Inicio funcion leer
{
ofstream salida
salida.open("C:/Datos/Nomina.txt",ios::app)
sigue,nombre[30],nss[11] char
horastrab int
tarifa real
do
{
write "Nombre: "
gets(nombre)
write salida,nombre
write "Numero de seguro social: "
gets(nss)
write salida,nss
write "Tarifa por hora: "
read tarifa
write salida,tarifa
write "Horas trabajadas: "
read horastrab
write salida,horastrab
write "Desea agregar otro? s/n: "
read sigue
}
while(sigue=='s')
}
Fin funcion leer

Inicio funcion desplegar

{

ifstream salida2

salida2.open("C://Datos//nomina.txt")

nombre[10],nss[10],tph[10],h[10] char

horas int

tarifa,pago real

write "NSS","Nombre","Pago"

do

{

salida2>>nombre

salida2>>nss

salida2>>tph

tarifa=atoi(tph)

salida2>>h

horas=atoi(h)

pago=tarifa*horas

write nss,nombre,pago

}

while(!salida2.eof())

getch()

}

Fin funcion desplegar

Problema 8

Pseudocodigo

INICIO PROGRAMA
{
void lectura();
write "Numero de auto           Millas recorridas     Galones     Millas por galon"
void escritura();
}
FIN PROGRAMA

INICIO FUNCION LECTURA
{
ofstream salida;
salida.open("C://Datos//autos.txt")
numau,mill,gal int
otro = ‘s’  char
do
{
write "Numero de auto : "
read numau
if(numau>0)
{
write "Introduce las millas recorridas"
read mill
write "Introduce los galones utilizados"
read gal
salida, numau, " ", mil, " ", gal
}
else
write "Numero de auto no valido"
write "Deseas otro registro? (s/n)"
read otro
}
while(otro == 's')
salida.close();
write "Fin de registro"
}
FIN FUNCION LECTURA

INICIO FUNCION ESCRITURA
{
ifstream salida2
salida2.open("C://Datos//autos.txt")
data1[10],data2[10],data3[10]  char
a1,a2,a3,a4,i1=0,i2=0,i3=0,i=0,r  real
salida2>>data1
do
{
a1=atoi(data1)
salida2>>data2
a2=atoi(data2)
salida2>>data3
a3=atoi(data3)
a4=a2/a3
write a1, a2, a3, a4
salida2>>data1
i= i+1
i1= i1 + a2
i2= i2 + a3
i3= i3 + a4
}
while(!salida2.eof());
r=i3/i
write "             REPORTE               "
write "Las millas recorridas totales son :", i1
write "Los galones utilizados totales son :", i2
write "El promedio de las millas por galon es de :”, r
}

FIN FUNCION ESCRITURA

Problema 9

Pseudocodigo

INICIO PROGRAMA

{

void lectura();

write "Numero de parte      Balance actual”

void escritura();

}

FIN PROGRAMA

INICIO FUNCION LECTURA

{

ofstream salida;

salida.open("C://Datos//reporte.txt")

parte,cinicial ,cvendida,cminima    char

otro = ‘s’  char

do

{

write "Numero de parte : "

read parte

if(parte>0)

{

write "Introduce la cantidad inicial"

read cinicial;

write "Introduce la cantidad vendida"

read cvendida;

write "Introduce la cantidad minima"

read cminima

salida parte, cinicial, cvendida, cminima

}

else

write "Numero de auto no valido"

write "Deseas otro registro? (s/n)"

read otro

}

while(otro == 's')

salida.close();

write "Fin de registro"

}

FIN FUNCION LECTURA

INICIO FUNCION ESCRITURA

{

ifstream salida2

salida2.open("C://Datos//reporte.txt")

data1[10],data2[10],data3[10],data4[10] char

a2,a3,a4,balance  real

i=0  entero

salida2>>data1

do

{

salida2>>data;

a2=atoi(data2)

salida2>>data3

a3=atoi(data3)

salida2>>data4

a4=atoi(data4)

balance = a2-a3;

write setw(7)<<data1<<setw(25)<<balance

salida2>>data1

i=i+a4

}

while(!salida2.eof())

write "La cantidad que es necesaria para tener el inventario en minimo es :"

write i

}

FIN FUNCION ESCRITURA