Algoritmos con estructuras (Si - entonces / Para)

Condicional Si-Entonces
La secuencia de instrucciones ejecutadas por la instrucción Si-Entonces-Sino depende del valor de una condición lógica.
Al ejecutarse esta instrucción, se evalúa la condición y se ejecutan las instrucciones que correspondan: las instrucciones que le siguen al Entonces si la condición es verdadera, o las instrucciones que le siguen al Sino si la condición es falsa. La condición debe ser una expresión lógica, que al ser evaluada retorna Verdadero o Falso. 
La cláusula Entonces debe aparecer siempre, pero la cláusla Sino puede no estar. En ese caso, si la condición es falsa no se ejecuta ninguna instrucción y la ejecución del programa continúa con la instrucción siguiente.

Algoritmo que pida número y diga si es positivo o negativo o es cero.

1. Proceso numero_positivo_negativo_cero.
2. Definir num Como Entero;
3. Escribir "Ingrese numero";
4. Leer num;
5. Si num>0 Entonces;
6. Sino
       Escribir "El numero es negativo";
       Si num == 0 Entonces
       Escribir "El numero ingresado es cero: ";
       Sino
       Escribir "El numero ingresado es diferente de cero";
       FinSi
7. FinSi
8. FinProceso

9. Escribir "El numero es positivo";
10. FinProceso



Algoritmo que al introducir el nombre de un país centroamericano muestre el nombre de la capital.

1. Proceso paises
2. Definir pais Como Caracter;
3. Escribir "Ingrese un pais";
4. Leer pais;
5. Si pais="EL SALVADOR" O pais="El Salvador" O pais="el salvador" Entonces
     Escribir "Su capital es: San Salvador";
6. Sino
    Si pais="guatemala"  O pais="GUATEMALA" O pais="Guatemala" Entonces
    Escribir "Su capital es: Antigua Guatemala";
    Sino
    Si pais="Belice" O pais="BELICE" O pais="belice" Entonces
    Escribir "Su capital es: Belmopán";
    Sino
    Si pais="Honduras" O pais="HONDURAS" O pais="honduras" Entonces
    Escribir "Su capital es: Tegucigalpa";
    Sino
    Si pais="NICARAGUA" O pais="Nicaragua" O pais="nicaragua" Entonces
    Escribir "Su capital es: Managua";
    Sino

    Si pais="costa rica" O pais="Costa Rica" O pais="COSTA RICA" O                       pais="Costa rica" Entonces

    Escribir "Su capital es: San José";
    Sino
    Si pais="PANAMA" O pais="Panama" O pais="panama" Entonces
    Escribir "Su capital es: Panama";
    FinSi
    FinSi
    FinSi
    FinSi
    FinSi
    FinSi
7. FinSi
8. FinProceso

Algoritmo que pida 3 números y diga cuál es el mayor de los 3, el menor de los 3, si son iguales y escriba la suma de los 3 números.

1. Proceso suma_de_tres_numeros
2. Definir n1,n2,n3, suma Como entero;
3. Escribir "Ingrese numero 1";
4. Leer n1;
5. Escribir "Ingrese numero 2";
6. Leer n2;
7. Escribir "Ingrese numero 3";
8. Leer n3;
9. Si n1>n2 y n1>n3 Entonces
    Escribir "El numero mayor es: ",n1;
10.Sino
    Si n2>n1 y n2>n3 Entonces
    Escribir "El numero mayor es: ",n2;
    Sino
    Si n3>n1 y n3>n2 Entonces
    Escribir "El numero mayor es: ",n3;
    Sino
    Escribir "Son iguales";
    FinSi
    FinSi
11.FinSi
12.suma <- n1+n2+n3;
13.Escribir "La suma de los numeros es: ", suma;
14.FinProceso

Algoritmos usando el bucle PARA

Algoritmo que genere los dígitos

1. Proceso digitos
2. Definir a Como Entero;
3. Para a<-0 Hasta 9 Con Paso 1 Hacer
    Escribir a;
4. FinPara
5. FinProceso

Algoritmo que permita registrar 5 empleados con sus datos personales.

1. Proceso empleados
2. Definir nombre,direccion Como Caracter;
3. Definir DUI, telefono,edad,NIT,a Como Real;
4. Para a<-1 Hasta 5 Con Paso 1 Hacer
5. Escribir "Datos para empleado",a;
6. Escribir "Nombre:";
7. Leer nombre;
8. Escribir "Edad";
9. Leer edad;

10. Escribir "NIT";
11. Leer NIT;
12. Escribir "Telefono";
13. Leer telefono;
14. Escribir "DUI";
15. Leer DUI;  
16. FinPara
17. FinProceso

Algoritmo que calcule la media de gastos en x cantidad de meses definidos por el usuario.

1. Proceso gastospormes
2. Definir media, acum, a, gastos1, meses Como Real;
3. acum<-0;
4. Escribir "De cuantos meses realizará el calculo?";
5. Leer meses;
6. Para a<-1 Hasta meses Con Paso 1 Hacer
    Escribir "Ingrese la cantidad de gastos en el mes",a;
    Leer gastos1;
    acum<-acum+gastos1;
7. FinPara
8. media <- acum/meses;
9. Escribir "La media de gastos realizadas en",meses,"meses es de",media;
10 .FinProceso

Programa que permita introducir la cantidad de numero definidos por el usuario y que diga cuantos números son los repetidos

1. Proceso numeros
2. Definir a,b,cont,d Como Entero;
3. Escribir "cuantos numeros desea ingresar";
4. Leer a;
5. b<-1;
6. Mientras b!=0 Hacer
    Escribir "ingrese numero";
    Leer d;
    si b=a o d=0 entonces
    b<-0;
    Sino
    b<-b+1;
    FinSi
7. FinMientras
8. Si d=d Entonces
9. Escribir "los numeros repetios son", d;
10. FinSi
11. FinProceso

Programa que genere los números del uno al 100 y que haga la suma de todos y muestre los números pares encontrados en ese rango.

1. Proceso Numerospares
2. Definir p,d, suma, acum Como Entero;
3. acum <-0;
4. Para p<-1 Hasta 100 Con Paso 1 Hacer
    Escribir p;
    Si p mod 2=0 Entonces
    acum<-acum+p;
    FinSi
5. FinPara
6. Escribir "La suma es", acum;
7. Escribir "los pares son:";
8. Para d<-2 Hasta 100 con paso 2 Hacer
    Escribir d;
9. FinPara
10. FinProceso

Programa que calcule el promedio  de 3 notas y que si el promedio eso 10 a 9 escriba “excelente”, si  es de 8 a 7 escriba “Bueno”, si es de 6 a 5 escriba “regular” y si es de 4 a 0 escriba “necesita mejorar”.

1. Proceso Promedio_
2. Definir n1, n2, n3, prom, ca Como Real;
3. Para ca<-1 Hasta 5 Con Paso 1 Hacer
4. Escribir "Ingrese primer nota";
5. Leer n1;
6. Escribir "Ingrese segunda nota";
7. Leer n2;
8. Escribir "Ingrese tercera nota";
9. Leer n3;
10. Prom<- (n1+n2+n3)/3;
11. Escribir "Su promedio es:",prom,;
12. Si prom = 9  o prom = 10 entonces;
      Escribir"Su promedio esta EXCELENTE";
13. Sino
      si prom =7 o prom =8 entonces
      Escribir "Su promedio esta BUENO";
      Sino
      si prom =5 o prom =6 entonces;
      Escribir "Su promedio esta REGULAR";
      Sino
      si prom >= 0 o  prom <= 4 entonces;
      Escribir "NECESITA MEJORAR";
      FinSi
      FinSi
      FinSi
14. FinSi
15. FinPara
16. FinProceso

Programa que genere la tabla del 1 hasta la tabla del 10
Proceso tablas

1. Definir a,b,c Como Entero;
2. Para a<-1 Hasta 10 Con Paso 1 Hacer  
    Escribir "Tabla del ", a;
    Para b<-1 Hasta 10 Con Paso 1 Hacer
    c    Escribir a, "x", b, "=", c;
    FinPara
3. FinPara
4. FinProceso