Scribd
Upload
78 views7 pages

Cálculo de Volumen en Ingeniería Civil

This document appears to be a programming assignment submitted by Alejandro Arauz for a programming course at the Technological University of Panama. The assignment involves using integrals to calculate the area under a curve and the volume of a solid of revolution. The programming code uses loops and calculations to approximate the area and volume using the trapezoid rule, displaying the results in a datagrid and textboxes.

Uploaded by

lucas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
78 views7 pages

Cálculo de Volumen en Ingeniería Civil

This document appears to be a programming assignment submitted by Alejandro Arauz for a programming course at the Technological University of Panama. The assignment involves using integrals to calculate the area under a curve and the volume of a solid of revolution. The programming code uses loops and calculations to approximate the area and volume using the trapezoid rule, displaying the results in a datagrid and textboxes.

Uploaded by

lucas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Universidad Tecnológica de Panamá

Facultad de Ingeniería Civil

tarea

Integrales

Integrantes:

Arauz, Alejandro 8-890-164

Grupo:

1IC – 124

Profesor:

Mgtr. Emilio Batista Him

Curso:

Programación

Fecha de Entrega:

3 de mayo de 2017
Public Class Form1

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles [Link]

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


'Cerramos la aplicacion
[Link]()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]


'CAlculo de Area por medio de rectangulo
Dim x, y, z, F_area, h, a, b As Single
Dim c, n As Integer
a = Val([Link])
b = Val([Link])
c = Val([Link])
h = (b - a)
h = h / c
n = 0
[Link] = 200

While n < (c + 1)
If n = 0 Then
x = a + (h / 2)

End If
y = 7 * x - 8.5 * x ^ 2 + 3 * x ^ 3
x = x + h
z = z + y
If n = c - 1 Then
F_area = z * h

End If
n = n + 1
[Link](0, n).Value = ("x(" + [Link](n) + ")= " + [Link](x))
[Link](1, n).Value = (" Fx(i)=" + [Link](y))
[Link]("yy").[Link]([Link](n), y)

End While
[Link] = F_area
[Link](0, n + 1).Value = "Resultado ="
[Link](1, n + 1).Value = [Link](F_area)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]


'CAlculo de de Volumen
Dim x, y, z, F_area, h, a, b, PI As Single
Dim c, n As Integer
PI = 3.1416
a = Val([Link])
b = Val([Link])
c = Val([Link])
h = (b - a)
h = h / c
n = 0
[Link] = 200
While n < (c + 1)
If n = 0 Then
x = a + (h / 2)

End If
y = PI * (9 - x ^ 2)
x = x + h
z = z + y
If n = c - 1 Then
F_area = z * h
End If
n = n + 1
[Link](0, n).Value = (" X(" + [Link](n) + ")=" + [Link](x))
[Link](1, n).Value = (" Fx(i)=" + [Link](y))

End While
[Link] = F_area
[Link](0, n + 1).Value = "Resultado Volumen ="
[Link](1, n + 1).Value = [Link](F_area)
End Sub
End Class

You might also like