АльфаОмега

база знаний!

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


1с бухгалтерия [12]Английский язык [6]
Банковское дело [22]Безопасность жизнедеятельности [12]
Биология [5]Бухгалтерское дело [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]Социология [57]
Теория вероятностей [53]Теория оптимального управления [3]
Управление организацией [35]Физическая культура [42]
Философия [157]Финансовый анализ [99]
Финансы и кредит [236]Численные методы [8]
Эконометрика [15]Экономика предприятия [70]
Экономико математическое моделирование [48]Экономическая география [69]
Экономическая теория [99]Экономическая политика [23]
Юриспруденция [20]Другие предметы [39]

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



Option Base 1
Sub Main
Dim x (1 To 10) As Double 'Определён массив действительных чисел длины 10.
Dim Sum As Double, ResText As String 'Определена действительная переменная Sum и строковая ResText.
Dim i As Integer 'Целочисленная переменная.
For i =1 To 10
x(i)=i
Next i 'Цикл присвоения.
Sum=CSOS ( LBound (x), UBound(x), x) 'Обращение к CSOS -функции трёх переменных, определённая ниже. LBound, UBound - стандартные функции, определяющие границы изменения индексов массива.
ResText="Сумма квадратов целых чисел от " + _
Str(LBound(x)) + " до " + Str(UBound(x)) + _
" равна " + Str(Sum) ' Присвоение значений строковой переменной.
MsgBox ResText 'Вывод на экран в ящик "ОК".
End Sub
' Определение функции- процедуры CSOS(iFrom,iTo,x()) с указанием типа переменных.
Function CSOS (iFrom As Integer, _
iTo As Integer, x() As Double) As Double
Dim i As Integer
CSOS=0
For i= iFrom To iTo
CSOS=CSOS+x(i)^2
Next i
End Function



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

Категория: Прикладные программы | Добавил: alfa2omega
Просмотров:974 | Загрузок: 219 | Рейтинг: 0.0/0
  
Всего комментариев: 0
 
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Шпаргалки

>Шпаргалки

ПОДЕЛИТЬСЯ