Algoritmos Repetitivos

1) Hacer un programa que al dar la hora hh, mm, ss., muestre las

Horas, minutos y segundos y también nos calcule la hora

Después de 2 segundos.

Inicio

Leer hh, mm, ss.

Si (hh < 24) y (mm<60) y (ss >60) entonces

Ss <-- ss + 2

Si ss = 60 entonces

Ss <-- 0

mm <-- mm + 2

Si mm = 60 entonces

mm <-- 0

hh <-- hh + 2

Si hh = 24 entonces

Hh <-- 0

Fin sí

Fin sí

Fin sí

Fin Si

Escribir hh, mm, ss.

Fin

2) Hacer un programa que lea 2 números y deducir si están en orden

Creciente o decreciente.

Inicio

Leer a, b

Si a <= b entonces

Escribir "orden creciente"

Sino

Escribir "orden decreciente"

Fin sí

Fin

3) Calcular el número mayor de una lista de números.

Real: UM, MAX

Entero: I, N

Inicio

Leer N // N >0

Leer NUM

MAX <-- NUM

Desde I <-- 2 hasta 100 hacer

Leer NUM

Si NUM > MAX entonces

MAX <-- NUM

Fin sí

Fin desde

Fin

4) De una lista de 100 números determinar simultáneamente

El máximo y mínimo número.

I: entero

MAX, MIN, NÚMERO: real

Inicio

Leer NÚMERO

MAX <-- NUMERO

MIN <-- NUMERO

Desde I <-- 2 hasta 100 hacer

Leer NÚMERO

Si NUMERO > MAX entonces

MAX <-- NUMERO

Sino

Si NUMERO < MIN entonces

MIN <-- NUMERO

Fin sí

Fin sí

Fin desde

Escribir "máximo", MAX, "mínimo", MIN

Fin

5) ¿Calcular las raíces de una ecuación de segundo grado (a²+bx+c=0)?

Variables

A, b, c, x¹, x²

Inicio

Leer a, b, c

d_ (b²)-(4*a*c)

Si a<>0 y d>=0 entonces

x¹_ (-b + sqrt (d))\ (2*a)

x²_ (-b - sqrt (d))\ (2*a)

Imprimir x¹, x²

Sino

Imprimir “no se efectúa la operación"

Fin si

Fin

6) Se ingresan 5 notas de un alumno, publicar 2 peores notas.

Inicio

Dimensionar a [100]

x <-- 1

Mientras x <= 5 hacer

Leer a[x]

x <-- x + 1

Fin mientras

x <-- 1

Mientras x <= 5 hacer

y <-- 1

Mientras y <= 5 hacer

Si a[x] < a[y] entonces

T <-- a [x]

A[x] <-- a[y]

A[y] <-- T

Fin sí

y <-- y + 1

Fin mientras

y <-- y + 1

Fin mientras

//publicar

x <-- 5

Mientras x >= 2 hacer

Escribe a [x]

x <-- x + 1

Fin mientras

Fin

7) ¿Dada la duración en minutos de una llamada calcular el costo, considerando?

-Hasta tres minutos el costo es 0.50

-Por encima de tres minutos es 0.50 más 0.1*cada minuto adicional a los tres primeros

Variables

M, C

Inicio

Leer M

Si M<=3

C_0.50

Sino

C_0.50+0.1*(M-3)

Fin si

Imprimir el "C"

Fin

8) ¿Dada N notas calcular el promedio de las notas aprobadas y el promedio de las notas desaprobadas?

Variables

N, C, S, I, nota, S¹, S², Pa, Pd

Inicio

Leer N

I_1

S¹_0

S²_0

C_0

S_0

Mientras I<=N hacer

Leer nota

Si nota>=12 entonces

S¹_ S¹+nota

C_ C+1

Sino

S²_S²+nota

S_S+1

Fin si

I_I+1

Fin mientras

Pa_ suma1\C

Pd_ suma2\S

Imprimir Pa, pd

Fin

9) ¿Dado N calcular:(1¹)+ (2²)+ (3³)+......+(N*N)?

Variables

N, I, S

Inicio

Leer N

I_1, S_0

Mientras I<=N hacer

S_S+ (I*I)

Fin mientras

Imprimir S

Fin

10) ¿Dado N y X calcular: x1/1+x3/3+x5/5+...........+x (2n)-1?

Variables

I, N

Inicio

...