PROGRAMACIÓN Y MÉTODO NUMÉRICO

Unidad 7

Calcular el seno (x) en c++

#incluide “stafx.h”

#incluide <iostream>

#incluide <math.h>

Using std :: cin;

Using std :: cout;

Using std :: endl;

Int_tmain (int argc, _tchar * argv)

{

Whi (true)  {

Long doublé x= 0, fat, sen=0, y=0;

Int N= 0, i= 0, u=0, sig=-1;

Doublé a = 0, b = 0;

Fact= 1;

Cout<< “ingrese el número de repeticiones” <<endl; cin >> x;

x= x+ 3.141618/ 180;

sen= x ;

doublé base = 0, exponente = 0, potencia = 0, potenciaz = 0;

for (i = 2; ic = N ; i ++){

fact = fact * (2 * i-1) * (2*i-2);

u= (2* i-1);

b = pow (x,u);

sen = sen + ((sig)*b) / fat ;

sig = -sig ;

}

Cout << “seno (x) calculado = “<<sencc endl ;

Cout << “seno (x) teorico = <<sin (x) << endl ;

Y= (sin (x) –sen ) / sin (x)

Cout<< “el valor absoluto (%) = “<<abs (y*100) <<endl ;

Cout<< “está perfecto ponga 5” <<endl ;

}

Return 0,

}

Unidad 6:

Ejemplo 1:
Range ("C4"). Name:

Hace referencia al nombre del objeto Range  que se encuentra en la celda C4.

Ejemplo 2:

Range("B7").Select: 

Permite seleccionar y activar la celda B7 y ponerla a disposición  para una operación.

Ejercicios Unidad 5

Ejemplifique varias diagonales sucesivas a través de la acumulación de texto, con datos introducidos por teclado.

Private Sub CommandButton1_Click ()

Dim i As Interger
Dim j As Interger

Hoja1.Cells (1, 1) = "DICIEMBRE"
        For i = 2 To 8
               For j = 1 To i
                      If ((i + j) Mod 2) = 0 Then
                            Hoja1.Cells (i, j) = Hoja1. Cells (1, 1)
                     End If
               Next j
        Next i

End sub

Ejercicios de las Unidades 3 y 4

Realice un vector que contenga los siguientes elementos: Nombre, apellido, edad y dirección, de 5 estudiantes.

Private Sub Command1_Click  (  )
   Datos Personales "Jonás " "Milano" "18” “sector centro”
   Datos Personales "María" "Arzola" " 18” “el corozo”
   Datos Personales "Héctor" "Peña" "20” “vipedi”
   Datos Personales "Jennifer" "Gota" "19” “la florida”
   Datos Personales "María" "Ribas" "19" “las industrias”
 Print
End

Realice y diseñe un vector que muestre por pantalla los botones de una calculadora (Adición, Sustracción, Multiplicación y División).

• Botón Nuevo Cálculo:

 Private Sub Command5_Click  (  )
   Text 1 = "  "
   Text 2 = "  "
   Text 3 = "  "
   Text 1, Setfocus
   End Sub

• Botón Sumar:

Private Sub Command4_Click  (  )
   Text 3 = Val (Text 1) + Val (Text 2)
 End Sub

• Botón Restar:

Private Sub Command3_Click  (  )
   Text 3 = Val (Text 1) - Val (Text 2)
 End Sub

• Botón Multiplicar:

Private Sub Command2_Click  (  )
   Text 3 = Val (Text 1) * Val (Text 2)
 End Sub

• Botón Dividir:

Private Sub Command1_Click  (  )
   Text 3 = Val (Text 1) / Val (Text 2)
 End Sub