Algoritmo 1_ SALUDO
Algoritmo SALUDO
Definir nombre Como Caracter
Escribir "BIENVENIDO"
Escribir ""
Escribir "******Escribe tu nombre******"
Leer nombre
Escribir ""
Escribir "HOLA", nombre
FinAlgoritmo
Diagrama de flujo
Algoritmo 2_ ÁREA_DE_UN_TRIÁNGULO
Algoritmo AREA_TRIANGULO
Definir b, h, area Como Real
Escribir "ingrese el valor de la base:"
Leer b
Escribir "Ingrese el valor de la altura del triángulo:"
Leer h
area<-b*h
Escribir "El área del triángulo es:", area
FinAlgoritmo
Diagrama de flujo
Algoritmo 3_ METROS_A_CENTIMETROS
Algoritmo MTROS_A_CENTIMETROS
Definir m, cm Como Real
Escribir "Ingrese la cantidad de metros: "
Leer m
cm <- m * 100
Escribir "La cantidad en centímetros es: ", cm
FinAlgoritmo
Diagrama de flujo
Algoritmo 4 MULTIPLICAR_TRES_NUMEROS
Algoritmo MUTIPLICAR_TRES_NUEMROS
Definir a, b, c, resul Como Real
Escribir "Ingrese el primer número: "
Leer a
Escribir "Ingrese el segundo número: "
Leer b
Escribir "Ingrese el tercer número: "
Leer c
resul <- a * b * c
Escribir "El resultado de la multiplicación es: ", resul
FinAlgoritmo
Diagrama de flujo
Algoritmo 5_POTENCIA
Algoritmo POTENCIA
Definir base, expo, resul Como Real
Escribir "Ingrese la base de la potencia: "
Leer base
Escribir "Ingrese el exponente: "
Leer expo
resul <- base ^ expo
Escribir "El resultado de ", base, " elevado a la ", expo, " es: ", resul
FinAlgoritmo
Diagrama de flujo
Algoritmo 6_DETERMINAR_SI_UN_NUMERO_ES_PAR
Algoritmo NUMERO_PAR
Definir num Como Entero
Escribir "Ingrese un número"
Leer num
Si num % 2 = 0 Entonces
Escribir "El número que ingresó el usuario ", num, " es par"
SiNo
Escribir "El número que ingresó el usuario ", num, " es impar"
Fin Si
FinAlgoritmo
Diagrama de flujo
Algoritmo 7_RAÍZ_CUADRADA
Algoritmo RAIZ_CUADRADA
Definir num Como Entero
Definir resul Como Real
Escribir "Ingrese el número"
Leer num
Si num >=0 Entonces
resul <-raiz(num)
Escribir "Elresultado es: ", resul
SiNo
Escribir "El número no puede ser negativo"
Fin Si
FinAlgoritmo
Diagrama de flujo
Algoritmo 8_DESCUENTO
Algoritmo DESCUENTO
Definir cost, desc, pp Como Real
Escribir "Ingrese el valor de la compra:"
Leer cost
Si cost>=200 y cost<=350 Entonces
desc<-cost*0.008
pp<-cost-desc
Escribir "El descuento es:", desc
Escribir "El valor a pagar es:", pp
SiNo
Si cost>350 y cost<=500 Entonces
desc<-cost*0.18
pp<-cost-desc
Escribir "El descuento es:", desc
Escribir "El valor a pagar es:", pp
SiNo
Si cost>500 Entonces
desc<-cost*0.25
pp<-cost-desc
Escribir "El descuento es:", desc
Escribir "El valor a pagar es:", pp
SiNo
Escribir"No hay descuento"
Escribir "El valor a apagar es:", cost
Fin Si
Fin Si
Fin Si
Diagrama de flujo
Algoritmo 9_CALCULADORA_BASICA
Algoritmo CALCULADORA_BASICA
definir a, b, resul Como Real
Definir op Como Entero
Escribir ""
Escribir "Digite 1 para sumar dos números:"
Escribir "Digite 2 para restar dos números:"
Escribir "Digite 3 para multiplicar dos números:"
Escribir "Digite 4 para dividir dos números:"
Escribir "Digite 5 para calcular la potencia entre dos numeros:"
Escribir "Digite 6 para la raíz cuadrada:"
Leer op
Segun op Hacer
1:
Escribir "Ingrese dos números:"
Leer a,b
resul<-a+b
Escribir "=", resul
2:
Escribir "Ingrese dos números:"
Leer a,b
resul<-a-b
Escribir "=", resul
3:
Escribir "Ingrese dos números:"
Leer a,b
resul<-a*b
Escribir "=", resul
4:
Escribir "Ingrese dos números:"
Leer a,b
Si a <> 0 Entonces
resul<-a/b
Escribir "=", resul
SiNo
Escribir "El segundo valor no puede ser 0"
Fin Si
5:
Escribir "Ingrese 2 números, uno para la base y el segundo para el
exponente:"
Leer a, b
Si b>0 Entonces
resul<-a^b
Escribir "=", resul
SiNo
resul<-1/(a^b)
Escribir "=", resul
Fin Si
6:
Escribir" Ingrese el valor para calcular la raíz cuadrada:"
Leer a
Si a>=0 Entonces
resul<-raiz(a)
Escribir "=", resul
SiNo
Escribir "el valor ingresado no puede ser negativo"
Fin Si
De Otro Modo:
Escribir "ERROR, opción incorrecta"
Fin Segun
FinAlgoritmo
Diagrama de flujo
Diagrama de flujo
Algoritmo 10_DESCUENTO_EN_BASE_AL_DÍA_DE_LA_SEMANA
Algoritmo DESCUENTO_EN_BASE_AL_DIA_DE_LA_SEMANA
Definir op Como Caracter
Definir cost, desc, pf Como Real
Escribir "Ingrese el día de compra:"
Escribir ""
Escribir "Ingrese Lu si es Lunes"
Escribir "Ingrese Ma si es Martes"
Escribir "Ingrese Mi si es Miercoles"
Escribir "Ingrese Ju si es Jueves"
Escribir "Ingrese Vi si es Viernes"
Leer op
Segun op Hacer
"Lu":
Escribir "ingrese el valor de la compra:"
Leer cost
desc<-cost*0.15
pf<-cost-desc
Escribir "costo", cost
Escribir "descuento", desc
Escribir "precio final", pf
"Ma":
Escribir "ingrese el valor de la compra:"
Leer cost
desc<-cost*0.16
pf<-cost-desc
Escribir "costo", cost
Escribir "descuento", desc
Escribir "precio final", pf
"Mi":
Escribir "ingrese el valor de la compra:"
Leer cost
desc<-cost*0.18
pf<-cost-desc
Escribir "costo", cost
Escribir "descuento", desc
Escribir "precio final", pf
"Ju":
Escribir "ingrese el valor de la compra:"
Leer cost
desc<-cost*0.10
pf<-cost-desc
Escribir "costo", cost
Escribir "descuento", desc
Escribir "precio final", pf
"Vi":
Escribir "ingrese el valor de la compra:"
Leer cost
desc<-cost*0.20
pf<-cost-desc
Escribir "costo", cost
Escribir "descuento", desc
Escribir "precio final", pf
De Otro Modo:
Escribir "No hay descuento en ese día"
Fin Segun
FinAlgoritmo
Diagrama de flujo