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