Табулирование функции

@Olya4204 · Регистрация: 23.06.2020

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

Протабулировать функцию g=f(x) при каждом значении переменной x, на указанном интервале с заданным шагом. Выполнить задания с оператором цикла For…NEXT. Найти минимальное значение g. Результаты вывести на рабочий лист с названиями переменных. Вывод данных начать с ячейки (R,C), где R – номер варианта по списку, С=R+1.

Построить график при x (-2;2), шаг 0,2

g= $https://www.cyberforum.ru/cgi-bin/latex.cgi?(1+{x}^{2})/\sqrt{1+{x}^{4}}$ при x<=0
g= $https://www.cyberforum.ru/cgi-bin/latex.cgi?2x+{sin}^{2}(x)/2x$ при x > 0

@Тим70 · 23.06.2020, 17:54

Olya4204, Ну в краце так,если я правильно понял ваши формулы

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
Private Sub Command2_Click()
Picture1.Scale (-2, 5)-(2, 0) 'задаем свои координаты
Picture1.DrawWidth = 4 'толщина точки
 
Dim x As Single
Dim g As Single, mn!, n%
mn = 10
 
For x = -2 To 2 Step 0.2
x = Round(x, 1)
If x <= 0 Then
g = (1 + x ^ 2) / Sqr(1 + x ^ 4)
Picture1.PSet (x, g), vbRed 'Рисуем точки
If g < mn Then mn = g 'ищем минимум
List1.AddItem ("x=" & x & "   g=" & g) 'выводим в листбокс
 
Else
g = 2 * x + Sin(x) ^ 2 / (2 * x)
Picture1.PSet (x, g), vbRed
 
List1.AddItem ("x=" & x & "   g=" & g)
If g < mn Then mn = g 'ищем минимум
 
End If
Next x
 
Label1.Caption = mn
End Sub

@Тим70 · 24.06.2020, 09:33

Olya4204, А вот так график сплошной и с осями координат.Для этого из значений создадим массивы

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 Command1_Click()
Picture1.Scale (-2, 5)-(2, -0.1) '
Picture1.DrawWidth = 4 '
Dim X() As Single
Dim g() As Single, n%, mn!
mn = 1000
n = -1
For i = -2 To 2 Step 0.2
n = n + 1
ReDim Preserve X(n), g(n)
X(n) = i
X(n) = Round(X(n), 1)
If X(n) <= 0 Then
g(n) = (1 + X(n) ^ 2) / Sqr(1 + X(n) ^ 4)
Picture1.PSet (X(n), g(n)), vbRed 
If g(n) < mn Then mn = g(n) 
List1.AddItem ("x=" & X(n) & "   g=" & g(n))
 
Else
g(n) = 2 * X(n) + Sin(X(n)) ^ 2 / (2 * X(n))
Picture1.PSet (X(n), g(n)), vbRed
List1.AddItem ("x=" & X(n) & "   g=" & g(n))
If g(n) < mn Then mn = g(n) 
 
End If
Next i
 
Picture1.DrawWidth = 1 'ширина линии
For i = 1 To n
Picture1.Line (X(i - 1), g(i - 1))-(X(i), g(i)), vbBlue
Next i
 
'оси координат
Picture1.DrawWidth = 1
Picture1.Line (-2, 0)-(2, 0)
Picture1.Line (0, 5)-(0, 0)
Picture1.CurrentX = 0
Picture1.CurrentY = 0.3
Picture1.Print (0)
 
Label1.Caption = mn
End Sub

@Catstail · 27.06.2020, 08:58

Тим70, неужели трудно отформатировать текст по-человечески?

@Тим70 · 27.06.2020, 11:17

Catstail, Как то не подумал...

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	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 и. . .

@Olya4204 0 / 0 / 0 Регистрация: 23.06.2020 Сообщений: 1

	Табулирование функции 23.06.2020, 10:43. Показов 756. Ответов 4 Метки нет (Все метки) Протабулировать функцию g=f(x) при каждом значении переменной x, на указанном интервале с заданным шагом. Выполнить задания с оператором цикла For…NEXT. Найти минимальное значение g. Результаты вывести на рабочий лист с названиями переменных. Вывод данных начать с ячейки (R,C), где R – номер варианта по списку, С=R+1. Построить график при x (-2;2), шаг 0,2 g= $https://www.cyberforum.ru/cgi-bin/latex.cgi?(1+{x}^{2})/\sqrt{1+{x}^{4}}$ при x<=0 g= $https://www.cyberforum.ru/cgi-bin/latex.cgi?2x+{sin}^{2}(x)/2x$ при x > 0 0

@Catstail Супер-модератор 38193 / 21126 / 4309 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	27.06.2020, 08:58
	Тим70, неужели трудно отформатировать текст по-человечески? 0

@Тим70 Любитель 1044 / 750 / 161 Регистрация: 27.01.2019 Сообщений: 1,517
	27.06.2020, 11:17
	Catstail, Как то не подумал... 0