Вычисление значений функции с учетом её области определения

@MrNovak · Регистрация: 24.05.2016

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

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\frac{-(x-3)(x-5)}{-x+ln(sin x)}$

2. Математическая модель. В область определения данной функции входят все значения x отвечающие условиям:

· Логарифмическое выражение должно быть больше нуля, т.е. sin x > 0

· знаменатель не должен равняться нулю –x+ln(sin x) ¹ 0

3. Алгоритм. После математической модели, в данном случае, уместно составить блок-схему, она наглядно демонстрирует модель решения задачи: Вложение 116

4. Спроектируем эскиз формы:

5. Программа имеет вид:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
If sin (x) > 0 Then
 
If –x + log (sin (x)) < > 0 Then
 
y = -(x-3)*(x-5)/(–x + log (sin (x)))
 
Text2.Text = y
 
Text2.Text = "Значение " & x & " не входит в ОО функции."
 
Text2.Text = "Значение " & x & " не входит в ОО функции."

Алгоритм можете посмотреть во "Вложение 118"

6. Данную блок-схему можно оптимизировать если объединить условия в один блок и соединить их логическими функцией И (And).
Оптимизированная программа будет такой:

Visual Basic
1
2
3
4
5
6
7
If (sin (x) > 0) And (–x + log (sin (x)) < > 0) Then
 
y = -(x-3)*(x-5)/(–x + log (sin (x)))
 
Text2.Text = y
 
Text2.Text = "Значение " & x & " не входит в ОО функции."

7. Проверяем работоспособность программы по каждой ветви алгоритма, для различных значений x. Результаты:

1.Если х=2, то y=1.9663033;

2. Если х =3, то y = 0;

3. Если x = 6, то Значение 6 не входит в ОО функции.

Но вот проблема у меня это не работает, хотя всё делаю по инструкци. Как вы думаете где ошибка и как этот код должен быть написан.

А еще не можно вывести сообщение "Значение 6 не входит в ОО функции" когда вводят 6.

@Infinity20_5 · 27.05.2016, 18:42

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

Правила п 5.2

Да я просто дурачусь. Честно: никого не хотел обидеть. Извините.

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

когда я пишу 6 писало мне: Значение 6 не входит в ОО функции

MrNovak!
Задачи примитивные, поэтому никто не объясняет.
Секрет полишинеля. Преподы у нас темные, сами двух слов связать не могут.

Всё работает. Осилили толпой, наконец.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Double
x = InputBox ("Введите аргумент функции")
If Sin(x) > 0 Then
 If -(x - Log(Sin(x))) <> 0 Then
 y = (x - 3) * (x - 5) / (x - Log(Sin(x)))
Text1.Text = "x = " + Str(x)
Text2.Text = "y = " + Str(y)
MsgBox ("Значение функции = " + Str(y))
Text3.Text = "Значение  x =  " & Str(x) & " входит в ОО функции "
 End If
End If
 
If Sin(x) <= 0 Then Text3.Text = "Значение  x =  " & Str(x) & " не входит в ОО функции "
 
End Sub

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

SoftIce · 27.05.2016, 18:53

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

Секрет полишинеля. Преподы у нас темные, сами двух слов связать не могут.

Вот и я об этом. Оптимизаторы

. В VB6 такая оптимизация как в пункте 6 первого поста не пройдет, компилятор обязательно проверит оба условия и попытается получит логарифм отрицательного числа.
А вот в .Net все сработает. В какой среде они проверяли - непонятно.

SoftIce · 27.05.2016, 18:57

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private Sub Command1_Click()
    Dim x As Double, y As Double
    x = Val(Replace(Text1.Text, ",", "."))
    If (Sin(x) > 0) Then
        If (-x + Log(Sin(x))) <> 0 Then
             y = Sqr(-(x - 3) * (x - 5) / (-x + Log(Sin(x))))
             Text2.Text = Str(y)
         Else
             Text2.Text = "Значение " & Str(x) & " не входит в ОО функции."
         End If
    Else
          Text2.Text = "Значение " & Str(x) & " не входит в ОО функции."
    End If
End Sub

И в задании умышленно допущена ошибка, чтобы всякие хитрозадые студенты не копипастили, а ТС попался на эту удочку

@Infinity20_5 · 27.05.2016, 19:11

Не по теме:

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

всякие хитрозадые

Угу-у... лично затратил на эту задачу около 12 часов чистого времени. Чего и кого стесняться?

"Невидимая сторона Луны", как российская действительность — выжать как можно больше денег из родителей студентов, не дав никаких толковых знаний.
Такие кормушки сплошь и рядом, страна гниёт заживо.

@MrNovak · 28.05.2016, 11:44 **[ТС]**

SoftIce, Infinity20_5, Спасибо за помощь все работает.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@MrNovak 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 16
	28.05.2016, 11:44 [ТС]
	SoftIce, Infinity20_5, Спасибо за помощь все работает. 0

Вычисление значений функции с учетом её области определения

Решение