Algoritmos

Taller

1. Elaborar un algoritmo que permita calcular y mostrar la suma de los cuadrados de los números comprendidos entre 1 y 10.

Programa cuadrados (Para)

Var s, i, c: entero

Inicio

S=0

Para i=1 hasta 10 haga

c=i*i

s= s +c

Fin para

Mostrar (s)

Fin

Programa cuadrados (Mientras)

Var s, i, c: entero

Inicio

S=0

i=1

Mientras i<=10 haga

c=i*i

s=s+i

i=i+1

Fin mientras

Mostrar (s)

Fin

Programa cuadrados (Repita)

Var s, i, c: entero

Inicio

s=0

i=1

Repita

c=i*i

s=s+c

i=i+1

Hasta i>10

Mostrar (s)

Fin

2. Realice el ejercicio anterior pero que almacene los datos en un arreglo.

Programa cuadrados

Var A: Arreglo [1...10] of entero

i: entero

Inicio

S=0

Para i=1 hasta 10 haga

A[i]=i*i

S= s+A[i]

Fin Para

Mostrar (s)

Fin

3. Escribir un algoritmo que muestre los números múltiplos de 4 comprendidos entre 1 y 40.

Programa múltiplos (Para)

Var i, M: entero

Inicio

Para i=1 hasta 40 haga

M=i mod 4

Si M=0 entonces

Mostrar (i)

Fin Si

Fin Para

Fin

Programa múltiplos (Mientras)

Var i, M: entero

Inicio

Mientras i <= 40 haga

M=i mod 4

Si M=0 entonces

i=i+1

Mostrar (i)

Fin si

Fin Mientras

Fin

Programa múltiplos (Repita)

Var i, M: entero

Inicio

i=1

Repita

M= i mod 4

Si M=0 entonces

i=i+1

Hasta i=40

Mostrar (M)

Fin si

Fin

4. Realice el ejercicio anterior pero que almacene los datos en un arreglo.

Programa múltiplos

Var A: Arreglo [1…40] of entero

i, M: entero

Inicio

Para i=1 hasta 40 haga

Pedir (“Digite el numero”)

Leer (A[i])

Fin Para

Para i=1 hasta 40 haga

M= A[i] mod 4

Si M=0 entonces

Mostrar (“El numero es múltiplo de 4”)

Fin si

Fin para

Fin

5. Escribir un algoritmo que muestre los números pares comprendidos entre 1 y 50.

Programa Par (Para)

Var P, i: entero

Inicio

Para i=1 hasta 50 haga

P= i mod 2

Si P=0 entonces

Mostrar (i)

Fin si

Fin para

Fin

Programa Par (Mientras)

Var P, i: entero

Inicio

Mientras i<=50 haga

P= i mod 2

Si P=0 entonces

Mostrar (i)

Fin si

Fin mientras

Fin

Programa par (Repita)

Var P, i: entero

Inicio

Repita

P= i mod 2

Si P=0 entonces

i=i+1

Hasta i=50

Mostrar (i)

Fin si

Fin

6. Realice el ejercicio anterior pero que almacene los datos en un arreglo

Programa par

Var A: Arreglo [1…50] of entero

P, i: entero

Inicio

Para i=1 hasta 50 haga

Pedir (“Digite número”)

Leer (A[i])

Fin para

Para i=1 hasta 50 haga

P= A[i] mod 2

Si P=0 entonces

Mostrar (“El número es par”)

Fin si

Fin para

...