Вычислить значение выражения

@nar10z · Регистрация: 04.12.2015

Author24 — интернет-сервис помощи студентам

a) Выполните задания предыдущей лабораторной работы (№ 6) с заданием n в окне InputBox и использованием процедуры пользователя для расчета по заданной формуле. Формирование исходных данных и вывод результатов в окно MsgBox выполнить в головной программе. Процедура пользователя не должна использовать глобальные переменные.

Visual Basic

Dim MyArr(19)
Dim y(19)
g=0
a=1
b=3
c=5
Randomize 
For i=0 to 19
 MyArr(i)= fix(10-20*Rnd)
Next
For i=0 to 19
e=MyArr(i)
y(i) = a* e*e + b* e +c
g=g+y(i)
Next
For Each z in y
t= t & z & vblf
Next
t= t & g & vblf
MsgBox t

b)Выполните задания лабораторной работы № 5 с заданием погрешности вычисления в окне InputBox и использованием функции пользователя для расчета числа π по заданной формуле. Формирование исходных данных и вывод результатов в окно MsgBox выполнить в головной программе. Функция пользователя не должна использовать глобальные переменные.

Visual Basic

eps=1e-5
a=1
s=0
n=0
t1=Time
Do 
a=((4/(8*n+1))-(2/(8*n+4))-(1/(8*n+5))-(1/(8*n+6)))*(1/16)^n
s=s+a : n=n+1
Loop While Abs(a)>eps
t2=Time
p=3*s
MsgBox "p = "&s&vbLf&_
"kolichestvo n = "&n&vbLF&_
"Rasch.vremya = "&FormatDateTime(t2-t1)&vbLf&_
"Pogreshnost' po a = "&FormatNumber(Abs (a), 15)

Помогите пожалуйста, а то все что я не сделаю преподавателю не нравится. Я уже не представляю как делать еще.

~~Shersh~~ · 25.03.2016, 11:23

nar10z, ничему не научитесь, если будете в блокноте кодить.

@nar10z · 25.03.2016, 11:27 **[ТС]**

Сообщение от Shersh

nar10z, ничему не научитесь, если будете в блокноте кодить.

Notepad++ именно в этой программе я кодил

~~Shersh~~ · 25.03.2016, 11:31

А запускать свои произведения пробовали?

@nar10z · 25.03.2016, 11:45 **[ТС]**

Да, они работают

~~Shersh~~ · 25.03.2016, 11:53

А как называется предмет обучения (или тема задания)?
Про VBS тут другой раздел - https://www.cyberforum.ru/vbscript-wsh/

@nar10z · 25.03.2016, 11:58 **[ТС]**

Xthn, извеняюсь

~~Shersh~~ Заблокирован
	25.03.2016, 11:23	2
	nar10z, ничему не научитесь, если будете в блокноте кодить. 0

@nar10z 1 / 1 / 4 Регистрация: 04.12.2015 Сообщений: 51
	25.03.2016, 11:27 [ТС]	3
	Сообщение от Shersh nar10z, ничему не научитесь, если будете в блокноте кодить. Notepad++ именно в этой программе я кодил 0

~~Shersh~~ Заблокирован
	25.03.2016, 11:31	4
	А запускать свои произведения пробовали? 0

@nar10z 1 / 1 / 4 Регистрация: 04.12.2015 Сообщений: 51
	25.03.2016, 11:45 [ТС]	5
	Да, они работают 0

~~Shersh~~ Заблокирован
	25.03.2016, 11:53	6
	А как называется предмет обучения (или тема задания)? Про VBS тут другой раздел - https://www.cyberforum.ru/vbscript-wsh/ 0

@nar10z 1 / 1 / 4 Регистрация: 04.12.2015 Сообщений: 51
	25.03.2016, 11:58 [ТС]	7
	Xthn, извеняюсь 0