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

@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.

@Alex77755 · 26.05.2016, 09:19

Хм!
Это, стесняюсь спросить, что? Зачем столько букв?
Вопрос-то как звучит?

Но вот проблема у меня это не работает

Текст задания работать не может!
Покажи свой код!

@MrNovak · 26.05.2016, 16:55 **[ТС]**

Alex77755,

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

Текст задания работать не может!
Покажи свой код!

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 & " не входит в ОО функции."

echs · 26.05.2016, 19:08

А такая вещь как END IF вам не нужна?

@MrNovak · 26.05.2016, 19:27 **[ТС]**

geh, Вот мне нужно помочь. Как его дописать.

echs · 26.05.2016, 20:30

Возьмите форму. Киньте на нее кнопку и текстовое поле
И этот код поместите в процедуру (для кнопки)

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

@MrNovak · 26.05.2016, 20:43 **[ТС]**

geh, оно 2 не правильно считает, там ответ должен быть Еслих=2, то y=1.9663033.
И при вводе 6 выбивает ошибку, а должно "Значение 6 не входит в ОО функции".
Ниже прикрепил скрины.

Код имеет такой вид:

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

echs · 26.05.2016, 20:58

MrNovak
Вы извините пожалуйста. Моя ошибка.
Надо вместо операции AND поставить OR
....
проглядел...

Добавлено через 1 минуту
Считает правильно. Это погрешность.

@MrNovak · 26.05.2016, 21:13 **[ТС]**

geh, Всё равно не работает. Это наверное что-то не реальное((

@MrNovak · 26.05.2016, 21:18 **[ТС]**

geh, Я ещё такой написал

Visual Basic
1
2
3
x = Text1.Text
If Sin(x) > 0 And -x + Log(Sin(x)) <> 0 Then y = Sqr(-(x - 3) * (x - 5) / (-x + Log(Sin(x))))
Text2.Text = y

он считает уже ближе, но всё равно не правильно. я не могу понять как написать "Если x = 6, то Значение 6 не входит в ОО функции".

echs · 27.05.2016, 07:20

MrNovak
я не могу понять как написать "Если x = 6, то Значение 6 не входит в ОО функции".

Пишут так
"Если x = " & Str(x) & ", то Значение" & Str(x) &"не входит в ОО функции"

@MrNovak · 27.05.2016, 07:39 **[ТС]**

geh, оно все равно не работает. В чем ошибка я не понимаю. Оно не правильно считает и когда я считаю 6 оно ошибку пишет в место того что-бы писать "Значение 6 не входит в ОО функции."

echs · 27.05.2016, 08:05

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

Visual Basic
1
2
3
4
5
6
If "условие" Then
   "Вычисление"
   "Вывод результата"
Else
    "Вывод сообщения об ОО"
End If

И тогда не будет никаких ошибок

SoftIce · 27.05.2016, 09:19

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

Как вы думаете где ошибка и как этот код должен быть написан

Одной из причин ошибки является Ваша лень. Код должен быть, как вы правильно сказали, написан

@paau · 27.05.2016, 10:06

Вместо этого:

Visual Basic
1
If Sin(x) > 0 And -x + Log(Sin(x)) <> 0 Then y = Sqr(-(x - 3) * (x - 5) / (-x + Log(Sin(x))))

напиши это:

Visual Basic
1
2
If Sin(x) > 0 And -x + Log(Sin(x)) <> 0 Then 
y = Sqr(-(x - 3) * (x - 5) / (-x + Log(Sin(x))))

SoftIce · 27.05.2016, 10:31

paau, не в этом дело

Вот же правильный ответ?

@Infinity20_5 · 27.05.2016, 15:10

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

Вот же правильный ответ

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

Комментарий модератора

Правила п 5.2
Запрещено использовать нецензурные выражения в любом виде, оскорблять других участников форума, умышленно использовать выражения, противоречащие правилам русского языка, в том числе "олбанский" язык.

х = 1, y = 6.82242405028454
х = 2, y = 1.43192415208107
х = 3, y = 0
х = 4, Run-time error ‘5’: Invalid procedure call or argument

1) -(2 - 3) * (2 - 5) / (-2 + Log(Sin(2))) = y = 1.43192415208107 http://m.wolframalpha.com/inpu... 29&x=6&y=7

2) -(4 - 3) * (4 - 5) / (–4 + Log(Sin(4))) = y = комплексное число (-0.151… – 0.111…i) http://m.wolframalpha.com/inpu... 29&x=6&y=7
3) Log(Sin(2)) = -0.095… http://m.wolframalpha.com/inpu... 9+&x=8&y=3

4) Log(Sin(4)) = -0.278… + 3.141…i — комплексное число http://m.wolframalpha.com/inpu... 9+&x=9&y=4

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 = InputBox("Введите аргумент функции")
If Sin(x) > 0 And (-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))
Else ' Дальше тупик, пока не знаю
Text3.Text = "Значение " & Str(y) & " не входит в ОО функции"
End If
 
End Sub

Нажимайте каждый раз кнопку "Command1" — для ввода новых значений!

@Infinity20_5 · 27.05.2016, 15:14

Забыл, что надо показать картинку!

@MrNovak · 27.05.2016, 16:12 **[ТС]**

Infinity20_5, Сейчас попробую. http://life-prog.ru/1_22284_za... Basic.html, вот эта задача на сайте

Добавлено через 47 минут
Infinity20_5, Не работает. Оно не не показывает Значение 6 не входит в ОО функции. А так считает

Добавлено через 2 минуты
SoftIce, мне нужно что-бы оно когда я пишу 6 писало мне: Значение 6 не входит в ОО функции

SoftIce · 27.05.2016, 18:19

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

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

Правила п 5.2
Запрещено использовать нецензурные выражения в любом виде, оскорблять других участников форума, умышленно использовать выражения, противоречащие правилам русского языка, в том числе "олбанский" язык.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.05.2016, 19:08
	А такая вещь как END IF вам не нужна? 0

@MrNovak 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 16
	26.05.2016, 19:27 [ТС]
	geh, Вот мне нужно помочь. Как его дописать. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	26.05.2016, 20:58
	MrNovak Вы извините пожалуйста. Моя ошибка. Надо вместо операции AND поставить OR .... проглядел... Добавлено через 1 минуту Считает правильно. Это погрешность. 0

@MrNovak 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 16
	26.05.2016, 21:13 [ТС]
	geh, Всё равно не работает. Это наверное что-то не реальное(( 0

@MrNovak 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 16
	27.05.2016, 07:39 [ТС]
	geh, оно все равно не работает. В чем ошибка я не понимаю. Оно не правильно считает и когда я считаю 6 оно ошибку пишет в место того что-бы писать "Значение 6 не входит в ОО функции." 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.05.2016, 10:31
	paau, не в этом дело Вот же правильный ответ? Миниатюры 0

@Infinity20_5 Заблокирован
	27.05.2016, 15:14
	Забыл, что надо показать картинку! Миниатюры 0

@MrNovak 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 16
	27.05.2016, 16:12 [ТС]
	Infinity20_5, Сейчас попробую. http://life-prog.ru/1_22284_za... Basic.html, вот эта задача на сайте Добавлено через 47 минут Infinity20_5, Не работает. Оно не не показывает Значение 6 не входит в ОО функции. А так считает Добавлено через 2 минуты SoftIce, мне нужно что-бы оно когда я пишу 6 писало мне: Значение 6 не входит в ОО функции 0