CARRERA DE INGENIERÍA DE SISTEMAS
FACULTAD DE INGENIERÍA Y TECNOLOGÍA
UNIVERSIDAD AUTÓNOMA DEL BENI “JOSÉ BALLIVIÁN”
PROGRAMACIÓN I – CBP100 || Periodo: 1/2021 || ING. RAMIRO SALAZAR VELÁSQUEZ
1. Desarrollar el algoritmo principal y opciones a tres módulos sin paso de parámetros que
calculen: a) La hipotenusa de un triángulo rectángulo, b) El área de un triángulo.
Funcion Area <- calArea ( base, altura Por Valor )
Definir Area Como Real
Area <- (base * altura)/2
Fin Funcion
Funcion Hipotenusa <- calHip ( base, altura Por Valor )
Definir Hipotenusa Como Real
Hipotenusa <- rc(base^2 + altura^2)
Fin Funcion
//Paso I: Analisis del problema
//DE: b, h, a
//DS:Hipotenusa, Area
//Proceso:
// Hipotenusa = rc(base^2 + altura^2)
//Area = (base * altura)/2
//Paso II: Diseño del Algoritmo:
Algoritmo HipArea
Definir b, h, a, Hip Como Real
Mostrar "Introduzca la base del triangulo"
Leer b
Mostrar "introduzca la altura del triangulo"
Leer h
Hip<- calHip ( b, h)
Mostrar "La hipotenusa del triangulo es: ", Hip
a <- calArea ( b, h )
Mostrar "El area de el triangulo es: ", a
FinAlgoritmo
2. Desarrolle el algoritmo principal con opciones a cinco módulos sin paso de parámetros que
calcule las siguientes áreas: a) Círculo, b) Cuadrado, c) Rectángulo, d) Triángulo, e)
Trapecio.
Funcion AreaCirculo <- CalArCir ( radio )
Definir AreaCirculo Como Real
AreaCirculo <- 3.1416 * radio^2
Fin Funcion
Funcion AreaCuadrado <- CalArCuad ( Lado )
Definir AreaCuadrado Como Entero
AreaCuadrado <- Lado^2
Fin Funcion
Funcion AreaRectangulo <- CalArRec ( Base, Altura )
Definir AreaRectangulo Como Entero
AreaRectangulo <- Base * Altura
Fin Funcion
Funcion AreaTriangulo <- CalArTri ( Base, Altura )
Definir AreaTriangulo Como Entero
AreaTriangulo <- (Base * Altura) /2
Fin Funcion
Funcion AreaTrapecio <- calArTrap ( Base1, Base2, altura )
Definir AreaTrapecio Como Entero
AreaTrapecio <- (Base1+Base2)/2 * altura
Fin Funcion
//Paso I: Analisis del problema
//DE:r, l, b, h,b2,
//DS:Areas de: circulo, triangulo, rectangulo, cuadrado, trapecio.
//Proceso:
//AreaCirculo = 3.1416 * radio^2
//AreaCuadrado = Lado^2
//AreaRectangulo = Base * Altura
//AreaTrapecio = Base1+Base2)/2 * altura
//AreaTriangulo = Base * Altura) /2
//Paso II: Diseño del Algoritmo:
Algoritmo CalculodeAreas
Definir r, l, b, h, b2, a Como Real
Mostrar "ingrese el radio del circulo"
Leer r
a <-CalArCir( r )
Mostrar "El area del circulo es: ", a
Mostrar "ingrese el lado del cuadrado"
Leer l
a<-CalArCuad( l )
Mostrar "el area del cuadrado es: ", a
Mostrar "Ingrese la base y la altura del rectangulo"
Leer b
Leer h
a<-CalArRec ( b, h )
Mostrar "El area del rectangulo es: ", a
Mostrar "Ingrese base y altura del triangulo"
Leer b
Leer h
a<- CalArTri ( b, h )
Mostrar "El area del triangulo es: ", a
Mostrar "Ingrese bases y altura del trapecio"
Leer b
Leer b2
Leer h
a <-calArTrap ( b, b2, h )
Mostrar "El area del trapecio es: ", a
FinAlgoritmo
3. Desarrolle tres módulos con paso de parámetros para realizar: 1) área de un círculo, 2) área
de un aro, 3) volumen de un cilindro, utilizando la función área del círculo para resolver
los incisos 2) y 3). Realice el algoritmo principal con las tres opciones anteriores.
Funcion AreaCirculo <- CalArCir ( radio )
Definir AreaCirculo Como Real
AreaCirculo <- 3.1416 * radio^2
Fin Funcion
//Paso I: Analisis del problema
//DE:r, h
//DS:AreaCirculo, AreaAro, volumenCilindro
//Proceso:
//AreaCirculo = 3.1416 * radio^2
//Areaaro = 3.1416 * radio^2
//volumenCilindro = 3.1416 * radio^2*h
//Paso II: Diseño del Algoritmo:
Algoritmo areas
Definir r, h, a, v Como Real
Mostrar "ingrese el radio del circulo"
Leer r
a <-CalArCir( r )
Mostrar "El area del circulo es: ", a
Mostrar "Ingrese el radio del aro"
Leer r
a <- CalArCir ( r )
Mostrar "El area del aro es: ", a
Mostrar "Ingrese el radio y la altura del cilindro"
Leer r
Leer h
a <- CalArCir ( r )*h
Mostrar "El volumen del cilindro es: ", a
FinAlgoritmo
4. Sume dos vectores de 20 elementos como máximo y almacenar el resultado en un tercer
vector utilizando módulos con paso de parámetros.
//Paso I: Analisis del problema
//DE:Valores de vector1, valores de vector2
//DS:Suma de los vectores
//Proceso:
// vector3[1]<- vector[1] + vector2[1]
// vector3[2]<- vector[2] + vector2[2]
//Paso II: Diseño del Algoritmo:
Algoritmo sin_titulo
Definir i, cant Como Entero
Definir arr, arr2, arr3 Como Real
Dimension arr[20], arr2[20], arr3[20]
Mostrar "Cuantos elementos tendra el vector?"
Leer cant
Mostrar "Datos del primer vector"
Para i<-1 Hasta cant Con Paso 1 Hacer
Mostrar "Teclee vector[", i, "]: "
Leer arr[i]
Fin Para
Mostrar "Datos del segundo vector"
Para i<-1 Hasta cant Con Paso 1 Hacer
Mostrar "Teclee vector 2 [", i, "]: "
Leer arr2[i]
Fin Para
Para i<-1 Hasta cant Con Paso 1 Hacer
arr3[i]<- arr[i]+arr2[i]
FinPara
Para i<-1 Hasta cant Con Paso 1 Hacer
Mostrar "suma", i "=" arr3[i]
Fin Para
FinAlgoritmo
Desarrolle con tres funciones con paso de parámetros que realizan lo siguiente:
a) Encuentra el mayor entre tres números enteros
b) Calcula el promedio entre un conjunto de n números almacenados en un arreglo
c) Ordena el arreglo utilizando el método de burbuja
Funcion Burbuja <- burb ( arr1, i, cant )
Mostrar "Ordenando con el metodo burbuja tenemos: "
Para i=1 Hasta 4 Con Paso 1 Hacer
Para j<-1 Hasta 4 Con Paso 1 Hacer
Si arr1[j] > arr1[j+1] Entonces
temp = arr1[j]
arr1[j]<- arr1[j+1]
arr1[j+1]<- temp
Fin Si
Fin Para
Fin Para
Para i<- 1 Hasta 5 Con Paso 1 Hacer
Mostrar arr1[i]
Fin Para
Fin Funcion
Funcion Promedio <- prom ( arr1, i, promedio, cant )
promedio = 0
cant <- 5
Para i<-1 Hasta 5 Con Paso 1 Hacer
promedio <- promedio + arr1[i]
Fin Para
promedio <- promedio/cant
Fin Funcion
Funcion vmayor <- mayortres (a, b, c )
Definir vMayor Como Entero
vMayor <- a
Si b > vMayor Entonces
vMayor<- b
Fin Si
Si c > vMayor Entonces
vMayor<- c
Fin Si
Fin Funcion
//Paso I:Analisis del problema
//DE: n1, n2, n3, conjuntoN, arreglo
//DS: nMayor, Promedio de arreglo, orden del vector
//Proceso:
// vMayor = n1
//Si b > vMayor Entonces
// vMayor = b
//Si c > vMayor Entonces
//vMayor = c
//vector[1]=2 vector[2]=8 vector[3]=1
//orden vector : 2-8-1 1-2-8
//promedio de arreglo : vector[1]+vector[2]+vector[3]/3
Algoritmo MayPromBur
Definir n1, n2, n3, n, arr1, i,j Como Real
Dimension arr1[5],arr2[5]
Mostrar "ingrese tres numeros: "
Leer n1
Leer n2
Leer n3
Mostrar "Elementos del arreglo: "
Para i<-1 Hasta 5 Con Paso 1 Hacer
Mostrar "ingrese el numero ", i
leer arr1[i]
Fin Para
burbuja <- burb( arr1, i, cant )
Mostrar "El mayor de ( ", n1," , ", n2, ", ", n3 ") = ", mayortres(n1, n2, n3)
Mostrar "El promedio del arreglo es: ", prom( arr1, i, Porc, cant)
FinAlgoritmo
7. Leer un vector de enteros y un número entero x e imprimir la cantidad de:
a) veces que x aparece en el arreglo.
b) elementos menores a x en el arreglo.
c) elementos mayores a x en el arreglo.
//Paso I: Analisis del problema
//DE:arr[i], x, i
//DS:
// veces que x aparece en el arreglo.
// elementos menores a x en el arreglo.
// elementos mayores a x en el arreglo.
//Proceso:
//arr[i]]< x : mostrar los elementos arr[i] < x son: nMenones
//arr[i]]> x : mostrar Los elementos arr[i]> x son: nMayores
//arr[i]] = x : mostrar x se repite ....
//Paso II: Diseño del Algoritmo:
Algoritmo VectorMasX
Definir i, cant Como Entero
Definir arr Como Real
Dimension arr[20]
Mostrar "Cuantos elementos tendra el vector?"
Leer cant
Mostrar "ingrese el numero "
Leer x
Mostrar "Datos del primer vector"
Para i<-1 Hasta cant Con Paso 1 Hacer
Mostrar "Teclee vector[", i, "]: "
Leer arr[i]
Fin Para
Para i<-1 Hasta cant Con Paso 1 Hacer
Si x = arr[i] Entonces
repitio<- repitio + 1
Fin Si
Fin Para
Para i<-1 Hasta cant Con Paso 1 Hacer
Si x > arr[i] Entonces
nMenores<- nMenores + 1
Fin Si
Fin Para
Para i<-1 Hasta cant Con Paso 1 Hacer
Si x < arr[i] Entonces
nMayores<- nMayores + 1
Fin Si
Fin Para
Mostrar "El numero ", x " aparece ", repitio, " veces en el vector"
Mostrar "Los numeros menores a ", x " son ", nMenores
Mostrar "Los numeros mayores a ", x " son ", nMayores
FinAlgoritmo
9. Leer dos números enteros positivos y en un módulo calcular su producto mediante sumas
sucesivas.
Funcion Producto <- calProducto ( num1, num2, prod )
Si num1 > 0 Entonces
Mostrar num1 " Es entero positivo"
SiNo
Mostrar 'Error'
Fin Si
Si num2 > 0 Entonces
Mostrar num2 " Es entero positivo"
SiNo
Mostrar 'Error'
Fin Si
prod<-0
Para i<-1 Hasta num2 Con Paso 1 Hacer
prod<- prod+ num1
Fin Para
Mostrar "El producto de ",num1 " y ", num2 " es: " prod
Fin Funcion
//Paso I: Analisis del problema
//DE:num1, num2
//DS:Producto
//Proceso:
// 5 * 4 = 5 + 5 + 5 + 5 =20
//Paso II: Diseño del Algoritmo:
Algoritmo ProductoSumaSucesivas
Definir num1, num2, prod Como Entero
Mostrar "Introduzca el primer numero: "
Leer num1
Mostrar "Introduzca el segundo numero: "
Leer num2
prod<-calProducto ( num1, num2, prod )
FinAlgoritmo
14. Imprimir una flecha con asteriscos; utilizar dos funciones, una imprimirá el triángulo
y la otra el rectángulo. Preguntar la base del triángulo, la altura y ancho del rectángulo, por
ejemplo, si bas_triang = 5, h_rect = 5 4 y anc_rect = 5 3, se imprimirá:
Funcion bangtan <- bac ( triang )
Escribir "Ingrese un numero"
Leer h
Para i<-1 Hasta h Con Paso 1 Hacer
Para esp<-1 Hasta h-i Con Paso 1 Hacer
Escribir Sin Saltar " "
Fin Para
Para ast<-1 Hasta i Con Paso 1 Hacer
Escribir Sin Saltar " * "
Fin Para
Escribir " "
Fin Para
Fin Funcion
Funcion sonyeondan <- alt ( rect )
ancho <- 0
al <- 0
Escribir "Ingrese un numero"
Leer ancho
andh <- ancho
Escribir "Ingrese la altura"
Leer al
Mientras al>0 Hacer
ancho <- andh
Mientras ancho>0 Hacer
Escribir " *" Sin Saltar
ancho <- ancho-1
Fin Mientras
Escribir " "
al <- al-1
Fin Mientras
Fin Funcion
//Paso I: Analisis del problema
//DE: b, al, an
//DS: *
* *
* * *
**
**
**
Algoritmo ejerc14
Mostrar bac(triang)
Mostrar alt(rect)
