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