miércoles, 6 de noviembre de 2013

Practica 5

Problema 1



Pseudocodigo

a,b,f int
write"Este programa calculara el factorial del numero entero que ingrese"
write"Porfavor ingrese su numero"
read a
f=1
for(b=1 to b<=a step b+1)
{
f=b*f
}

write"El factorial de", a "es", f






Problema 2 
(while)



                      
Problema 2 
(do-while)



Pseudocodigo
suma, i real
suma=0
i=2
write" Este programa calculara la suma de cada tercer entero desde 2 hasta 100"
do
{
suma=suma+i
write"i: "
i=i+3
}
while(i<=100)
write"La suma de la serie es=", suma



Problema 3




Pseudocodigo
indicador int
repetir char
repetir= r
while(repetir==r)
{
write"Valor del indicador: "
read indicador
switch (indicador)
case 1:
write"CALOR"
case 2:
write"TEMPLADO"
case 3:
write"FRIO"
default:
write" Fuera de rango"
}
repetir=r



Problema 4





Problema 5


Pseudocodigo
i,n,suma;
write" Dame n:"
read n
suma=0
for (i=1 to i<=n step i=i+1 )
suma=suma+(2*i-1);
write"La suma de los",n "primeros numeros impares es:",suma




Problema 6a





Problema 6b


Pseudocodigo
f,i,cc,uc int
c real
write " ''Converciones de grados farenheit a grados celsius''"
write"Converciones: "
read cc
write" Grados Farenheit iniciales: "
read f
write"Incrememnto de grados farenheit en cada conversion : "
read i
uc=f+(cc**i)
while(f<uc)
{
c=(5/9)*(f-32)
write f,c
f=f+i

}





Problema 7 

                     Pseudocodigo
n,fib1, fib2, fib3,i int
fib2=0
fib3=1
write"''Secuencia Fibonacci''"
write" Cuantos numeros tendra la serie?"
read n
n=n-2
write"Su serie fibonacci es:"
write fib 2",", fib3
for(i=1 to i<=n step i=i+1 )
{
fib 1=fib2+fib3
write fib1
fib2=fib3
fib3=fib1
}





Problema 8a


   Pseudocodigo
y,x real
write"Y=4x^5 - 2x^3 + x "
write" X:    Y: "

for( x=1 to x<=5 step x=x+0.10)
{
y=4x^5 - 2x^3 + x 
write  x,  y
}






Problema 8b


Pseudocodigo
x,y double precicion
write" Y= x + x^2 /3 + x^3 /4 + x^4 /5 + x^5 /6"
write" X:    Y: "

for(x=2 to x<=5 step x=x+0.5)
{
y= x + x^2 /3 + x^3 /4 + x^4 /5 + x^5 /6
write  x,  y

}





Problema 8c


Pseudocodigo



e,t,y double precicion
e=2.7182
write" t:    y: "

for(t=10 to t<=15 step t=t+0.2)
{
y=4e^(0.02*t)
write t  , y 


No hay comentarios:

Publicar un comentario