![]() |
|
Модераторы: Poseidon |
![]()
|
|
| ValenSunova |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 20.12.2008 Репутация: нет Всего: нет |
Проблема вот в чем:
Никак не могу расделаться с каверзной лабой, в ней три задания, два я сделал, а в одном все время что-то не так, вроде все уже подлатал, но все равно ошибка, вот задание и код : Для функции ![]() Программно найти самую левую на интервале [-2;2] (с точностью 0,1) точку, в которой значение функции принимает отрицательное значение, и самую правую точку на том же интервале, в которой значение функции принимает положительное значение Private Sub Command1_Click () Dim x As Double Dim y As Double Dim foundo As Boolean Dim foundp As Boolean For x = -2 To 2 Step 0.1 y = 0 If y > -2 And y<0 Then foundo = True Print "Самая левая точка с отриц. значением функции", Round(x, 1), y Exit For End If Next x For x = -2 To 2 Step 0.1 y = x - 1 If y<2 And y>0 Then foundp = True Print "Самая правая точка с полож. значением функции", Round(x, 1), y Exit For End If Next x If Not foundo Then Print "Нет точки с отрицательным значением функции" If Not foundp Then Print "Нет точки с положительным значением функции" End Sub ошибка во втором цикле: For x = -2 To 2 Step 0.1 y = x - 1 If y<2 And y>0 Then foundp = True Print "Самая правая точка с полож. значением функции", Round(x, 1), y Exit For End If Next x 1) шаг не тот, нужен другой величины; 2) нужно чтобы проверять начинало с двух, как это сделать? |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |