Basic
Necesito saber en que parte (como) tengo que escribir lo siguiente en visual basic para que me de el resultado matemático que quiero.
10 A = 0
20 INPUT N
30 For X = 0 To 1 - 1 / N Step 1 / N
40 Y = Sqr(1 - X * X)
50 R = 1 / N * Y
60 A = A + R
70 Next X
80 Print "Area:"
90 Print 4 * A; "decimetros cuadrados"
Gracias por la colaboración
10 A = 0
20 INPUT N
30 For X = 0 To 1 - 1 / N Step 1 / N
40 Y = Sqr(1 - X * X)
50 R = 1 / N * Y
60 A = A + R
70 Next X
80 Print "Area:"
90 Print 4 * A; "decimetros cuadrados"
Gracias por la colaboración
1 Respuesta
Respuesta de rogersr
1
Inicias un Proyecto, en un Form pones un TextBox donde escribirás el valor de N, un Label para el Resultado y un CommandButton.
En el Evento Click del CommandButton pones el código. Deberá verse así:
Private Sub Command1_Click()
n = Val(Text1.Text)
A = 0
If n <= 0 Then 'Valida n
Label1.Caption = "Error - Cantidad no válida"
Text1.SetFocus
Exit Sub
End If
For X = 0 To 1 - 1 / n Step 1 / n
Y = Sqr(1 - X * X)
R = 1 / n * Y
A = A + R
Next X
Label1.Caption = "Area: " & 4 * A & " decimetros cuadrados"
End Sub
Lo ejecutas.
Suerte !
Rogers R.
En el Evento Click del CommandButton pones el código. Deberá verse así:
Private Sub Command1_Click()
n = Val(Text1.Text)
A = 0
If n <= 0 Then 'Valida n
Label1.Caption = "Error - Cantidad no válida"
Text1.SetFocus
Exit Sub
End If
For X = 0 To 1 - 1 / n Step 1 / n
Y = Sqr(1 - X * X)
R = 1 / n * Y
A = A + R
Next X
Label1.Caption = "Area: " & 4 * A & " decimetros cuadrados"
End Sub
Lo ejecutas.
Suerte !
Rogers R.
