Practica 8 (problemas).

Problema1.

Escribir un programa que lea el valor de X y calcule su Seno. Escribir un programa para sumar los primeros n términos, en donde n es un entero positivo que se introduce ademas del valor de X.

P-seudo codigo.

1.- Inicio

Real T=1.0,x=0.0,total=0.0
INT N=0,c1=0,c2=0,c3=1;
Print "Numero de terminos de la serie= "
Read N
Print "Valor de X en radianes= "
Read x
for(c1=1 to N step c++)
{T=1.0
for(c2=c2 to 1 step c2--)
{T=T*c2
if(c1%2=0)
{total=total-(pow(x,c3))/T}
else
{total=total+(pow(x,c3))/T}
c3=c3+2}
Print "Sen", x, "= ", total
Fin.

Problema 2.

Escribir un programa que determine la siguiente información

1) la cantidad a de interés pagada por mes.

2)La cantidad de dinero aplicado ala reducción de la deuda del total cada mes.

3) La cantidad total de intereses que se lleva pagada a final de cada mes.

4) La cantidad de deuda no pagada al final de cada mes.

5) El numero de pagos mensuales necesarios para devolver el préstamo.

6)La cuatia del ultimo pago.

P-seudo codigo.

1.- Inicio

prestamo=0.0,pagomes=0.0,interes=0.0,pagoint=0.0,totalint=0.0 Real
numpagos=0 INT
Print "Introduce la cantidad del prestamo= "
Read Prestam
Print "Introduce el pago mensual= "
Read pagomes
Print "Introduce el interes mensual= "
Read interes
Print endl
Print "| No.Pago| Prestamo| Pago Mensual | Interes Mensual | Interes acomulado |"
Print setw(17), prestamo ,setw(12), pagomes
while(prestamo>0)
{pagoint=prestamo*(interes/100.0)
numpagos=numpagos+1
totalint=totalint+pagoint
prestamo=prestamo-pagomes
Print setw(5), numpagos ,setw(12), prestamo ,setw(27), pagoint ,setw(21), totalint}
Fin.

Problema 3.

Escribir un programa que calcule el promedio aritmético de un conjunto de numeros mediante la media geométrica y la media armónica.

P-seudo codigo.

1.- Inicio

numero=0.0,mediaarm=0.0,mediag=1.0 Real
c1=0 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

Escribir un programa para determinar que edad tendrá el niño cuando le den la ultima cantidad e dinero y el total resivido si su padres pretenden darle 10 dolares hasta cuando cumpla 12 años cada años.

Pseudo codigo.

1.- Inicio

edad=12,dinero=10,total=10 INT
Print "Edad= 12 anios"
Print "Cantidad de dinero= 10 dolares"
while(dinero<=1000)
{edad=edad+1
dinero=dinero*2
total=total+dinero
Print "Edad= ", edad
Print "Cantidad recibida= ", dinero}
Print endl
Print "El total recibido es= ", total
Fin.