Процедуры и функции VB.Лабораторная.

Ребят,уже отчаялась.не знаю что и делать((
нужно сделать лабораторку.Если Вам не трудно,помогите)в долгу не останусь
вот текст задания:

Задача 1
А. Составить процедуру нахождения номера первого от начала значения элемента массива С(N), для которого справедливо неравенство: С (i)>В (N -заданное число).
В. Используя процедуру найти элементы первой строки массива Х(6,6), начиная с элемента строки, величина которого >0.01 (первого от начала строки) и до конца строки.
Задача 2
A.. Составить функцию для вычисления
У=1-х/2 +х2/4 - 2х3/3 + 4х4/7 - 5х5/8 +...
принимая: модуль аргумента X меньше единицы. Суммирование продолжать пока модуль разности между слагаемым и предыдущим слагаемым больше точности вычислений (малая заданная величина).
B. Напечатать таблицу значений функции У для аргумента X, принимающего значения от заданного начального до заданного конечного с заданным шагом.

0

Добавлено через 1 минуту

Сообщение от gulka231 У=1-х/2 +х2/4 - 2х3/3 + 4х4/7 - 5х5/8 +...

тут без опечаток?

1

вроде нет.скопировала из текта задания.
спасибо огромное!как вас отблагодарить?киньте номер телефона денежек на баланс хоть кину

0

Сообщение от gaw У=1-х/2 +х2/4 - 2х3/3 + 4х4/7 - 5х5/8 +...

как то не въеду в закономерность

0

там число,которое после х и до / - это степень х

Добавлено через 52 секунды
и можно спросить?что вот это означает??

Сообщение от gaw Me.AutoRedraw = True

0

автопрорисовка формы , по простому - если над формой будет какое то окно , то часть или весь текст на ней напечатанный будет затерт, Me.AutoRedraw = True - устраняет эту проблему
это можно выставить в свойствах формы (окошечко справа)

0

аа,спасибо
в общем я сегодня показала то,что вы написали по поводу первого задания,преподу,он сказал,что нужно вывести сначала исходный массив,а потом обработанный.я добавила туда парочку строк,чтоб выводился исходный массив,но тот стал выдавать ошибки.
что мне сделать можно в этом случае?

Добавлено через 7 минут
а не,все,поняла)извините))

0

привет)
вот такая у меня проблемка..он в результате выводит правильные числа,но в начале выводит еще ноль.как его оттуда убрать??

0

код в студию

0

а он выше.я его никак не меняла.как Вы прислали,так все и забила)
я ж пень))

0

а ноль может в анализируемой строке есть, так его и надо выводить по условию

0

неа,нету(
так и выводит ноль,когда его не должно быть,а если и выпадает такой случай,то пишет два ноля((

0

ну скопируйте сюда свой код

0

Public Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(6, 6) As Single, a1(6) As Single
Fl1.Rows = 7
Fl1.Cols = 7
Cls
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 9) - 4
Fl1.TextMatrix(i, j) = a(i, j)
If i = 1 Then a1(j) = a(i, j)
Next j
Next i

Call num(a1(), 0.01)
For i = ind To 6
Text1.Text = Text1.Text & " " & a(1, i)
Next i

End Sub


Option Explicit
Dim i As Integer, j As Integer
Dim ind As Integer
Dim b As Single
Dim a(6, 6) As Single, a1(6) As Single


Public Sub num(m() As Single, c As Single)
For i = LBound(m) To UBound(m)
If m(i) > c Then
ind = i
Exit Sub
End If
Next i
End Sub

0

0

спасибо)
только он все равно ноль выводит((
ладно,не напрягайтесь больше)так сдам

спасибо вам огромное!

0

Здравствуйте еще раз

по поводу второй задачи с функцией.Не могли бы Вы мне помочь вот с чем.

Option Explicit
Dim K As Double 'Точность
Dim X As Double 'Значение X
Dim Y As Double 'Зависимая переменная Y
Dim modul As Double 'Модуль разности между слагаемым и предыдущим слагаемым
Dim i As Integer 'Множитель и показатель степени Х
Dim shag As Double 'Шаг измерения
Dim Xn As Double 'Начальное значение Х
Dim Xk As Double 'Конечное значение Х
Function Fn(Z As Double) As Double
Y = 1 / Z
i = 3
Do
Y = Y + (1 / (i * Z * i))
modul = Abs((1 / (i * Z * i)) - (1 / ((i - 2) * Z * (i - 2))))
i = i + 2
Loop While modul > K
Fn = Y
End Function

Это код модуля для вот этого задания:Составить функцию для вычисления
У=1-х/2 +(х^2)/4 - (2х^3)/3 + (4х^4)/7 - (5х^5)/8 +...
принимая: модуль аргумента X меньше единицы. Суммирование продолжать
пока модуль разности между слагаемым и предыдущим слагаемым больше
точности вычислений (малая заданная величина).
B. Напечатать таблицу значений функции У для аргумента X, принимающего
значения от заданного начального до заданного конечного с заданным шагом.

А вот это код модуля для вот этого задания: Составить функцию для вычисления:
Y = 1 + 2/x + (2*3)/x^2 + (2*3*2)/x^3 + (2*3*2*3)/x^4 + ...
принимая, что модуль “x” больше 3. Вычисления про¬должать, пока модуль разности между слагаемым и его предыдущим значением больше малой заданной величины (точности вычислений). Напечатать таблицу значений функции “Y” для всех значений аргумента “х” от заданного начального до заданного конечного с заданным шагом изменения.

Option Explicit
Public tv As Single
Function Y(ByVal x As Single, ByRef t As Single) As Single
Dim pr!, sl!, s!
Dim m As Byte, zn%
s = 0: pr = 0: sl = 1: m = 2: zn = 1
Do While Abs(pr - sl) > t
s = s + sl
pr = sl: sl = sl * x / m
m = m + zn: zn = -zn
Loop
Y = s
End Function

в общем мне нужно чтобы первый код выглядел как второй.а сообразить что куда я не могу.слишком уже ограниченный у меня мозг((
помогите пожалуйста!((

0