programacion

1 al 10

Proceso conteo_del_1_10
c <- 0
MIENTRAS c < 11 HACER
ESCRIBIR c
c <- c + 1
FINMIENTRAS
FinProceso

2 al 100

Proceso par
c <- 0
MIENTRAS c < 101 HACER
ESCRIBIR c
c <- c + 2
FINMIENTRAS
FinProceso

nota

Proceso Calificaciones
escribir "ingrese su nota: "
    leer n
    mientras  n <= 0 o n >= 10 Hacer
               escribir "ERROR: la Nota es incorrecta, debe ser >= 0 y <= 10"
       escribir "ingrese por favor su nueva nota: "
       leer n
    finmientras
   
    si  n >= 5 Entonces
       escribir "APROBADO"
      
    sino Entonces
       escribir "SUSPENDIDO"
         
    finsi
FinProceso

suma y multiplicacion

Proceso suma_multiplicacion
    Escribir "ingrese dos numeros enteros";
    Leer NUMERO1,NUMERO2;
    SI NUMERO1>=0 Entonces
    Escribir "la suma es", NUMERO1+NUMERO2;
    FinSi
    SI NUMERO1>=0 Entonces
    Escribir "la multiplicacion es", NUMERO1*NUMERO2;
    FinSi
    si NUMERO1+NUMERO2 > NUMERO1*NUMERO2 Entonces
    Escribir "la suma es mayor que la multiplicacion";
    FinSi
    si NUMERO1+NUMERO2 < NUMERO1*NUMERO2 Entonces
    Escribir "la suma  es menor que la multiplicacion";
    FinSi
    si NUMERO1+NUMERO2 = NUMERO1*NUMERO2 Entonces
    Escribir "la suma es igual que la multiplicacion";
    FinSi
FinProceso

esfera 

Proceso AREA_DE_LA_ESFERA
    Escribir "introduzca el radio de la esfera (dato real)";
    Leer d;
    Mientras (d<=0)     Hacer
        Escribir "ERROR El radio debe ser > 0";
        Escribir "introduzca el radio recuerde que debe ser > 0";
        Leer d;
    FinMientras
    pi<-3.1416;
    area<-4*pi*d*d;
    Escribir " area de la esfera de radio   ",d, "  es"   ,   area;
FinProceso

 

suma de numeros

Proceso suma_numeros

    Repetir  
        ns<-0;
        ac<-0;
        rep<-1;
    Escribir "introduzca el numero de sumandos";
    Leer ns;
        Mientras rep<=ns Hacer
            Escribir "Introduzca un numero ",rep;
            Leer n;
            ac<-ac+n;
            rep<-rep+1;
        FinMientras
      
        Escribir "El resultado de la suma es:", ac;
            prom<-ac/rep;
        Escribir "El promedio es:"  ,prom;
        Escribir "desea introducir mas numeros Si/No";
        Leer conti;
      
        Mientras conti="no" y conti="NO" y conti="si" y conti="SI"  Hacer
            Escribir "Debes escribir SI o NO.";
            Leer conti;
        FinMientras
    Hasta Que conti="no" o conti="NO"
FinProceso

problema del hotel

Proceso hotel
Escribir 'HOTEL oskr';
    acuh<-0;
    acud<-0;
    acum<-0;
    acudd<-0;
    valor<-20000;
Repetir
    Escribir 'Introduzca nombre ';
    Leer nom;
    Escribir 'Introduzca los dias que ",nom," se quedara';
    Leer dia;
    Escribir 'Introduzca el sexo (F=0 /M=1) ';
    Leer sex;
        Si (sex=1) Entonces
        acuh<-acuh+1;
        Sino
        acum<-acum+1;
    finsi
        Si dia>=5 Entonces
        acud<-acud+1;
        Sino
        acudd<-acudd+1;
    FinSi
    Escribir 'desea  introducir mas datos (Si/No)';
    Leer seg;
Hasta Que seg="no" o seg="No"
        toth<-acuh+acum
        entr<-toth*valor;
    Escribir 'El total de personas quese quedaran en el hotel son:' ,toth;
    Escribir 'El total de hombres quese quedaran en el hotel son:' ,acuh;
    Escribir 'El total de mujeres quese quedaran en el hotel son:' ,acum;
    Escribir 'Los huespedes quese que daran en el hotel por 5 o mas dias son:',acud;
    Escribir 'Los huespedes quese quedaran por menos de 5 dias son:' ,acudd;
    Escribir 'Los recolectado en este dia al hotel son:' ,entr;
FinProceso