Pseudocódigo XVI

Ejercicios pseudocódigo con PSeInt.

Simular el comportamiento de un reloj digital, imprimiendo la hora, minutos y segundos de un día desde las 0:00:00 horas hasta las 23:59:59 horas.Usar instrucción Esperar 1 Segundo.

1 Proceso Relog24Horas

2      // 23:59:59

3      // 0:7:5 00:07:05

4      Definir Horas, Minutos, SegundosR como entero;

5      Definir HorasC, MinutosC, SegundosC como caracter;

6      Para Horas<-0 hasta 23 hacer

7            Para Minutos <-0 hasta 59 hacer

8                   Para SegundosR <-0 hasta 59 hacer

9                          Borrar pantalla;

10                         Si Horas > 9 Entonces

11                                HorasC<-"";

12                         sino

13                                HorasC<-"0";

14                         FinSi

15                         Si Minutos > 9 Entonces

16                                MinutosC<-"";

17                         Sino

18                               MinutosC<-"0";

19                         FinSi

20                         Si SegundosR > 9 Entonces

21                                SegundosC <- "";

22                         Sino

23                                segundosC<-"0";

24                         FinSi

25                         Escribir HorasC, Horas,":",MinutosC, Minutos, ":",SegundosC, SegundosR;

26                         Esperar 15 Milisegundo;

27                  FinPara

28           FinPara

29     FinPara

30 FinProceso

Dada la siguiente serie matemática:    a1=0    a2=1    an=an-1 + (2*an-2) para n>=3 Determinar cual es el valor y el rango del primer término cuyo valor sea mayor o igual a 2000.

1 Proceso SerieAx

2      //Dada la siguiente serie matemática:

3      //a1=0

4      //a2=1

5      //an=an-1 + (2*an-2) para n>=3

6      //Determinar cual es el valor y

7      //el rango del primer término cuyo valor

8      //sea mayor o igual a 2000.

9      // a3 = a2 + (2*a1) = 1 + (2*0) = 1

10     // a4 = a3 + (2*a2) = 1 + (2*1) = 3

11     // a5 = a4 + (2*a3) = 3 + (2*1) = 5

12     // a6 = a5 + (2*a4) = 5 + (2*3) = 11

13     Definir indice como entero;

14     Definir Ax, Axm1, Axm2 como entero;

15     indice <-3; //3

16     Axm2<-0; // Ax-2 a1

17     Axm1<-1; // Ax-1 a2

18     Ax<-0;

19

20     Mientras Ax < 2000 hacer

21            //an=an-1 + (2*an-2)

22           Ax <- Axm1 + (2*Axm2);

23           Axm2 <- Axm1;

24           Axm1<-Ax;

25           Indice <- Indice + 1;

26           //Escribir "a" , indice -1, " valor " , Ax;

27     FinMientras

28     //restar uno a indice

29     Escribir "a" , indice -1, " valor " , Axm1;

30

31 FinProceso

Calcular la suma de los divisores de cada número introducido por teclado. Terminaremos cuando el número sea negativo o 0.

1 Proceso Divisores

2      //Calcular la suma de los divisores de cada número

3      //introducido por teclado. Terminaremos cuando el número

4      //sea negativo o 0.

5      Definir Numero, Max como entero;

6      Definir Suma ,indice como entero;

7      Definir PrimerDiv como logico;

8      PrimerDiv <- falso;

9      repetir

10           Suma <- 1;

11           PrimerDiv <- Falso;

12           Escribir "Dime el Numero";

13           Leer Numero;

14           Max<-Numero;

15           Si Numero > 0 entonces

16                  Escribir "Divisor " , 1;

17                  indice <- 2;

18                  Mientras indice <= Max hacer

19                         si Numero % indice = 0 Entonces

20                                Escribir "Divisor " , Indice;

21                                Suma <- Suma + Indice;

22                                si PrimerDiv = Falso Entonces

23                                      si indice <> Numero Entonces

24                                             PrimerDiv <- Verdadero;

25                                             Max <- Numero / Indice;

26                                      FinSi

27                                FinSi

28                         FinSi

29                         indice <- Indice + 1;

30                  FinMientras

31                  si primerDiv = Verdadero Entonces

32                         Escribir "Divisor " , Numero;

33                         Suma <- Suma + Numero;

34                  FinSi

35                  Escribir " Suma " , Suma;

36            FinSi

37     hasta que Numero <=0

38 FinProceso

Siguiente>