Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 20.04.2010
Сообщений: 9
1

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

04.05.2010, 10:11. Просмотров 1336. Ответов 2
Метки нет (Все метки)

1 (Программирование функций)
Вычислить площадь правильного шестиугольника со стороной a, используя подпрограмму вычисления площади треугольника.
2 (Программирование процедур)
Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284). Найти все пары «дружественных чисел», которые не больше данного числа N.
3 ( Решите задачу, используя рекурсивную подпрограмму: )
Описать рекурсивную логическую функцию Simm(S, J), проверяющую, является ли симметричной часть строки S, начинающаяся г-м и кончающаяся -;-м ее элементами. ' '

Помогите с решением данных задач.
Если не трудно начиная с дим (вб 2008 тоже не плохо бы ))
Спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2010, 10:11
Ответы с готовыми решениями:

Программирование функций. Сделать решение задачи с использованием функций или процедур VBA excel
1. Заданы матрицы С(4,4) и D(3,3). Определить индексы макси- мального элемента каждой из матриц...

Программирование с использованием функций и процедур
Составить программу упорядочивания последовательности 3 данных чисел x,y,z по убыванию с...

Программирование с использованием процедур и функций
Даны действительные числа s, t. Получить: h(s,t)+min(h2(s+t,st), h4(s+t,s-t)), где h(a,b) =...

Программирование с использованием процедур и функций
Дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1, …, 2n простые числа, разность...

2
1604 / 1336 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
04.05.2010, 14:08 2
1. VB2008
vb.net
1
2
3
4
5
6
7
8
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
1
0 / 0 / 0
Регистрация: 20.04.2010
Сообщений: 9
06.05.2010, 17:22  [ТС] 3
Спасибо. А остальные кто-нибкдь знает как сделать. В принципе и на вб 6,0 на любом.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2010, 17:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программирование с использованием процедур и функций
Даны действительные числа u1, u2, v1, v2, w1, w2. Получить \frac{{2u}^{2}{w}^{2}}{2uv-5} , где u,...

Программирование с использованием процедур и функций
Найти произведение элементов двух массивов, стоящих на нечетных позициях.Заранее спасибо

Программирование с использованием процедур и функций
Народ помогите пожалуйста ...... Составить программу нахождения наибольшего общего делителя...

Программирование задач с использованием процедур и функций
Описать процедуру или функцию, вычисляющие сумму и скалярное произведение двух векторов длинной N....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.