|
Pseudocodigos y Algoritmos
1. Escriba un programa que lea tres enteros y emita un mensaje que indique si están o no en orden numérico
Algoritmo
E(introducir y leer ni,n2,n3
P(si (n1 < n2) And (n2<n3) entonces
S(los números están en orden
Los números no están en orden
Pseudocodigo
BEGIN
WRITE(‘Introduzca n1)
READ(n1)
WRITE(‘Introduzca n2)
READ(n2)
WRITE(‘Introduzca n3)
READ(n3)
IF (n1<n2) AND (n2<n3) THEN
WRITE(‘Los números están en orden’)
ELSE
WRITE(‘Los números están en desorden)
END.
2. Escribir un programa que introduzca el numero de un mes (1-12) y visualiza el numero de días de ese mes.
Algoritmo
E( introducir y leer el mes
P( hacer una tabla de cuantos días tiene cada mes
S( el mes es tal ‘ ‘, y tiene tantos días ‘ ‘
Pseudo código
BEGIN
WRITE( Introduzca el mes)
READ( mes)
CASE mes OF
1,3,5,7,8,10,12: día_mes := 31;
4,6,9,11: día_mes := 30;
2: día_mes := 28; {escriba un mensaje diciendo que puede ser bisiesto}
END;
BEGIN
WRITE('Introduzca un numero del 1 al 12: ')
READLN(mes)
IF (mes < 1) OR (mes > 12) THEN
WRITE('El numero introducido no corresponde a ningún mes.')
ELSE IF mes = 2 THEN
WRITE('el mes tiene 28 días, sí es bisiesto 29')
ELSE
WRITE('El mes tiene ',día_mes(mes),' días.')
END.
4. Codificar un programa que escriba la calificación correspondiente a una nota, de acuerdo con el siguiente criterio:
0 a< 5.0 = suspendido
5.0 a < 6.5 = aprobado
6.5 a< 8.5 = notable
8.5 a< 10 = sobresaliente
10 = matricula de honor
Algoritmo
E(Introducir y leer nota
P(verificar a que calificación corresponde la nota
S(la calificación es...
Pseudocodigo
BEGIN
WRITE ('Escriba una nota de 0 a 10 ')
READLN (nota)
WRITELN ('')
CASE nota OF
0....5: WRITE ('La calificación: Suspendido')
5.1...6.5: WRITE ('La calificación: Aprobado')
6.6....8.5: WRITE ('La calificación: Notable')
8.6....9.9: WRITE ('La calificación: Sobresaliente')
10 : WRITE ('La calificación: Matricula de Honor')
ELSE
WRITE(‘La calificación no existe’)
END.
5. Calcular la media de una serie de numeros positivos
Pseudocodigo
Begin
I=0
Repeat
Write(‘introduzca un numero’)
Read(num)
Suma=suma+num
Prom=suma/2
I=I+1
Until I=10
Write(‘La media es : Prom ‘)
End.
6.Suma de los numeros pares comprendidos entre 2 y 1000
Begin
N=2
C=0
S=0
Write( N )
While N<2 and N>1000
S=S+N
C=C+1
N=N+1
Write(‘La suma es: ‘)
End.
7. Se desea calcular independientemente la suma de los numeros pares e impares comprendidos
entre 1 y 200
Begin
C=1
Simp=0
Spar=0
While C<=200
Read(N)
S=N mod 2
If S=0 Them
Spar=Spar+N
Else
Simp=Simp+N
C=C+1
Write(‘La suma de los pares es: Spar’)
Write(‘La suma de los impares es:Simp’)
End.
8. Se introducen 100 numeros por teclado y se desea calcular la suma de los numeros pares, la suma de los numeros impares y la media de los numeros impares.
Begin
C=0
S=0
Par=0
Imp=0
While C<=100
Read(N)
S=Nmod2
If S=0 Them
S=S+N
Par=Par+1
C=C+1
Else
Imp=Imp+1
C=C+1
Simp=Simp+N
Prom=Simp/Imp
Write(‘La suma de los pares es’Par’,la
suma de los impares es’Imp’y el
promedio de los impares es’Prom’)
End.
|
