Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [QBasic] Подсчёт суммы квадратов 
:(
    Опции темы
Nancy
Дата 28.11.2006, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.11.2006

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

user posted image

Это сообщение отредактировал(а) Exception - 28.11.2006, 20:30
PM MAIL   Вверх
Naghual
Дата 28.11.2006, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 2
Всего: 49
Название темы должно отражать ее суть!

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


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
ivashkanet
Дата 30.11.2006, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149
Цитата(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


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0935 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.