Введение в информатику. Хамухин А.А. - 186 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

185
(A2:A11, B2:B11), первую строку использовать для подписи
заголовков столбцов (взять из лаб. раб. №4). Под таблицей поместить
командную кнопку «РАСЧЕТ».
2. Добавить на лист кнопку «РАСЧЕТ», открыть редактор VBA и
набрать фрагмент программы чтения с листа массивов X и Y (из
предыдущей лаб. раб. № 6). Переменную N (количество
экспериментальных точек в соответствии с индивидуальным
заданием) ввести с помощью функции оконного ввода INPUTBOX.
3. По расчетной формуле из лаб. раб. № 4 набрать программу расчета
коэффициента линейной регрессии (а) и и сравнить его с результатом,
полученным в лабораторной работе № 4 (должны полностью
совпасть).
4. Изменить заданный фрагмент программы в соответствии с
индивидуальным заданием
B
5. Проверить правильность расчета по индивидуальному заданию
путем набора заданной формулы в ячейке Excel, в отчете отразить
внесенные в программу изменения и полученные результаты
Фрагмент программы
'Считываем N из окна ввода
N = InputBox("ВВеди N", "Окно ввода", «Значение по умолчанию»)
‘************** сюда вставить фрагмент чтения с листа массивов X и Y,
подобный предыдущим лабораторным работам
'Вычислим все суммы в расчетной формуле
s1 = 0
s2 = 0
s3 = 0
s4 = 0
For i = 1 To N
s1 = s1 + X(i)
s2 = s2 + Y(i)
s3 = s3 + X(i) * Y(i)
s4 = s4 + X(i) ^ 2
Next i
'Вычисляем коэффициент линейной регрессии (а )и выводим его в окно
a = (N * s3 - s1 * s2) / (N * s4 - s1 ^ 2)
Call MsgBox("Коэффициент А= " & a, 0, "Результаты")
Индивидуальные задания
№
вар.
Расчетная формула
1
2

Страницы