Написать программный код по приведенной блок-схеме

@Adidasss · Регистрация: 23.04.2011

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

Ребята помогите плиз, программа есть в виде блок-схемы, но я чото туплю и немогу по ней составить программу.., ошибка с if-ами всё время.., блок-схема правильная. Суть программы в том, что есть уравнение: 2tg(x+7)=5sin(x) и получились корни на графике такие: -1,89; 2,92; и 4,39. И мне нужно с помощью этой программы, чтобы бэйсик вывел нам эти три корня.

SoftIce · 22.12.2012, 21:16

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

немогу по ней составить программу.., ошибка с if-ами всё время

Выкладывай, что есть, поправим

@Alex77755 · 22.12.2012, 21:19

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

Выкладывай, что есть, поправим

Поддерживаю!

@Adidasss · 23.12.2012, 22:54 **[ТС]**

Вот, но не знаю правильно или нет, что-то очень много всяких если и возвратов к первоначальному циклу i

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
Sub progr()
a = -2
b = 5
k = 0
h = (b - a) / 2
e = 0.000001
For i = 1 To 3
a1 = a + h * (i - 1)
b1 = a + h * i
If f(a1) * f(b1) < 0 And k < 3 Then
x1 = a1
g: x2 = x1
x1 = (a1 + b1) / 2
If f(x1) * f(b1) < 0 Then
a1 = x1
Else:
b1 = x1
End If
If Abs(x2 - x1) < e Then k = k + 1
GoTo i
Else: GoTo g
End If
Else: GoTo i
MsgBox (x1)
End Sub
Function f(x)
f = 2 * Tan(x + 7) - 5 * Sin(x)
End Function

@Alex77755 · 24.12.2012, 03:02

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
30
31
32
33
34
Sub progr()
 a = -2
 b = 5
 k = 0
 h = (b - a) / 2
 e = 0.000001
 
 For i = 1 To 3
               a1 = a + h * (i - 1)
               b1 = a + h * i
                
                If f(a1) * f(b1) < 0 And k < 3 Then
                        X1 = a1
                        X2 = X1
                        X1 = (a1 + b1) / 2
                        
                                If f(X1) * f(b1) < 0 Then
                                        a1 = X1
                                Else
                                        b1 = X1
                                End If
                                
                                If Abs(X2 - X1) < e Then
                                        k = k + 1
                               End If
                                                               
                    End If
Next i
 
 MsgBox (X1)
 End Sub
 Function f(x)
 f = 2 * Tan(x + 7) - 5 * Sin(x)
 End Function

@Adidasss · 24.12.2012, 11:30 **[ТС]**

Жаль, но почему-то выходит только один корень и то не правильный

@Alex77755 · 24.12.2012, 12:20

Visual Basic
1
MsgBox (X1)

что выводишь, то и показывает
Я проверил только соответствие If, Goto, Next i

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

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
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Комманда1_Click()
 progr
End Sub
Sub progr()
 a = -2
 b = 5
 k = 0
 h = (b - a) / 2
 e = 0.000001
 
 For i = 1 To 3
               a1 = a + h * (i - 1)
               b1 = a + h * i
                
                If f(a1) * f(b1) < 0 And k < 3 Then
                        X1 = a1
1
Debug.Print a1, b1, f(a1), f(b1)
                        X2 = X1
                        X1 = (a1 + b1) / 2
                        
                                If f(X1) * f(b1) < 0 Then
                                        a1 = X1
                                Else
                                        b1 = X1
                                End If
                                
                                If Abs(X2 - X1) < e Then
                                           k = k + 1
                                Else
                                            GoTo 1
                               End If
Debug.Print a1, b1, f(a1), f(b1)
                    MsgBox f(X1), , (X1)
           End If
Next i
 
 
 End Sub
 Function f(x)
 f = 2 * Tan(x + 7) - 5 * Sin(x)
 End Function

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Adidasss 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 9

	Написать программный код по приведенной блок-схеме 22.12.2012, 14:50. Показов 3123. Ответов 6 Метки нет (Все метки) Ребята помогите плиз, программа есть в виде блок-схемы, но я чото туплю и немогу по ней составить программу.., ошибка с if-ами всё время.., блок-схема правильная. Суть программы в том, что есть уравнение: 2tg(x+7)=5sin(x) и получились корни на графике такие: -1,89; 2,92; и 4,39. И мне нужно с помощью этой программы, чтобы бэйсик вывел нам эти три корня. Миниатюры 0

@Adidasss 0 / 0 / 0 Регистрация: 23.04.2011 Сообщений: 9
	24.12.2012, 11:30 [ТС]
	Жаль, но почему-то выходит только один корень и то не правильный 0