PROGRAMACION

ALGORITMOS

1. CONTADOR DE 1 A 10:
Proceso contador
    contador<-1;
    Mientras contador<=10  Hacer
        Escribir contador;
        contador<-contador+1;
    FinMientras
FinProceso 


//*el motivo el cual realizamos este algoritmo es para mostrar por pantalla un contador que inicie en 1 y termine en 10*//

2. CONTADOR DE 2 EN 2 HASTA 100:
Proceso contador_numeros_pares
    contador<-2;
    Mientras contador<=100  Hacer
        Escribir contador;
        contador<-contador+2;
    FinMientras
FinProceso 


//*el motivo el cual realizamos este algoritmo tambien es para mostrar por pantalla un contador de 2 en 2 hasta 100*//

3. QUE PIDA X TECLADO DOS NUMEROS Y CALCULE LA  MULTIPLICACION Y SUMA DE ESTOS:
Proceso suma_multi_numero
escribir "introdusca primer numero (entero)"
   leer primer_numero;
  escribir "introdusca segundo numero (entero)"
leer segundo_numero;
suma<-primer_numero+segundo_numero;
Escribir "el resultado de suma es";
    Escribir suma;
multiplicar<-primer_numero*segundo_numero;
Escribir "el resultado de multiplicacion es";
    Escribir  multiplicar;
Si (suma>multiplicar) Entonces
   Escribir "la suma es mayor";
FinSi
si (multiplicar>suma) Entonces
Escribir "la multiplicacion es mayor";
Sino
si (multiplicar=suma) Entonces
    Escribir "son igua";
FinSi
  FinSi
FinProceso


//*El motivo por el cual se realiza este algoritmo es para que x tecldo pida la suma y multiplicacion de dos numero y la muestre por pantalla*// 

4.EL RADIO DE UNA ESFERA
Proceso Esfera
    Escribir "introduzca radio de la esfera ";
      Leer radio;
    Mientras (radio<=0)     Hacer
         
        Escribir " recuerde que el radio debe ser < que 0";
           Leer r;
    FinMientras
    pi<-3.1416;
    area<-4*pi*radio*radio;
Escribir "el area de la esfera de radio   ",radio, "  es"   ,   area;
  FinProceso

 

5.  PROMEDIO DE NOTAS
 Proceso notas
Escribir "introdusca por teclado la nota";
leer nota;
Mientras (nota<0 o nota>10) Hacer
escribir "error";
Escribir "introdusca por teclado la nota";
leer nota
FinMientras
si (nota>=5) Entonces
escribir "aprobado" 
sino 
Escribir "suspendido"
FinSi  
FinProceso

6. ALGORITMO DE UN HOTEL
 Proceso hotel
acm<-0;
ach<-0;
 acuh<-0;
 acud<-0;
 acum<-0;
 f<-0;
 m<-0;
Escribir '........BIENVENIDOS AL HOTEL DULCES SUEÑOS........';
Repetir
Escribir '...Nombre del huesped ';
Leer nom;
Escribir 'los dias que ",nom," se hospedara';
Leer dias;
Escribir 'sexo al que pertenece (F=0/M=1)';
Leer sexo
Escribir 'Necesita introducir mas datos (Si/No)';
Leer seg;
Si (sexo=1) Entonces 
ach<-ach+1;
Sino
acm<-acm+1;
FinSi
hue<-ach+acm;
Hasta Que seg="no" o seg="No"
Escribir 'total de huespedes'  ,hue;
Escribir 'el numero de hombres es'  ,ach;
Escribir 'el numero de mujeres es'  ,acm;
FinProceso

8. CRONOMETRO O RELOG

Proceso CRONOMETRO
rel<-0
hor<- 0
min<- 0
seg<- 0
mseg<-0
nseg<-0
Escribir 'Por Favor pulsa Enter para que comience a correr el reloj';
Leer rel;
Mientras  hor<25 Hacer
Mientras  min<60 Hacer
Mientras seg<60 Hacer
Mientras mseg <60 Hacer
Mientras nseg <20 Hacer
Escribir "/",hor,":",min,":",seg,":",mseg,"/";
nseg<-nseg+1
FinMientras
    mseg<- mseg+1
    nseg <-1
FinMientras
   seg <- seg+1
   mseg <- 0
FinMientras
  min<- min+1
  seg<-0
FinMientras
horas <- horas + 1
 minutos <- 0
FinMientras
hor<- 0
min<- 0
seg<- 0
mseg <-0
FinProceso