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
No hay comentarios:
Publicar un comentario