Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.12.2008, 20:24   #1
Clockgen
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 66
Печаль Помогите написать функцию плиз.Не получается

Люди помогите написать функцию,а то совсем не получается.
Вот собственно задание:
Цитата:
Напишите нестанд функцию, которая имеет 4 аргумента стороны треугольника и размерность. В зависимости от значения аргумента размерности данная функция возвращает значение медиан (md=1/2корень(2*b^2+2*c^2-a^2) и т д), при условии, что треугольник существует. Если значение аргумента разрядность принимает другое значение, функция возвращает значение ошибку #число!
Как это можно сделать?
Clockgen вне форума
Старый 14.12.2008, 21:21   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

скопировать это в модуль
Код:
Function Mediana(a As Single, b As Single, c As Single, n As Integer)
  Dim s(3) As Single, max As Integer, i As Integer, sum As Single
  s(1) = a: s(2) = b: s(3) = c
  max = 1
  For i = 2 To 3
    If s(i) > s(max) Then max = i
  Next
  Mediana = "Не треугольник"
  sum = 0
  For i = 1 To 3
    If s(i) <= 0 Then Exit Function
    If i <> max Then sum = sum + s(i)
  Next
  If sum <= s(max) Then Exit Function
  Mediana = "#Число"
  If (n < 1) Or (n > 3) Then Exit Function
  sum = 0
  For i = 1 To 3
    If i <> n Then sum = sum + 2 * s(i) ^ 2
  Next
  Mediana = Sqr(sum - s(n) ^ 2) / 2
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 14.12.2008, 22:01   #3
Clockgen
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 66
По умолчанию

Спасибо вы опять меня выручили!
Clockgen вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать функцию Черничный Общие вопросы Delphi 4 13.08.2008 07:02
помогите плиз написать код на следующие вопросы delf7 Фриланс 1 03.01.2008 10:53
Плиз помогите калькулятор в Delphi написать!!!! intro Помощь студентам 2 11.12.2007 10:16