Лабораторная работа

@Captain · Регистрация: 25.11.2010

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

Помогите, пожалуйста, правильно завершить лаб. работу. Задание ниже :

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

Private Sub Form_Load()
t = 0.1
For i = 1 To 6
Combo1.AddItem (t)
t = t / 10
Next
Combo1.Text = Combo1.List(0)
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "exit"
End
Case "run"
1:
m = Slider1.Value
Ii1 = 0
iter = 1
If Combo1.Text = Combo1.List(0) Then t = 0.1
If Combo1.Text = Combo1.List(1) Then t = 0.01
If Combo1.Text = Combo1.List(2) Then t = 0.001
If Combo1.Text = Combo1.List(3) Then t = 0.0001
If Combo1.Text = Combo1.List(4) Then t = 0.00001
If Combo1.Text = Combo1.List(5) Then t = 0.000001
h = (1.5 - 0.5) / m
2: For x = 1 To m - 1
Ii1i = h / (Cos(x) ^ 2 + Exp(x) * Abs(x + Log(x)))
Ii1 = Ii1 + Ii1i
Next
If Abs(Ii1i) > t Then
h = h / 2
End If

Label7.Caption = Str(Ii1)
Case "rect"
MsgBox ("Метод выбран.")
Case "trap"
MsgBox ("Выбранный метод не поддерживается.")
Case "simpson"
MsgBox ("Выбранный метод не поддерживается.")
Case "help"

End Select
End Sub

@gaw · 25.11.2010, 19:18

Captain
собственно задание и сам код --- как бы не совсем одно и то же

@Captain · 25.11.2010, 19:26 **[ТС]**

То есть, я что-то неправильно в коде написал. А как надо ? Можешь написать как правильно, плиз ? А то я не совсем понимаю...

@gaw · 25.11.2010, 22:49

ну как то так

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
Private Sub Command1_Click()
Dim f As Double, I As Double, df As Double
Dim x0 As Double, n As Long, h As Double
Const a = 0.5, b = 1.5, eps = 0.000001
List1.Clear
I = 0: n = 2
1: f = 0
h = (b - a) / n
For x0 = a + h To b Step h  ' для пр.   ////  x0 = a To b - h Step h --- для лев.
f = f + fn(x0) * h
Next x0
df = Abs(I - f)
If df > eps Then
I = f
List1.AddItem "I=" & I & "    ---  eps=" & df & "   ---  n=" & n
n = n + 1
GoTo 1
Else
List1.AddItem "---------------"
List1.AddItem "I=" & I & "    ---  eps=" & df & "   ---  n=" & n
 
End If
 
End Sub
Function fn(x As Double) As Double
fn = 1 / (Cos(x) ^ 2 + Exp(x) * Abs(x + Log(x)))
End Function

@Captain · 05.12.2010, 12:42 **[ТС]**

Спасибо.
Только у меня лаба имеет вид:
http://imglink.ru/show-image.p... 576698e5dd
Я когда заменяю текст кода на ваш, то оно перестаёт работать.
Я если честно чайник в VB, да и в остальных языках программирования. Помогите, плиз)

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Captain 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 7

	Лабораторная работа 25.11.2010, 17:43. Показов 1585. Ответов 4 Метки нет (Все метки) Помогите, пожалуйста, правильно завершить лаб. работу. Задание ниже : Вот мой текст программы, который должен быть дополнен после места, выделенным красным. Там насколько я знаю нужно использовать точность, которую я ввожу, но как это сделать ? Подскажите, пожалуйста. Private Sub Form_Load() t = 0.1 For i = 1 To 6 Combo1.AddItem (t) t = t / 10 Next Combo1.Text = Combo1.List(0) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "exit" End Case "run" 1: m = Slider1.Value Ii1 = 0 iter = 1 If Combo1.Text = Combo1.List(0) Then t = 0.1 If Combo1.Text = Combo1.List(1) Then t = 0.01 If Combo1.Text = Combo1.List(2) Then t = 0.001 If Combo1.Text = Combo1.List(3) Then t = 0.0001 If Combo1.Text = Combo1.List(4) Then t = 0.00001 If Combo1.Text = Combo1.List(5) Then t = 0.000001 h = (1.5 - 0.5) / m 2: For x = 1 To m - 1 Ii1i = h / (Cos(x) ^ 2 + Exp(x) * Abs(x + Log(x))) Ii1 = Ii1 + Ii1i Next If Abs(Ii1i) > t Then h = h / 2 End If Label7.Caption = Str(Ii1) Case "rect" MsgBox ("Метод выбран.") Case "trap" MsgBox ("Выбранный метод не поддерживается.") Case "simpson" MsgBox ("Выбранный метод не поддерживается.") Case "help" End Select End Sub 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	25.11.2010, 19:18
	Captain собственно задание и сам код --- как бы не совсем одно и то же 0

@Captain 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 7
	25.11.2010, 19:26 [ТС]
	То есть, я что-то неправильно в коде написал. А как надо ? Можешь написать как правильно, плиз ? А то я не совсем понимаю... 0

@Captain 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 7
	05.12.2010, 12:42 [ТС]
	Спасибо. Только у меня лаба имеет вид: http://imglink.ru/show-image.p... 576698e5dd Я когда заменяю текст кода на ваш, то оно перестаёт работать. Я если честно чайник в VB, да и в остальных языках программирования. Помогите, плиз) 0