Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
108 / 1 / 0
Регистрация: 23.05.2011
Сообщений: 39
1

Сложное условие завершения цикла

04.10.2013, 12:48. Просмотров 1200. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить!
Составить алгоритм и программу, вычисляющую значения функции с точностью до 0,01 до тех пор, пока не будет пройдена некоторая характерная точка графика функции. Значения аргумента X должны составлять возрастающую арифметическую прогрессию с заданным начальным значением 0,1 и шагом 0,01.
Для того чтобы не произошло "зацикливания", установить предел изменения аргумента X = 10.

Сложное условие завершения цикла


Заранее огромное спасибо!
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2013, 12:48
Ответы с готовыми решениями:

Цикл: как в vba сделать так, чтобы после каждого завершения цикла происходило сохранение файла?
Подскажите как в vba сделать чтобы после каждого завершения цикла происходило сохранение файла?Ну...

Условие для цикла Do While
имеется таблица MS Word, в некоторых ячейках которой имеется текст со шрифтом красного цвета. в...

Создать условие проверки переменной цикла
Необходимо проверять формулой (или еще как-то) попадание переменной цикла в определенные числа...

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

3
368 / 10 / 1
Регистрация: 23.08.2013
Сообщений: 174
04.10.2013, 13:19 2
Цитата Сообщение от Whiplasher Посмотреть сообщение
Помогите пожалуйста решить!
Я тоже начинающий! Как раз пытался составить задачу, в которой требовалось бы применить сложное завершение цикла.

Добавлено через 17 минут
Может быть вам требуется решить уравнение 2*x^2 - x + 2 = Exp(x/3) + Exp(-x/3)?
1
6057 / 1301 / 194
Регистрация: 12.12.2012
Сообщений: 1,019
04.10.2013, 13:51 3
Цитата Сообщение от Softkhoz Посмотреть сообщение
Может быть вам требуется решить уравнение 2*x^2 - x + 2 = Exp(x/3) + Exp(-x/3)?
Точно! А вот и программа для решения уравнения:

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
Function func1(ByVal x As Double)
    func1 = 2 * x ^ 2 - x + 2
End Function
 
Function func2(ByVal x As Double)
    func2 = Exp(x / 3) + Exp(-x / 3)
End Function
 
Sub NonlinearEqSolve()
    Dim x As Double, dx As Double, xmax As Double, sign As Long
    x = 0.1 'Начальное значение.
    dx = 0.01 'Шаг.
    xmax = 10#  'Предел изменения аргумента x.
    sign = Sgn(func1(x) - func2(x))
    While x < xmax
        x = x + dx
        If sign <> Sgn(func1(x) - func2(x)) Then
            MsgBox "Решение уравнения: x = " & x
            Exit Sub
        End If
    Wend
    MsgBox "Уравнение не имеет решений на отрезке [0,1; 10]"
End Sub
С уважением,
Aksima
2
108 / 1 / 0
Регистрация: 23.05.2011
Сообщений: 39
04.10.2013, 16:28  [ТС] 4
Огромное спасибо! Что бы я без вас делал!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2013, 16:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сложное условие завершения цикла при работе с матрицами
Помогите пожалуйста написать программу на паскале Дана матрица А с 2 столбцами и 10...

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

Сложное условие цикла
Есть txt-файл с числами, каждое новое со след строки. Нужно присвоить этим числам значения...

Сложное условие цикла
Всем добрый вечер! Есть txt файл, внутри которого столбец чисел(которые, кстати, могут быть и с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.