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

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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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, извеняюсь

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

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

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

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

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

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