Pseudocódigo XVII

Ejercicios sobre algoritmos en Pseudocódigo.

Dada una fecha en formato día/mes/año determinar el número de días y el nombre del mes de dicha fecha, y sacar por pantalla la fecha convertida a formato de día  “de” mes “de” año.

1 Proceso CovertirFecha

2      //Dada una fecha en formato día/mes/año determinar el número

3      //de días y el nombre del mes de dicha fecha,

4      //y sacar por pantalla la fecha convertida a formato

5      //de día “de” mes “de” año.

6      Definir Dia , Mes, Anyo como entero;

7      Definir MaxDiasMes como entero;

8      Definir MesC como caracter;

9      Definir Contar como entero;

10     Repetir

11           Escribir "Dime la fecha dd/mm/aaaa";

12           Leer Dia, Mes, Anyo;

13           Segun Mes hacer

14                  1: MesC<-"enero";

15                         MaxDiasMes <- 31;

16                  2: MesC<-"febrero";

17                         MaxDiasMes <- 28;

18                         si anyo % 100 = 0 entonces

19                                si anyo % 400 = 0 entonces //Bisiesto

20                                      MaxDiasMes <- 29;

21                                FinSi

22                         sino

23                                si anyo % 4 = 0 entonces //Bisiesto

24                                      MaxDiasMes <- 29;

25                                FinSi

26                         FinSi

27 //o 29

28                  3: MesC<-"marzo";

29                         MaxDiasMes <- 31;

30                  4: MesC<-"abril";

31                         MaxDiasMes <- 30;

32                  5: MesC<-"mayo";

33                         MaxDiasMes <- 31;

34                  6: MesC<-"junio";

35                         MaxDiasMes <- 30;

36                  7: MesC<-"julio";

37                         MaxDiasMes <- 31;

38                  8: MesC<-"agosto";

39                         MaxDiasMes <- 31;

40                  9: MesC<-"septiembre";

41                         MaxDiasMes <- 30;

42                  10: MesC<-"octubre";

43                         MaxDiasMes <- 31;

44                  11: MesC<-"noviembre";

45                         MaxDiasMes <- 30;

46                  12: MesC<-"diciembre";

47                         MaxDiasMes <- 31;

48                  de Otro Modo:

49                         MesC<-"Mes no valido";

50                         MaxDiasMes <- 0;

51           FinSegun

52            si dia > MaxDiasMes Entonces //eroor

53                   Escribir "Error ", MesC , " <= ", Maxdiasmes;

54            Sino

55                   Escribir Dia , " de " , MesC , " de " , Anyo;

56           FinSi

57 Hasta Que 1<>1

58 FinProceso

Se coloca un capital C, a un interés I, durante M años y se desea saber en cuanto se habrá convertido ese capital en M años, sabiendo que es acumulativo.

1 Proceso CalculoCapitalAnyos

2      //Se coloca un capital C, a un interés I, durante M años

3      //y se desea saber en cuanto se habrá convertido ese capital

4      //en m años, sabiendo que es acumulativo

5

6      Definir Capital , Interes Como Real;

7      Definir Anyos , InteresE, Indice Como Entero;

8      Escribir "Dime el capital: ";

9      Leer Capital;

10     Escribir "Dime el Interes %:";

11     Leer InteresE;

12     Interes <- InteresE / 100;

13     Escribir "Cuantos Años";

14     Leer Anyos;

15     Para Indice <- 1 Hasta Anyos Hacer

16           Capital <- Capital + ( Capital * Interes);

17     FinPara

18     Escribir "Pasados " , Anyos , " tendras " , Capital , " euros.";

19 FinProceso

Muestre el mensaje “procesando datos... desea continuar (s/n)”, si el usuario introduce ‘S’, se repite el mensaje y si dice ‘N’  muestra el mensaje adiós y termina.

1 Proceso DeseaContinuar

2      //Muestre el mensaje “procesando datos... desea continuar (s/n)

3      //”, si el usuario introduce ‘S’, se repite el mensaje y

4      //si dice ‘N’ muestra el mensaje adiós y termina.

5      Definir Continuar Como Caracter;

6      Repetir

7            Escribir "procesando datos... desea continuar (s/n)";

8            Leer Continuar;

9      Hasta Que Continuar = 'N' | Continuar = 'n'

10     Escribir "Adios.";

11

12 FinProceso

Un programa que lea un número, que compruebe que está comprendido entre 10 y 100, que lo muestre por pantalla o que lo vuelva a leer en el caso que no cumpla la condición.

1 Proceso lEERnNumeroente10y100

2      //Un programa que lea un número, que compruebe que está

3      //comprendido entre 10 y 100, que lo muestre por pantalla

4      //o que lo vuelva a leer en el caso que no cumpla la condición

5      Definir Numero Como Entero;

6      Repetir

7            Escribir "Dime un numero entre 10 y 100";

8            Leer Numero;

9      Hasta Que Numero >= 10 & Numero <= 100

10     Escribir "bien el numero es " , Numero;

11 FinProceso

Siguiente>

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>