algoritmos

Proceso notadequimica
                Escribir "nota practica uno:"
                Leer p1
                Escribir "nota practica dos:"
                Leer p2
                Escribir "nota practica tres:"
                Leer p3
                Escribir "nota parcial uno:"
                Leer pr1
                Escribir "nota parcial dos:"
                Leer pr2
                Escribir "nota parcial tres:"
                Leer pr3
                nd<-(p1+p2+p3+pr1+pr2+pr3)/6;                Escribir "la nota definitiva es:"
                Escribir nd
                Si nd>=3 Entonces
                               Escribir "aprobo quimica"
                Sino
                               Escribir "reprobo quimica"
                FinSi
              
              
FinProceso
   Proceso agua
                Escribir "temperatura del agua:"
                Leer ta
                Si ta>100 Entonces
                               Escribir "el agua caliento:"
                Sino
                               Escribir "el agua no caliento:"
                FinSi
              
FinProceso
    Proceso letra
                Escribir "numero:"
                Leer n;
                Si n>97 Entonces
                               Escribir "letra minuscula:"
                Sino
                               Escribir "letra mayuscula:"
                FinSi
              
FinProceso
  Proceso descuento
                Escribir "entra el valor de la compra:";
                Leer vc;
                Escribir "numero:"
                Leer n
                Si n>74 Entonces
                               d<-20*vc/100
                               vpd<-vc-d
                Sino
                               d<-15*vc/100
                               vpd<-vc-d
                FinSi
                Escribir "el valor con descuento es:"
                Escribir vpd;
FinProceso