АльфаОмега

база знаний!

Приветствую Вас, Гость | RSS
Форма входа
Логин:
Пароль:
...


1с бухгалтерия [12]Английский язык [6]
Банковское дело [22]Безопасность жизнедеятельности [12]
Биология [7]Бухгалтерское дело [166]
Бухгалтерский учет [129]Информатика [91]
Инновационный менеджмент [12]История экономики [80]
История экономических учений [162]Концепции современного естествознания [54]
Конфликтология [18]Культурология [45]
Линейная алгебра [72]Линейное программирование [7]
Макроэкономика [43]Маркетинг и реклама [68]
Математическая статистика [21]Математический анализ [50]
Менеджмент [141]Микроэкономика [39]
Мировая экономика [85]Моделирование портфеля ценных бумаг [19]
Основы предпринимательства [44]Отечественная история [39]
Политология [27]Правоведение [74]
Прикладные программы [21]Психология и педагогика [159]
Региональная экономика [81]Социология [58]
Теория вероятностей [53]Теория оптимального управления [3]
Управление организацией [35]Физическая культура [42]
Философия [157]Финансовый анализ [99]
Финансы и кредит [236]Численные методы [8]
Эконометрика [15]Экономика предприятия [70]
Экономико математическое моделирование [48]Экономическая география [69]
Экономическая теория [99]Экономическая политика [23]
Юриспруденция [20]Другие предметы [39]

Функция – формула пользователя STATISTICA Visual Basic



(3.1 Kb), 23.01.2012, 22:55

Option Base 1

Function Power(X,Y) 'Определим первую функцию - формулу

    P =(X^Y)

    Power = P

End Function

Function Vower(X,Y) 'Определим вторую функцию - формулу

    W =Sqrt(X^2+Y^2)

    Vower =W

End Function

'Теперь используем их в одной программе.

Sub Main

Dim i As Integer

GFD=" "

For i=1 To 10

GFD=GFD+"i="+Str(i)+";"+Str(Power(2+i,4-i))+";"+Str(Vower(2+i,4-i))+";"

Next i

GFD="Получите и пользуйтесь"+GFD

Debug.Print GFD

MsgBox GFD

End Sub

'Получите и пользуйтесь i= 1; 27; 4.24264068711928;i= 2; 16; 4.47213595499958;

'i= 3; 5; 5.09901951359278;i= 4; 1; 6;i= 5; .142857142857143; 7.07106781186548;

'i= 6; .015625; 8.24621125123532;i= 7; 1.37174211248285E-03; 9.48683298050514;

'i= 8; .0001; 10.770329614269;i= 9; 6.20921323059155E-06; 12.0830459735946;

'i= 10; 3.34897976680384E-07; 13.4164078649987;




Похожие материалы
Язык программирования
Уровни языков программирования
Поколения языков программирования
Объектно-ориентированное программирование (ООП)
Теоретические основы информатики. Информатика как наука

Категория: Прикладные программы | Добавил: alfa2omega
Просмотров:827 | Загрузок: 140 | Рейтинг: 0.0/0
  
Всего комментариев: 0
 
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
ПОДЕЛИТЬСЯ
...