Practica 8

Problema 1.

1.Inicio.
N int
P int
C int
Print " Cantidad de Potencia de 2 = "
read N
for (C=1 to N step C++)
{
Print " 2 ^ ",C,"=",pow(2,C)
P= pow (2,C)
Print "P"
}
2.Final

Problema 2.

1.Inicio

x, F, fact int

L=5 float

P float

Print "cliente Probabilidad de Poisson"

for(x=1 to 20 step x=x+1)

{

fact=1

for(F=x to 1 step F=F-1)

{

fact=fact*F

}

P=pow(L,x)*exp(-1)/fact

Print x, " " , P

}

2.Final.

Problema 3.

1.Inicio.
serie=0, n, conta,termino int
Print "Numeros de terminos de la serie"read n
for(conta=1 to n step conta++){termino=2*conta
Print termino
if(conta==n){Print "="}
else {Print "+"}serie=serie + termino}
Print serie,serie
2.Final

Problema 4.

1.Inicio
X, Y ,T  float
Print " X "
for (X=2to 8 step X=X+0.2){Y=4 * pow (X,3)-3* pow(X,2)-5
Print X ," \t " ,Y}
Print "\nX              Y "
for(X=1 to 5 step X=X+0.5){Y=X+pow(X,2)/6+pow(X,4)/24
Print X ," \t " , Y}
Print "\n T               Y"
for (T=2 to 4 step T=T+0.1){Y=4*exp(0.2*T)
Print T ,"\t " , Y}
2.Final

Problema 5.

1.Inicio
x, y, v, t float
ang=((33.5*3.1416)/180.0) float
Print "x      \t         y"
for(t=1.0;t<=20.0;t=t+0.5)
{x=v*t*cos(ang)y=v*t*sin(ang)
Print x , "\t" , y}
2.Final.

Problema 6.

1.Inicio
x int
Print "x \t x^2 \t x^3"
for(x=1to 15 step x=x+2)
{
Print x , "\t" , (x*x) , "\t" , (x*x*x)}
2.Final.

Problema 7.

1.Inicio.
vi,vf,fah,celsius,kelvin float
Print "valor inicial temperatura celsius: "read vi
Print "valor final temperatura celsius: "read vf
Print "celsius fahrenheit  kelvin"
for(celsius=vi to vf spet celsius=celsius+1){fah=(9.0/5.0)*(celsius+32.0)kelvin=celsius+273.15
Print  celsius , "  \t  " , fah , "\t\t" ,  kelvin}
2.Final.