Pseudocódigo IX

Ejercicios de Estructuras Repetitivas:

Estructura Para:

Imprimir todos los números pares desde 2 hasta el 300.

1 Proceso NumerosParesDesde2al300

2      //Imprimir numeros pares desde el 2 al 300

3      Definir indice Como Entero;

4      Para indice<-2 Hasta 300 Con Paso 2 Hacer

5            Escribir indice;

6      FinPara

7 FinProceso

Imprimir todos los números impares desde 2 hasta el 300.

1 Proceso NumerosImParesDesde2al300

2      //Imprimir numeros pares desde el 2 al 300

3      Definir indice Como Entero;

4      Para indice<-3 Hasta 300 Con Paso 2 Hacer

5            Escribir indice;

6      FinPara

7 FinProceso

Imprimir los valores comprendidos entre el 460 y 500 en orden inverso.

1 Proceso ImprimirLosvaloresdel460Al500enInverso

2      Definir indice como entero;

3      Para indice <-500 hasta 460 con paso -1 hacer

4            Escribir indice;

5      FinPara

6 FinProceso

Un programa que lea  un valor  N, que indica cuantos números va a leer, y calcule la suma y la media. 

1 Proceso LeerNNumerosCalcularSumaYMedia

2      //Leer por teclado cantidad de numeros a leer

3      //Leer los numeros y calcular suma y media

4      Definir N, Indice Como Entero;

5      Definir Numero, Suma, Media Como Real;

6      Suma <- 0;

7      Escribir "Dime Cuantos Numeros";

8      Leer N;

9      Si ( N > 0 ) entonces

10           Para Indice<-1 hasta N hacer

11                  Escribir "Dime el ", Indice , "er Numero";

12                  Leer Numero;

13                  Suma <- Suma + Numero;

14           FinPara

15           Media <- Suma / N;

16           Escribir "La Suma es ", Suma , " La media es ", Media;

17     Sino

18           Escribir "0 Numeros leidos";

19     FinSi

20 FinProceso

Un programa que lea 200 números y me indique cual el máximo y el mínimo. 

1 Proceso Leer200NumerosYMuestreMaxYMin

2      //Leer 200 num de teclado y mostar max y min

3      Definir Indice Como Entero;

4      Definir Num, Max, Min Como Real;

5      Escribir "Dime un Numero";

6      Leer Num;

7      Max<-Num;

8      Min<-Num;

9      Para Indice <- 1 hasta 199 hacer

10           Escribir "Dime un Numero";

11           Leer Num;

12           Si (Num>Max) entonces

13                  Max<-Num;

14           FinSi

15           Si (Num<Min) Entonces

16                  Min<-Num;

17           FinSi

18     FinPara

19     Escribir "Max ", Max, " Min ", Min;

20 FinProceso

Otra alternativa.

1 Proceso Leer200NumerosYMuestreMaxYMin

2      //Leer 200 num de teclado y mostar max y min

3      Definir Indice Como Entero;

4      Definir Num, Max, Min Como Entero;

5      Max<--999999999999999;

6      //Escribir Max;

7      Min<-999999999999999;

8      Para Indice <- 1 hasta 10 hacer

9            Escribir "Dime un Numero";

10           Leer Num;

11           Si (Num>Max) entonces

12                  Max<-Num;

13           FinSi

14           Si (Num<Min) Entonces

15                  Min<-Num;

16           FinSi

17     FinPara

18     Escribir "Max ", Max, " Min ", Min;

19 FinProceso

Un programa que sume el valor de los número pares de 1 a 30.

1 Proceso SumarNumerosParesEntreUnoY30

2      //Suma los números pares entre 1 y 30

3      Definir indice Como Entero;

4      Definir Suma Como Entero;

5      Suma <- 0;

6      Para Indice <- 2 hasta 30 con paso 2 Hacer

7            Suma <- suma + Indice;

8      FinPara

9      Escribir Suma;

10 FinProceso

Siguiente>