Practica 7

PRACTICA 7

Problema 1

Pseudocodigo

inicio funcion cilindro (real, real, real&, real&)

cilindro ( a real,  b real, volumen real&, sup real&)

pi=3.1416   real

sup = 2*pi*a*b

volumen=pi*a*b*b

fin funcion cilindro

inicio programa

write "Programa para obtener volumen y area"

write "superficial de un cilindro"

l, r, vol, area   real

write "Largo del cilindro"

read l

write "radio del cilindro 

read r

cilindro (l,r,vol,area)

write "Volumen del cilindro = ",vol

write "Area superficial = ",area

fin programa

Codigo

Problema 2

Pseudocodigo

inicio funcion distancia (real, real, real, real, real&, real&, real&)

distancia (x1 real, y1 real, x2 real, y2 real, dis1 real&, dis2 real&, distotal real&)

dis1=sqrt(x1*x1 + y1*y1)

dis2 = sqrt(x2*x2 + y2*y2)

distotal = sqrt((x2-x)*(x2-x1)+(y2-y1)*(y2-y1))

fin funcion distancia

inicio programa

x1,x2,y1,y2, d1, d2, dt  real

write "coordenadas del punto 1 "

write "en x: "

read x1

write "en y: "

read y1

write "coordenadas del punto 2 "

write "en x: "

read x2

write "en y: "

read y2

distancia (x1,y1,x2,y2,d1,d2,dt)

write "Distancia del punto 1 al origen ",d1

write "Distancia del punto 2 al origen ",d2

write "Distancia entre los 2 puntos ",dt

fin programa

Codigo 

Problema 3
Pseudocodigo

inicio funcion polinomio (real, real, real, real&)

real polinomio(a real , b real , c real, d real&)

z real

z=a*d*d + b*d + c

return z  

fin funcion polinomio

inicio programa

a=0, b,c,x   real

write "Dado el polinomio  a(x^2) +bx + c"

write "Ingrese los siguientes valores"

while (a==0)

{

write "Valor de a (que sea mator a 0) : "

read a

if(a==0)

then

{

write "Error a es 0"

write "introduzca a de nuevo"

}

}

write "Valor de b: "

read b

write "Valor de c: "

read c

write "Valor de x: "

read x

write "El valor del polinomio es = ",polinomio(a,b,c,x)

fin programa

Codigo

Problema 4

Pseudocodigo

funcion entero (real, int&)

inicio funcion entero(a real, b int&)

b=a

fin funcion entero

inicio programa

i real

a int

write "introduzca un valor con punto decimal"

read i

entero(i,a)

write "El equivalente en entero = ",a

fin programa

Codigo

Problema 5

funcion tiempo (int, int&, int&, int&)

inicio funcion tiempo (s1 int, h int&, m int&, s2 int&)

h=s1/3600

m=(s1%3600)/60

s2=m=(s1%3600)%60

fin funcion tiempo

inicio programa

seg, h, m, s  int

write "Su tiempo en segundos: "

read seg

tiempo(seg,h,m,s)

write "Su tiempo en   horas   minutos  segundos "

write "              ",h,"  ",m,"      ",s

fin programa

Codigo

Problema 6

funcion encontrarmax(real, real, real, real&)

inicio funcion encontrarmax(a real, b real, c real, max real&)

if (a>b and a>=c)

max=a

else if (b>=a and b>=c)

max=b

else 

max=c

fin funcion encontrarmax

inicio programa

a,b,c,maximo  real

write "Valor maximo"

write "Ingrese 3 datos"

read a,b,c

encontrarmax (a,b,c,maximo)

write "El valor maximo es = ",maximo

fin programa

Codigo

Practica 6

PRACTICA 6

Problema 1

Pseudo codigo

inicio
funcion alcuadrado(valor real)
{
write "El cuadrado de ", valor," es =  ",(valor*valor)
}
fin de funcion alcuadrado

inicio programa
x real
write "Introduce valor con punto decimal: "
read x
alcuadrado(x)
fin

Codigo

PROBLEMA 2

Pseudocodigo

inicio
funcion par_non(x int)
{
if (x%2==0)
then
write x," es un numero par"
else
write x," es un numero impar"
}
fin funcion par_non

inicio programa
x int
write "Introduce un valor entero: "
read x
par_non(x)
fin programa

Codigo

PROBLEMA 3

Pseudocodigo

inicio
funcion tabla()
{
c int
write "Numero    Cuadrado    Cubo"
 for (c=1 to 10  step c=c+1)
 {
 write c,"  ",(c*c),"   ",(c*c*c)
 }
}
fin funcion tabla

inicio programa
tabla ()
fin programa

Codigo

PROBLEMA  4

Pseudocodigo

template <class T>
inicio funcion despliegue (T)
T despliegue (u T)
return u
fin funcion despliegue

inicio programa
a int
b real
c char
write "Introduzca un valor entero: "
read a
write "Introduzca un valor de doble precision: "
read b
write "Introduzca un caracter: "
read c
write "El valor entero es = ", despliegue(a)
write "El valor de doble precision es = ", despliegue (b)
write "El caracter es = ", despliegue (c)
fin programa

Codigo

PROBLEMA 5

pseudocodigo

template <class T>
inicio funcion maximo (T, T, T)
T maximo (a T, b T, c T)
if (a>b and a>=c)
then
return a
else if ( b>=a and b>=c)
return b
else
return c
fin funcion maximo

inicio programa
N1, N2, N3, R   int
X1, X2, X3   Real
write "Introduce 3 valores enteros: "
read N1, N2, N3
R=maximo(N1,N2,N3)
write "El valor maximo es = "
write "Introduce 3 valores con punto decimal: "
read X1, X2, X3
write "El valor maximo es = ",maximo(X1,X2,X3)
fin programa

Codigo

PROBLEMA 6

Pseudocodigo

inicio funcion vol_cin (real, real
real vol_cil (a real, b real)
c real
pi=3.1416 real
c=pi*a*a*b
return c
fin funcion vol_cil

inicio programa
r,l real
write "Radio de un cilindro: "
read r
write "Largo del cilindro: "
read l
write "El volumen del cilindro es = ", vol_cil(r,l)
fin programa

Codigo

PROBLEMA 7

Pseudocodigo

inicio  funcion areasup (real, real)
real areasup (a real, b real)
s real
pi=3.1416  real
s=2*pi*a*b
return s
fin funcion areasup

inicio programa
r, l  real
write "Radio del cilindro: "
read r
write "Largo del cilindro: "
read l
write "El area de la superficie del cilindro es = ",areasup(r,l)
fin programa

Codigo

PROBLEMA 8

Pseudocodigo

inicio funcion factorial(int)
int factorial (a int)
f=1,  b int
for (b=1 to a  step b=b+1)
{
f=f*b
}
return f
fin funcion factorial

inicio programa
a int
write "Ingrese un  numero: "
read a
write "El factorial del numero es = ",factorial(a)
fin programa

Codigo 

Practica 5

Problema 1
Inciso  (a)

Pseudocodigo

Inicio

i, cpar, cimpar, n, valor   int

cpar=0

cimpar=0

write "Introduzca cantidad de valores"

read n

for (i=1 to N, step i=i+1)

{

write "Introduzca un valor: "

read valor

if (valor%2==0)

then

cpar=cpar+1

else

cimpar=cimpar+1

}

write "Cantidad total de pares = ",cpar

write "Cantidad total de impares = ",cimpar

Fin

Codigo 

Inciso (b)

Pseudocodigo

Inicio

n,i,mayor, dato

i=1

write "Cuantos datos = "

read n

write "introduce un numero"

read mayor

i=i+1

while (i<=n)

{

write "Introduces un numero"

read dato

if (dato>mayor)

then 

mayor=dato

i=i+1

}

write "El dato mayor es = ", mayor

Fin

Codigo

Inciso (c)

Pseudocodigo

Inicio

n,i,menor, dato

i=1

write "Cuantos datos = "

read n

write "introduce un numero"

read menor

i=i+1

while (i<=n)

{

write "Introduces un numero"

read dato

if (dato<menor)

then 

menor=dato

i=i+1

}

write "El dato menor es = ", menor

Fin

Codigo

Inciso (d)

Pseudo codigo

Inicio

i, cant, suma, N, valor, prom   Real

cant=0

suma=0

write "Introduce cantidad de valores: "

read N

for (i=1 to N, step i=i+1)

{

write "Introduces un valor: "

read valor

cant= cant+1

suma = suma + valor

}

prom=suma/cant

write "Promedio final de valores = ", prom

Fin

Codigo

PROBLEMA 2

Diagramade flujo

Codigo

PROBLEMA 3

Pseudocodigo

Inicio

c, f1, f2, i  real

write "Introduzca valor inicial de grados farenheit "

read f1

write "Introduzca valor final de grados farenheit"

read f2

for (i=f1 to f2,  step i=i+1)

{

c=(5.0/9.0)*(i-32.0)

write "Farenheit = ", i,"  Celsius = ", c

}

Fin

Codigo

PROBLEMA 4

Pseudocodigo

Incio

f, c1, c2, i  real

write "Introduzca valor inicial de grados celsius "

read c1

write "Introduzca valor final de grados celsius"

read c2

for (i=c1 to c2,  step i=i+1)

{

f=(9.0/5.0)*i+32.0

write "Celsius = ", i,"  Farenheit = ", f

}

Fin

Codigo

PROBLEMA 5

Pseudocodigo

Inicio

a, s, n, sumaf  Real

a=1

n=0

sumaf=0

write "Serie Geometrica"

write "a + ar + a(r^2) + ... + a[r(n-1)]

while (n<10)

{

s=a * pow(0.5,n)

sumaf = sumaf + s

write "Termino ",(n-1), " = ", s

n=n+1

}

write "sumatoria  = ",sumaf

Fin

codigo

PROBLEMA 6

Diagrama de flujo

Codigo