Tarea N°1 Programación Estructurada

Universidad Tecnológica de Panamá

Facultad de Ingeniería Civil

Métodos Numéricos

Tarea N°1

Pertenece a:

Peter Henríquez

Profesor:

Martin Candanedo

Grupo:

1IC123

Fecha

17/8/2016

Tarea N°1

Programación Estructurada

Problema 1. Escriba el seudocódigo para implementar el siguiente diagrama de flujo. Asegúrese de incluir la identidad apropiada para que la estructura sea clara.

Respuesta:

Input x

If x ≥ 10 then

       Do until x < 50

                  X = x – 5

                  If x < 50 then

End if

Loop

Elseif x < 5 then

          X= 5

Elseif x = 7.5 then

End if

Close.

Problema 2. Desarrolle, depure y documente un programa para determinar las raíces de una ecuación cuadrática, ax2 + bx + c = 0, en cualquier lenguaje, o de macros de su selección. Utilice un mecanismo para calcular si las raíces son reales o complejas. Ejecute corridas de prueba para los casos a=1, b=6, c=2; a=0, b=-4, c=1.6; a=3, b=2.5, c=7 (Nota: Presente el seudocódigo de su programa).

Respuesta:

Dim a, b, c, d as integer

Dim X1, X2 as integer

Input A, B, C

d = ((b^2)- (4*a*c))

If d < 0 then

               Messagebox (“Error”)

Else

               X1 = (-b + d) ^ (1/2)/ (2*a)

              X2 = (-b - d) ^ (1/2)/ (2*a)

End if

textboxX1 = x1

textboxX2 = x2

Problema 3. La función de coseno puede evaluarse por medio de la serie infinita siguiente:

[pic 1]

Escriba un diagrama de flujo y el pseudocodigo para implementar esta fórmula de modo que calcule e imprima los valores del cos(x) a medida que se agregan términos de la serie. En otras palabras, calcule e imprima la secuencia de valores para

[pic 2]

        [pic 3][pic 4]

        [pic 5][pic 6]

Respuesta:

Dim Fac as integer

Dim Val() as single

X = 2

M = val (inputbox (“Cantidad de términos”)) – 1

Redim valor(m)

Fac = 1

For n = 0 to m

         If n = 0 then

              Valor(0) = 1

              Msgbox (“Cosx =” & “  “  & valor(n))

        Else if n <> 0 then

              Factorial = factorial * n

              Valor(n) = ((-1) ^n) * (x ^(2 * n)) / (2 * fac)

              Msgbox(“Cosx = “ & “   “ & valor(n))

      End if

Next

Problema 4. El método antiguo de dividir y promediar, para obtener valores aproximados de la raíz cuadrada de cualquier número positivo a se puede formular como:

...