Вычислить площадь фигуры - VB

Узнай цену своей работы

Формулировка задачи:

Доброе вреся суток! У меня возникла проблема. В универе дали задачу по программированию на VB6, но т.к. я ''дуб'' в математике, не могу решить её. Если кому не трудно, помогите бедному студенту получить зачет(( Скрин ниже...

Решение задачи: «Вычислить площадь фигуры»

textual
Листинг программы
Private Sub Command1_Click()
Dim stp, a, b, x, St, S
a = 1: b = 3
stp = (b - a) / 10
List1.Clear
x = a
Do While x < b
St = (x ^ 2 / (1 + x ^ 2)) * stp
S = S + St
List1.AddItem x & "  " & St
x = x + stp
Loop
List1.AddItem "----------------"
List1.AddItem " S = " & S & "ед.кв"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы