Программирование функций, Программирование процедур, рекурсивную подпрограммa - VB

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

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

1 (Программирование функций)

Вычислить площадь правильного шестиугольника со стороной a, используя подпрограмму вычисления площади треугольника.

2 (Программирование процедур)

Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284). Найти все пары «дружественных чисел», которые не больше данного числа N.

3 ( Решите задачу, используя рекурсивную подпрограмму: )

Описать рекурсивную логическую функцию Simm(S, J), проверяющую, является ли симметричной часть строки S, начинающаяся г-м и кончающаяся -;-м ее элементами. ' ' Помогите с решением данных задач. Если не трудно начиная с дим (вб 2008 тоже не плохо бы )) Спасибо.

Решение задачи: «Программирование функций, Программирование процедур, рекурсивную подпрограммa»

textual
Листинг программы
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Single
        a = InputBox("A")
        MsgBox(area(a) * 6)
    End Sub
    Public Function area(ByVal a As Single) As Double
        area = (Math.Sqrt(3) / 4) * a ^ 2
    End Function

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


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

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

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