PRIMITIVAS ALGORÍTMICAS.

EJERCICIO 3.7: CÁLCULO DEL ÁREA DE UN TRIÁNGULO.

INICIO

//Declaración de variables

areTri, i[0-n]

base, i[0-n]

altura, i[0-n]

//Inicialización de variables

areaTri<-0, base<-0, altura<-0

//Entrada de datos

<<"Ingresar el valor de la Base del triángulo."

base

<<"Ingresar el valor de la Altura del triángulo."

altura

//Proceso

area<-(base*altura/2)

//Salida

<<"El área del triángulo es:",

+area

Fin_proc

3.8: CÁLCULO DE LA LONGITUD DE UNA CIRCUNFERENCIA DE RADIO R.

INICIO

//Declaración de variables

radCir, d[0-n]

longCir, d[0-n]

π, d[0-n]

//Inicialización de variables

radCir<-0, longCir<-0, π<-3,1416

//Entrada de datos

<<"Ingresar el valor del radio de la circunferencia"

radCir

//Proceso

longCir<-2πradCir

//Salida

<<"La longitud de la circunferencia es igual a:",

+longCir

Fin_proc

3.9: CÁLCULO DEL VOLUMEN DE UN CONO

INICIO

//Declaración de variables

genera, d[0-n]

rad, d[0-n]

π, d[0-n]

alt, d[0-n]

volum, d[0-n]

//Inicialización de variables

genera<-0, rad<-0, π<-3,1416, alt<-0, volum<-0

//Entrada de datos

<<"Ingresar el valor de la generatriz del cono"

genera

<<"Ingresar el valor de la altura"

alt

<<"Ingresar el radio"

rad

//Proceso

alt<- √[genera² - rad² ]

volum<-(πrad²alt)/3

//Salida

<<"El volumen del cono es:",

+volum

Fin_proc

3.10: NÚMERO TOTAL DE CONEXCIONES ENTRE LOS SERVIDORES DE UNA RED

INICIO

//Declaración de variables

n, d[0-n]

c, d[0-n]

//Inicialización de variables

c<-0, n<-0

//Entrada de datos

<<"Ingresar el valor del Numero de servidores"

n

<<"Ingresar el valor de Numero total de conexión"

c

//Proceso

c<-n*(n-1)/2

//Salida

<<"Existe un número total de conexión:",

+c

Fin_proc

3.11: CÁLCULO DE LA RESISTENCIA TOTAL DE UN CIRCUITO EN PARALELO.

INICIO

//Declaración de variables

R1, d[0-n]

R2, d[0-n]

RT, d[0-n]

//Inicialización de variables

R1<-0, R2<-0, RT<-0

//Entrada de datos

<<"Ingresar el valor de la resistencia 1"

R1

<<"Ingresar el valor de la resistencia 2"

R2

//Proceso

RT<-1/((1/R1)+(1/R2)

//Salida

<<"Para un circuito con dos resistores:",

+R1, +R2,

<<"conectando en paralelo, la resistencia total es igual a:",

+RT

Fin_proc

3.13: ÁREA DEL TRAPECIO CIRCULAR

INICIO

//Declaración de variables

R, d[0-n]

rM, d[0-n]

ar<- D,[0-n]

π, d[0-n]

g, d[0-n] //Inicialización de variables

R<-0, rM<-0, π<-3,1416, ar<-0, g<-0

//Entrada de datos

<<"Ingresar el valor del radio mayor"

R

<<"Ingresar el valor del radio menor"

rM

<<"Ingresa el valor de la amplitud"

g

//Proceso

ar<-(π*(RrM-rMR)*g)/360

//Salida

<<"Para un trapecio de radio mayoy y de radio menor iguales a:",

+R, +rM

<<"Si el trapeci tiene una amplitud en grados de:",

+g

<<"El área del trapecio circulr es igual a:",

+ar Fin_proc

3.14: CÁLCULO DEL VALOR PRESENTE

INICIO

//Declaración de variables

c, d[0-n]

t, d[0-n]

n, d[0-n]

k, d[0-n]

VP, d[0-n]

//Inicialización de variables

c<-0, t<-7/100, n<-0, k<-0, VP<-0

//Entrada de datos

<<"Ingresar el valor del capital"

c

<<"Ingresar el valor de los números de años

k

//Proceso

VP<- c/(1+t)^k

//Salida

<<"El valor presente de la inversión es:",

+VP

Fin_proc

3.15: MÉTODO DE CIFRAMIENTO DEL CESAR.

INICIO

//Declaración de variables

d, d[0-n]

n, d[0-n]

c, d[0-n]

//Inicialización de variables

d<-0, n<-0, c<-3,1416

//Entrada de datos

<<"Ingresar el valor del dígitos a descifrar"

d

<<"Ingresar el valor del desplazamiento"

d

//Proceso

c<-(d+n)mod10

//Salida

<<"El dígito de entrada:",

+d

<<Cifrado con el método del César con un desplazamiento:",

+d

<<<"El dígito cifrado es igual a:",

+c

Fin_proc