Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
#1

Функции и вычисление произведения - VB

30.11.2010, 19:26. Просмотров 1351. Ответов 15
Метки нет (Все метки)

Здравсвуйте! Прошу помочь решить 2 задания.

1 задание. Решить задание с использованием функции пользователя

http://uimg.net.ru/_ph/1/2/514682283.jpg


2 задание. В виде внешней подпрограммы оформить вычисление произведения и расчет количества перемножаемых элементов.

http://uimg.net.ru/_ph/1/2/169255383.jpg
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2010, 19:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функции и вычисление произведения (VB):

Вычисление суммы (произведения) ряда - Visual Basic
1.Составить программу вычисления суммы (произведения) первых n членов последовательности (k = 1, 2, 3.., n) 2.Составить программу...

Вычисление суммы (произведения) ряда - Visual Basic
Помогите пожалуйста с заданием, желательно в VB6: По заданной формуле члена последовательности с номером k составить две программы: ...

Вычисление скалярного произведения двух векторов - Visual Basic
Составить программу для вычисления скалярного произведения двух векторов. Исходные данные и результат должны быть представлены с двойной...

Найти произведения отрицательных значений функции - Visual Basic
1)Дана функция y = (x ^ 2 - 7 * x + 10) / (x ^ 2 - 8 * x + 12) -10<=x<=10 h=2,5 шаг Найти произведения отрицательных значений...

Вычисление суммы и произведения N членов ряда - Basic
дан ряд -2+5-8+11-14+.... и надо вычислить сумму и произведение N членов ряда вот у меня получилась такая маленькая прога, которая...

Вычисление функции - Visual Basic
Помогите пожалуйста!Нужна программа расчёта этого примера с использованием операторов If then else.(Большая просьба ничего заумного в...

15
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
30.11.2010, 19:57 #2
помочь или сделать?
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
30.11.2010, 20:02  [ТС] #3
если не трудно, то решить
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
30.11.2010, 20:53 #4
Цитата Сообщение от ~Jack~ Посмотреть сообщение
если не трудно, то решить
не трудно
только что решить (работаешь на просмотрах ?)
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
30.11.2010, 23:53  [ТС] #5
на скринах задачи их надо решить
0
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,437
Записей в блоге: 2
01.12.2010, 00:03 #6
Ну так скажи что не получается, тебе помогут без проблем
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
01.12.2010, 00:10 #7
Цитата Сообщение от ~Jack~ Посмотреть сообщение
их надо решить
О_о
во как !
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
01.12.2010, 00:44  [ТС] #8
Это второе задание. Исправьте мои ошибки пожалуйста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Private Sub proizv(n1 as Integer, n2 as Integer, b() as Integer, k1 as Single, p as Single, q as Single
Dim i AS Integer 
p=1 : q=0
For i = n1 to n2
p=p*b(i)/i + k1
q=q+1
Next i
End Sub
Private Sub cmdStart_click()
Const n=15
Dim b1 (1 to n) AS Single, i As Integer, 
Dim Y AS Single, s1 As Single, s2 As Single, s3 As Single, q1 Integer, q2 As Integer, q3 As Integer
Randomize Timer
For i = 1 to n
b1(1)=int(Rnd()*15)
Next i
Print "Элемент массива В"
For i = 1 to n
Print b1(i);
Next i
Print:Print
Call proizv (1, 15, b1, 4.7, s1, q1)
Call proizv (1, 5, b1, 5.5, s2, q2)
Call proizv (1, 12, b1, 0, s3, q3)
Y=s1+s2
Print "Y=" ; Y
Print "q1=", q1, "q2="; q2
End Sub
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
01.12.2010, 01:26 #9
Цитата Сообщение от ~Jack~ Посмотреть сообщение
b1(1)=int(Rnd()*15)
первая
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
04.12.2010, 17:14  [ТС] #10
Пожалуйста помогите решить!

Добавлено через 18 часов 0 минут
Готов заплатить 5$ за полное решение 2х задач. Кто возьмется?
0
Alex77755
10666 / 3241 / 535
Регистрация: 13.02.2009
Сообщений: 9,559
04.12.2010, 20:37 #11
Ты пишешь программу в блокноте?
Dim Y AS Single, s1 As Single, s2 As Single, s3 As Single, q1 Integer, q2 As Integer, q3 As Integer
Мой VB такго не поозволяет(и не подсвечивает)
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
04.12.2010, 22:10  [ТС] #12
Вот я вроде разобрался. Посмотрите правильно ли?
Условие:

http://www.cyberforum.ru/cgi-bin/latex.cgi?P=\prod_{i=1}^{15} bi\i /\i + 4,7 \prod_{i=1}^{5} b\i /\i - 5,5 \prod_{i=1}^{12} b\i /i

Где b\iota - элементы одномерного массива B=(b1, b2,...b15)
В виде внешней подпрограммы оформить вычисление произведения и расчет количества перемножаемых элементов.

Код программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Private Sub proizved(c As Single, n1 As Integer, n2 As Integer, b() As Integer, P As Single, q As Integer)
Dim i As Integer
P = 1: q = 0
For i = n1 To n2
P = (P * b(i)) / i
q = q + 1
Next i
proizved = c * P
End Sub
Private Sub cmdStart_Click()
Const n = 15
Dim b(1 To n) As Integer, i As Integer
Dim P As Single, p1 As Single, p2 As Single, p3 As Single, q1 As Integer, q2 As Integer, q3 As Integer
For i = 1 To n
b(i) = Val(InputBox("Введите " + Str(i) + " число", "Ввод массива"))
Print "Массив:"; b(i)
Next i
Call proizved(0, 1, 15, b(), p1, q1)
Call proizved(4.7, 1, 5, b(), p2, q2)
Call proizved(5.5, 1, 12, b(), p3, q3)
P = p1 + p2 - p3
Print "P="; P
Print "q1="; q1, "q2="; q2, "q3="; q3
End Sub
Private Sub cmdEnd_Click()
End
End Sub
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
04.12.2010, 22:17 #13
Цитата Сообщение от Alex77755 Посмотреть сообщение
Ты пишешь программу в блокноте?
очень близко к истине
0
~Jack~
12 / 12 / 3
Регистрация: 30.11.2010
Сообщений: 150
04.12.2010, 22:21  [ТС] #14
Есть ошибки в коде?

Добавлено через 1 минуту
Буюсь у меня в этом участке кода где то ошибка

Visual Basic
1
2
3
4
5
For i = n1 To n2
P = (P * b(i)) / i
q = q + 1
Next i
proizved = c * P
0
gaw
6632 / 1499 / 152
Регистрация: 09.01.2010
Сообщений: 4,272
04.12.2010, 22:36 #15
Цитата Сообщение от ~Jack~ Посмотреть сообщение
proizved = c * P
Цитата Сообщение от ~Jack~ Посмотреть сообщение
Print "Массив:"; b(i)
Цитата Сообщение от ~Jack~ Посмотреть сообщение
Call proizved(0, 1, 15, b(), p1, q1)
на первый взгляд
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2010, 22:36
Привет! Вот еще темы с ответами:

Вычисление функции - Visual Basic
Извините. Можете помощь еще 1. Даны три целых положительных числа А, В, С. Вычислить значение функции:

Вычисление функции - Visual Basic
Помогите написать на Visual Basic'e програмку для вычисления фун-ии: A*X^2 + B*X ЕСЛИ X<=0 S= B! ЕСЛИ 0<X<=5 ...

Вычисление значения функции - Visual Basic
Пожалуйста помогите решить, задание в вложенииПравила форума пункт 5.18 "Запрещено размещать задания и решения в виде картинок и других...

Вычисление значения функции - Visual Basic
оставить программу для вычесления значения функции Z=(3a-2b) ''вверху над скобкой 0,5'' потом на обычной строчке /c. ПОЖАЛУЙСТА ПОМОГИТЕ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru