Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [QBasic] Подсчёт суммы квадратов

Автор: Nancy 28.11.2006, 16:56

Здравствуйте уважаемые программисты! Я понимаю, может я тут немного не в тему со своими сообщениями, но просто правда очень нужна ваша помощь. если кто может, напишите программу вот для такого выражения с учетом значений k, n и M. Заранее всем спасибо.

http://img392.imageshack.us/my.php?image=8473py6.jpg

Автор: Naghual 28.11.2006, 17:44

Название темы должно отражать ее суть!

Вам в раздел Работа.

Автор: ivashkanet 30.11.2006, 19:41

Цитата(Naghual @ 28.11.2006, 16:44

)

Вам в раздел Работа.

Да какая работа, тут делов-то на 5 минут smile

Qbasic я не знаю, но я посмотрел, что там все то же самое, только вместо return нужно писать имя функции Calculate

Код


    Public Function Calculate(ByVal k As Integer, ByVal n As Integer, ByVal m As Integer) As Single
        Dim numerator As Integer = 0
        Dim denominator As Integer = 0
        Dim i, j, l As Integer

        For i = 1 To k
            numerator = numerator + i
        Next
        For j = 1 To n
            numerator = numerator + j
        Next
        For l = 1 To m
            numerator = numerator + l
        Next

        denominator = k * k + n * n * m * m

        Return numerator / denominator
    End Function

Использование:

Код


Calculate(2, 2, 3)
Calculate(10, 20, 15)

Вопрос: а думать вам можно, а то эти суммы очень легко считаются и без циклов:

Код


numerator = (k + 1) * k / 2 + (n + 1) * n / 2 + (m + 1) * m / 2

Добавлено @ 19:49
Блин, нашел тему во флейме от этой же мадамы smile

Первая мысля была удалить свой пост, но потом увидев что она уже ее решила не удалил. Все равно ответ ей уже не нужен smile