Un grupo de 10 estudiantes presentan un examen de Física. Hacer un Algoritmo que lea por cada estudiante la calificación obtenida. Al Finalizar calcule e imprima: • La cantidad de estudiantes que obtuvieron una calificación menor a 50. • La cantidad de estudiantes que obtuvieron una calificación de 50 o Más pero menor que 70. • La cantidad de estudiantes que obtuvieron una calificación de 70 o Más pero menor que 80. • La cantidad de estudiantes que obtuvieron una calificación de 80 o más. La calificación obtenida en el examen de física debe ser entre 1 y 100.

Proceso examen_fisica
    definir cont1,cont2,cont3,cont4,i,nota como real;
    cont1<-0;
    cont2<-0;
    cont3<-0;
    cont4<-0;
    i<-0;
    Mientras i<10 Hacer
        Escribir "Por favor ingrese su nota, recuerde que sólo está permitido un valor entres 1 y 100";
        leer nota;
        si nota >= 1 y nota <= 100 Entonces
            si nota < 50 entonces
                cont1 <- cont1+1;
            sino
                si nota >= 50 y nota < 70 entonces
                    cont2 <- cont2+1;
                Sino
                    si nota >= 70 y nota < 80 entonces
                        cont3 <- cont3 + 1;
                    Sino
                        cont4 <-cont4+1;
                    FinSi
                FinSi
            FinSi
            i<-i+1;
        FinSi
    FinMientras
    Escribir "La cantidad de alumnos que tienen una nota inferior a 50 es:",cont1;
    Escribir "La cantidad de alumnos que tienen una nota mayor o igual a 50 e inferior a 70 es: ",cont2;
    Escribir "La cantidad de alumnos que tienen una nota mayor o igual a 7o e inferior a 80 es: ",cont3;
    Escribir "La cantidad de alumnos que tienen una nota mayor o igual a 80 es: ",cont4;
   
FinProceso

Hacer un algoritmo que imprima el costo de una llamada telefónica, Capturando la duración de la llamada en minutos y conociendo lo Siguiente: • Toda llamada que dure tres minutos o menos tiene un costo de $200. • Cada minuto adicional cuesta $30.

Proceso costo_llamada
Definir M,V como real;
    Escribir "Por favor ingrese la cantidad de minutos que duró su llamada";
    leer    M;
Si M<=3 Entonces
    Escribir "Su llamada cuesta: 300";
Sino
    V<-(M-3)*30+200;
    Escribir "El valor de su llamda es: ",V;
FinSi
FinProceso

Desarrollar un algoritmo que permita calcular los siguientes datos de Una fiesta: ¿Cuántas personas asistieron a la fiesta? ¿Cuántos hombres y cuantas mujeres? -Promedio de edades por sexo -La edad de la persona más joven que asistió Consideraciones: -No se permiten menores de edad a la fiesta -Ingresar datos hasta que se ingrese una edad igual a cero

Proceso fiesta
    Escribir 'Se asume que si usted está utilizando esta aplicación es porque usted va a ir a la fiesta';
    Definir edad,cont,contf,acumf,contm,acumm, edadM,i como real;
    Definir sexo como caracter;
    cont<-0;
    contf<-0;
    acumf<-0;
    contm<-0;
    acumm<-0;
    contF<-0;
    i <-0;
        Repetir
            Repetir
                Escribir "Recuerde que para poder ingresar a la fiesta más loca del mundo usted debe ser mayor de 18 ";
                Escribir 'Por favor ingrese su edad';
                Leer edad;
            Hasta Que edad >= 18 O edad = 0
            si edad <> 0 entonces
                cont<-cont+1;
                Mientras i = 0 Hacer
                    edadm <-edad;
                    i <- i + 1;
                FinMientras
                si edad<edadm Entonces
                    edadm <-edad;
                FinSi
                    Repetir
                    Escribir "Por favor ingrese su sexo, recuerde que sólo se acepta M o F";
                    Leer sexo;
                    Hasta Que sexo = "F" o sexo = "M"
                        Si sexo = "F" Entonces
                        contF <- contF+1;
                        acumF <- acumF+edad;
                        Sino
                        contM <- contM+1;
                        acumM <- acumM+edad;
                        FinSi
            FinSi               
    Hasta que edad =0
    escribir "la cantidad de personas que asistió fue: ",cont;
    escribir "la cantidad de mujeres que asistió fue: ",contF;
    escribir "la cantidad de Hombres que asistió fue: ",contm;
    Escribir "El promedio de edades de los hombres es: ",acumM/contM;
    Escribir "El promedio de edades de los mujeres es: ",acumF/contF;
    Escribir "La edad de la persona más joven que ingreso a la fiesta fue: ",edadm;
FinProceso

Hacer un algoritmo que imprima los primeros 20 términos de la Siguiente serie: 1, 3, 6, 10, 15, 21, 28,……..

Proceso primeros20
    Definir i,x como real;
    x<-0;
    i<-1;
    Mientras i<=20 Hacer
        x<-x+i;
        Escribir x;
        i<-i+1;
    FinMientras
FinProceso

Desarrollar un algoritmo que calcule el salario neto que debe recibir un Vendedor de un almacén. Se debe tener en cuenta si tiene derecho o No al auxilio de transporte. Para el desarrollo del ejercicio tenga en Cuenta las siguientes formulas: Sueldo devengado = salario básico * días laborados / 30. Días laborados = debe ser entre 1 y 30. Auxilio de Transporte: Lo reciben los empleados cuyo salario básico Sea menor o igual a 2 salarios mínimos legales vigentes. Salario Mínimo Legal Vigente (2013): 589500. Auxilio de Transporte = 70500 * días laborados / 30 (año 2013 en Colombia). Comisión de Ventas: En la empresa se tiene estipulado dar una Comisión de ventas del 2% sobre las ventas del mes de cada vendedor. Total devengado = sueldo devengado + comisión de ventas. Total deducciones = descuentos por préstamos. Salario Neto = Total devengado – Total deducciones Como resultado del ejercicio se debe imprimir en pantalla lo siguiente: Cedula empleado: XXXXXX Nombre Empleado: XXXXXXX Salario Básico: XXXXXX Auxilio de Transporte: XXXXXX Comisión de Ventas: XXXXXX Préstamos: XXXXXX Salario Neto a Recibir: XXXXX

Proceso calcular_salario
    Definir R,nmbre Como Caracter;
    Definir cdla,slrio_bsco,tv,das_lbrdos,slrio_dvngdo,axlio_trsprte,cmson_vntas,D,ttal_dvngdo,slrio_nto,slrio_mnmo Como Real;
    slrio_mnmo <- 589500;
    Escribir 'Bienvenido al centro de nomina de su empresa';
    Escribir 'Por favor ingrese su numero de cédula';
    Leer cdla;
    Escribir 'Por favor digite su nombre completo';
    Leer nmbre;
    Escribir 'Ingrese su salario';
    Leer slrio_bsco;
    Escribir 'Ingresa la cantidad de dinero que le debes a la empresa';
    Leer D;
    Escribir 'Ingrese el total de ventas que usted realizó';
    Leer tv;
    Escribir 'Ingrese la cantidad de días que usted laboró';
    Leer das_lbrdos;
    Mientras das_lbrdos>30 O das_lbrdos<1 Hacer
        Repetir
            Escribir 'Por favor ingrese un dato valido, recuerde que el programa sólo recibe numeros de 1 a 30';
            Escribir 'Ingrese la cantidad de días que usted laboró ';
            Leer das_lbrdos;
        Hasta Que das_lbrdos>1
    FinMientras
    slrio_dvngdo <- slrio_bsco*das_lbrdos/30;
    Si slrio_bsco<=slrio_mnmo*2 Entonces
        axlio_trsprte <- 70500*das_lbrdos/30;
    Sino
        axlio_trsprte <- 0;
    FinSi
    cmson_vntas <- tv*2/100;
    ttal_dvngdo <- slrio_dvngdo+cmson_vntas+axlio_trsprte;
    slrio_nto <- ttal_dvngdo-D;
    Escribir 'Muchas gracias por elegirnos, la información sobre su sueldo es:';
    Escribir 'Cédula de Ciudadania: ',cdla;
    Escribir 'Nombre del empleado: ',nmbre;
    Escribir 'Salario básico: ',slrio_bsco;
    Escribir 'Auxilio de trasporte: ',axlio_trsprte;
    Escribir 'Comisión de ventas: ',cmson_vntas;
    Escribir 'Prestaos: ',D;
    Escribir 'Salario neto a recibir: ',slrio_nto;
FinProceso