Practica 8 Unidad 2

Problema 1 

Programa para calcular el valor de sen x 

Inicio
senx = 0.0, f = 1.0, x = 0.0 Real
n = 0, c1 = 0, c2 = 0, c3 = 1 Int
Print "Numero de terminos de la serie seno x = "
Read n
Print "Valor de x en radianes "
Read x
for ( c1=1; c1<=n; c1++ )
{  f = 1.0
   for ( c2 = c3; c2>=1; c2=c2 - 1 )
{  f = f * c2
}  if ( c1 %2 == 0 )
{  senx = senx - ( pow ( x, c3) ) / f
}  else
{  senx = senx + ( pow ( x, c3) ) / f
}  c3 = c3 + 2
}  Print "Seno", x, "=",senx
Fin

Problema 2 

Programa para calcular el interes y total de pago de un prestamo 

Inicio
prestamo= 0.0, pagomes= 0.0, interes= 0.0, pagoint= 0.0, totalinteres= 0.0 Real
numpagos= 0 Int
Print "Introduce la cantidad del prestamo= "
Read prestamo
Print "Introduce el pago mensual= "
Read pagomes
Print "Introduce el interes mensual= "
Read interes
Print "No. pago  Prestamo  Pago mensual  Interes mensual  Interes acumulado"
Print " /t /t", prestamo
while ( prestamo > 0 )
{  pagoint = prestamo * ( interes / 100.0 )
numpagos = numpagos + 1
totalinteres = totalinteres + pagoint
prestamo = prestamo + pagomes
Print numpagos, "/t/t", prestamo, "/t/t", pagoint, "/t/t", totalinteres
Print " Totales ", "/t", pagosmes * numpagos, "/t", ( pagomes * numpagos + totalinteres )
Fin

Problema 3

Programa para calcular media armonica y geometrica 

Inicio
numero= 0.0, mediaarm= 0.0, mediag= 1.0 Real
c1= 1 Int
Print "Numero= "
Read numero
while ( numero != 999 )
{  mediaarm = mediaarm + 1.0 / numero
    mediag = mediag * numero
    c1 = c1 + 1
    Print "Numero= "
    Read numero
}
Print "Media geometrica= ", pow ( mediag, 1.0 / c1 )
Print " Media armonica= ", c1 / mediaarm
Fin

Problema 4 

Programa para calcular limite de dinero de un nino 

Inicio
edad= 12, dinero= 10, total= 10 Int
Print "Edad   Obsequio "
Print "  12          10 "
while ( dinero <= 1000 )
{  edad = edad = 1
    dinero = dinero * 2
    total = total + dinero
    Print edad, "     ", dinero
}
Print "Total recibido es: ", total
Fin