REALIZAR EJERCICIO
Algoritmo compras
definir num,pro Como Caracter
definir p,can Como Entero
Escribir"ingrese nombre del cliente"
leer num
escribir"ingrese nombre del producto"
leer pro
escribir "Ingrese nombre del producto"
leer pro
Escribir "ingrese la cantidad "
leer can
st=p*can
iva=st*0.15
T=st+iva
Escribir "Cliente", num
escribir "su subtotal es",st
Escribir"Su iva es", iva
Escribir"Su total es",T
FinAlgoritmo
Algoritmo Productos
definir Pr como real
definir Ca como entero
definir Nombre Como Caracter
definir Nc como caracter
definir ed como entero
escribir "cliente"
leer Nc
escribir"edad"
leer ed
Escribir "Ingrese el nombre del producto:"
Leer Nombre
Escribir "Ingrese precio:"
Leer Pr
Escribir "Ingresar cantidad:"
Leer Ca
vp=pr*ca
Escribir "el precio a pagar es:",vp
iva=vp*0.15
Escribir "IVA",iva
t=vp+iva
Escribir "El valor a pagar incluido el iva es: ",t
FinAlgoritmo
Algoritmo compras
definir num, pro como caracter
definir p, can Como Entero
escribir " Ingrese nombre del cliente"
leer num
escribir " Ingrese nombre del producto"
leer pro
escribir "Ingrese el precio del producto"
leer p
escribir " Ingrese la cantidad"
leer can
st=p*can
iva=st*0.15
T=st+iva
Escribir "Cliente", num
Escribir "su subtotal es", st
Escribir"Su iva es", iva
Escribir"Su total es", T
FinAlgoritmo
Algoritmo NOTAS
definir Cal1,cal2 Como Entero
escribir("digete su calificacion 1")
leer cal1
escribir("digete su calificacion 2")
leer cal2
p=(cal1 + cal2) /2
Escribir "su promedio es:" , p;
si p>=7 Entonces
escribir("APROBADO")
SiNo
escribir("REPROBADO")
FinSi
FinProceso
Algoritmo NOTAS
definir Cal1,cal2 Como Entero
escribir("digete su calificacion 1")
leer cal1
escribir("digete su calificacion 2")
leer cal2
p=(cal1 + cal2) /2
Escribir "su promedio es:" , p;
si p>=7 Entonces
escribir("APROBADO")
SiNo
escribir("REPROBADO")
FinSi
FinProceso
Algoritmo fototienda
Definir cam Como Entero
Definir col Como Real
Escribir "catidad de fotos"
leer cam
escribir "cuanto cuesta el rollo"
Leer col
c=cam * cob
iva= c*0.15
T=c + iva
Escribir "su valor total a pagar por las fotos"
FinAlgoritmo
Proceso condiciones
definir edad Como Entero
Escribir ("digite su edad")
Leer edad
si edad <18 Entonces
Escribir (" usted es menor de edad")
SiNo
Escribir ("usted es mayor de edad")
FinSi
FinProceso
Proceso condiciones
definir num Como Real
Escribir ("digite el numero a evaluar ")
Leer num
si num > 0 Entonces
escribir ("es mayor que 0")
FinSi
FinProceso
Algoritmo pulsaciones
Escribir "indique su edad"
Leer age;
Escribir "indique si su sexo es masculino (M O F)::";
femenino (M O F) ::";
Leer SEXO
SI ((SEXO="M") /(Sexo="M"));Entonces
hpulsos<-(210-age) /10;
sino hpulsos<-(220-age )/10;
FinSi
FinAlgoritmo
Proceso condiciones
Definir num Como Real
Escribir " digite el numero a evaluar "
leer num
si num >0 Entonces
Escribir +("es mayor que 0")
SiNo
Escribir ("es mayor que 0 ")
FinSi
FinProceso
Algoritmo sumadosnumeros
Algoritmo suma de los numeros
num1<-0
num2<-0
Escribir "escribir el numero 1"
leer num1
Escribir "escribir numero 2"
leer num2
Rto<-mun1+num2
Escribir "el resultado es":rta
FinAlgoritmo
Algoritmo aprueba -reprueba
Escribir " ingrese calificaciones 1"
leer cal 1
Escribir " ingrese calificacion 2 "
leer cla 2
Escribir " ingrese calificacion 3"
leer cal 3
prom<-(cla1+cal2+cal3)/3
siprom>4=entonces
Escribir "aprueba "
si no
Escribir "reprueba"
FinSi
escribir prom
FinAlgoritmo
Proceso ahorradores
Escribir " ingrese el saldo inicial del ahorradores"
leer saldo-inicial
Escribir " ingrese el numero de meses".
leer munbresmounths
monto<-(0.015* saldo inicial * numbermounths)
saldo final <-saldo inicial + monto
Escribir "el saldo final equivale a :",saldo final
fin proceso
Proceso empresa
Escribir " ingrese las cantidades a invertir cada uno "
leer inv1,inv2,inv3
invtotal<- inv1+inv2+inv3
Escribir "";
p1<-inv1*100/invtotal
p2<-inv2*100/invtotal
p3<-inv3*100/invtotal
Escribir " el porcentaje que invierte la 1era persona
es de :";p1"%"
FinProceso