Estudiante: Leslie Rodríguez Gomez
No. Control: 20691200
Ingeniería Industrial
Materia: Algoritmos Y Lenguajes De Programación
Unidad II
Docente: Mtro. Javier E. Acuña
Tema: PRÁCTICAS
Cananea, Sonora marzo de 2023
Algoritmo AREATRIANGULO
Escribir "Algoritmo área de un triángulo"
Escribir "******************************"
Escribir "Captura la base"
Leer Base
Escribir "Captura la altura"
Leer Altura
Área<-(Base*Altura)/2
Escribir "El área del triángulo es: ", Área
FinAlgoritmo
Algoritmo Areadeuncirculo
Escribir "ALGORITMO AREA DE UN CIRCULO"
Escribir "CAPTURA EL VALOR DEL RADIO"
Leer RADIO
//AREA<-(3.1416*RADIO*RADIO)
AREA<-PI*RADIO^2
Escribir "EL AREA DEL CIRCULO ES: " , AREA
FinAlgoritmo
Algoritmo STATUSNUMERO
Escribir "VERIFICAR SI UN NUMERO ES POSITIVO, NEGATIVO O CERO"
Escribir "CAPTURA UN NUMERO"
Leer NUM
Si NUM < 0 Entonces
Escribir "EL NUMERO ES NEGATIVO"
SiNo
Si NUM > 0 Entonces
Escribir "EL NUMERO ES POSITIVO"
SiNo
Escribir "EL NUMERO ES CERO"
Fin Si
Fin Si
FinAlgoritmo
Algoritmo RANGONUMERO
Escribir "VERIFICAR SI UN NUMERO SE ENCUENTRA ENTRE -5 Y 5"
Escribir "CAPTURA UN NUMERO"
Leer NUM
Si (NUM >=-5) Y (NUM <= 5) Entonces
Escribir "EL NUMERO SI SE ENCUENTRA ENTRE -5 Y 5"
SiNo
Escribir "EL NUMERO NO SE ENCUENTRA ENTRE -5 Y 5"
Fin Si
FinAlgoritmo
Algoritmo MENUCOMIDA
Escribir "*** MENU DE COMIDA ***"
Escribir "1) HAMBURGUESA CON PAPAS Y SODA"
Escribir "2) POLLO CON PAPAS Y SODA"
Escribir "3) 3 MARIHUANAS Y SODA"
Escribir "4) 4 TACOS Y SODA"
Escribir "CAPTURA UNA OPCION DE MENU"
Leer OPC
Segun OPC Hacer
1:
Escribir "**SELECCIONÓ HAMBURGUESA CON PAPAS Y SODA**"
2:
Escribir "**SELECCIONÓ POLLO CON PAPAS Y SODA**"
3:
Escribir "**SELECCIONÓ 3 MARIHUANAS Y SODA**"
4:
Escribir "**SELECCIONÓ 4 TACOS Y SODA**"
De Otro Modo:
Escribir "LA OPCION NO EXISTE, FAVOR DE VER MENU DE NUEVO"
Fin Segun
FinAlgoritmo
Algoritmo MENUOPERACIONES
Escribir "*** MENU DE OPERACIONES ***"
Escribir "10) SUMA LOS NUMEROS"
Escribir "20) RESTA LOS NUMEROS"
Escribir "30) DIVIDE LOS NUMEROS"
Escribir "40) MULTIPLICA LOS NUMEROS"
Escribir "CAPTURA UNA OPCION DEL MENU"
Leer OPC
Escribir "CAPTURA UN NUMERO"
Leer NUM1
Escribir "CAPTURA OTRO NUMERO"
Leer NUM2
Segun OPC Hacer
10:
SUMA<-NUM1+NUM2
Escribir "LA SUMA ES: ", SUMA
20:
RESTA<-NUM1-NUM2
Escribir "LA RESTA ES: ", RESTA
30:
DIVISION<-NUM1/NUM2
Escribir "LA DIVISION ES: ", DIVISION
40:
MULTIPLICACION<-NUM1*NUM2
Escribir "LA MULTIPLICACION ES: ", MULTIPLICACION
De Otro Modo:
Escribir "OPCION INVALIDA, FAVOR DE VER EL MENU"
Fin Segun
FinAlgoritmo
Algoritmo MENUPOTENCIAS
Escribir "MENU DE POTENCIAS"
Escribir "1) POTENCIA CUADRADA DE UN NUMERO"
Escribir "2) POTENCIA CÚBICA DE UN NUMERO"
Escribir "3) POTENCIA CUARTA DE UN NUMERO"
Escribir "4) POTENCIA QUINTA DE UN NUMERO"
Escribir "5) RAIZ CUADRADA DE UN NUMERO"
Escribir "CAPTURA UNA OPCION DEL MENU"
Leer OPC
Escribir "CAPTURA UN NUMERO"
Leer NUM
Segun OPC Hacer
1:
POTENCIACUADRADA<-NUM^2
Escribir "EL RESULTADO ES:" , POTENCIACUADRADA
2:
POTENCIACUBICA<-NUM^3
Escribir "EL RESULTADO ES:" , POTENCIACUBICA
3:
POTENCIACUARTA<-NUM^4
Escribir "EL RESULTADO ES:" , POTENCIACUARTA
4:
POTENCIAQUINTA<-NUM^5
Escribir "EL RESULTADO ES:" , POTENCIAQUINTA
5:
RAIZCUADRADA<-raiz(NUM)
Escribir "EL RESULTADO ES:" , RAIZCUADRADA
De Otro Modo:
Escribir "LA OPCION NO EXISTE, FAVOR DE VER EL MENÚ DE NUEVO"
Fin Segun
FinAlgoritmo
Algoritmo RANGONUMERO
Escribir "VERIFICAR SI UN NUMERO SE ENCUENTRA ENTRE -5 Y 5"
Escribir "CAPTURA UN NUMERO"
Leer NUM
Si (NUM >=-5) Y (NUM <= 5) Entonces
Escribir "EL NUMERO SI SE ENCUENTRA ENTRE -5 Y 5"
SiNo
Escribir "EL NUMERO NO SE ENCUENTRA ENTRE -5 Y 5"
Fin Si
FinAlgoritmo
Algoritmo FORMULA
Escribir "W = (M*N)/0.35"
Escribir "CAPTURA EL PRIMER NUMERO"
Leer M
Escribir "CAPTURA EL SEGUNDO NUMERO"
Leer N
W<-(M*N)/0.35
Si W>10 Entonces
RESULTADO<-W+100
SiNo
RESULTADO<-W+5
Fin Si
Escribir "W =", RESULTADO
FinAlgoritmo
Algoritmo MENUCONVERSIONES
Escribir "1) CONVERTIR DE PIES A METROS"
Escribir "2) CONVERTIR DE METROS A PIES"
Escribir "3) CONVERTIR DE PULGADAS A METROS"
Escribir "4) CONVERTIR DE METROS A PULGADAS"
Escribir "SELECCIONE LA OPCION QUE DESEE"
Leer OPC
Segun OPC Hacer
1:
Escribir "CAPTURAR NUMERO DE PIES"
Leer PIES
METROS<-PIES*0.3048
Escribir "EL RESULTADO ES: ", METROS
2:
Escribir "CAPTURAR NUMERO DE METROS"
Leer METROS
PIES<-METROS/0.3048
Escribir "EL RESULTADO ES: ", PIES
3:
Escribir "CAPTURAR NUMERO DE PULGADAS"
Leer PULGADAS
METROS<-PULGADAS*0.0254
Escribir "EL RESULTADO ES: ", METROS
4:
Escribir "CAPTURAR NUMERO DE METROS"
Leer METROS
PULGADAS<-METROS/0.0254
Escribir "EL RESULTADO ES: ", PULGADAS
De Otro Modo:
Escribir "OPCION INVALIDA, SELECCIONAR OTRA OPCION DE MENU"
Fin Segun
FinAlgoritmo
Algoritmo MOSTRARPRIMEROS10MUN
Escribir "PRIMEROS 10 NUMEROS"
Para CONTADOR<-1 Hasta 10 Con Paso 1 Hacer
Escribir CONTADOR
Fin Para
FinAlgoritmo
Algoritmo MOSTRARDE10AL1
Escribir "NUMEROS DEL 10 AL 1"
Para L<-10 Hasta 1 Con Paso -1 Hacer
Escribir L
Fin Para
FinAlgoritmo
Algoritmo SUMADENNUMEROS
Escribir "SUMA N NUMEROS"
Escribir "¿CUANTOS NUMEROS QUIERES SUMAR?"
Leer N
Para L<-1 Hasta N Con Paso 1 Hacer
Escribir "CAPTURA UN NUMERO"
Leer NUMERO
SUMA<-SUMA+NUMERO
Fin Para
Escribir "LA SUMA TOTAL ES: " , SUMA
FinAlgoritmo
Algoritmo FACTORIALDEUNNUMERO
Escribir "CALCULAR EL FACTORIAL DE UN NUMERO"
Escribir "CAPTURA EL NUMERO"
Leer N
FACTORIAL<-1
Para L<-N Hasta 1 Con Paso -1 Hacer
FACTORIAL<-FACTORIAL*L
Fin Para
Escribir FACTORIAL
FinAlgoritmo
Algoritmo PROMEDIONCALIFICACIONES
Escribir 'PROMEDIO N CALIFICACIONES'
Escribir '¿CUÁNTAS CALIFICACIONES?'
Leer N
Para L<-1 Hasta N Hacer
Escribir 'CAPTURA LA CALIFICACION'
Leer CALIFICACION
SUMA <- SUMA+CALIFICACION
FinPara
PROMEDIO <- SUMA/N
Escribir 'EL PROMEDIO ES: ',PROMEDIO
FinAlgoritmo
Algoritmo SUMARPRIMEROS5NUMEROSPARES
Escribir "SUMA LOS PRIMEROS 5 NUMEROS PARES"
Para L<-2 Hasta 10 Con Paso 2 Hacer
SUMA<-SUMA+L
Fin Para
Escribir "LA SUMA ES: " , SUMA
FinAlgoritmo
Algoritmo PRECIOS
Escribir "TOTAL A PAGAR DE N PRODUCTOS"
Escribir "¿CUÁNTOS PRECIOS DESEAS SUMAR?"
Leer N
Para L<-1 Hasta N Con Paso 1 Hacer
Escribir "CAPTURA EL PRECIO"
Leer PRECIO
SUMA<-SUMA+PRECIO
Fin Para
Escribir "EL SUBTOTAL ES: " , SUMA
Si SUMA>1000 Entonces
Escribir “SE REALIZA UN DESCUENTO DEL 10%”
DESCUENTO<-SUMA-(SUMA*0.10)
Escribir "EL PRECIO FINAL CON DESCUENTO ES DE: " , DESCUENTO
SiNo
Escribir “SIN DESCUENTO, PUESTO QUE NO ES MAYOR A $1000”
Escribir "EL PRECIO FINAL ES: " , SUMA
Fin Si
FinAlgoritmo
