VPF::[VBA] Программа для решения системы уравнений

STRIKER221

Дата 11.2.2008, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет

Написать программу, вычисляющую следующие значения выражения:

     a/b+1         если a>b,
X= a+25          если a=b,
     (a/b-2)/a,   если a<b;

kapbepucm

Дата 11.2.2008, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12

Цитата(STRIKER221 @ 11.2.2008, 00:33

)

Написать программу

Может, имеется ввиду, что надо написать функцию... Тогда

Код

Public Function X(a As Double, b As Double) As Double
  Select Case a
  Case Is > b
    X = a / b + 1
  Case b
    X = a + 25
  Case Is < b
    X = (a / b - 2) / a
  End Select
End Function

--------------------

(С) kapbepucm

STRIKER221

Дата 12.2.2008, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет

kapbepucm, А каким образом мне вставить код в Excel???

kapbepucm

Дата 12.2.2008, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12

В VBA модуль, например. Хотя, если в Excel'e, я бы обошёлся формулой.
Пример. Пусть a будет ячейка A1, b- ячейка A2, тогда для ячейки x справедлива формула

Код

=IF(A1>B1;A1/B1+1;IF(A1=B1;A1+25;(A1/B1-2)/A1))

(если я не ошибаюсь, для "русского" MSOffice IF надо заменить на ЕСЛИ)

--------------------

(С) kapbepucm

STRIKER221

Дата 13.2.2008, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет

kapbepucm, А не могли бы Вы вставить код в Excel и прикрепить его к следующему мессажу? А то я что-то ничего не понял....

kapbepucm

Дата 13.2.2008, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12

сделано

Это сообщение отредактировал(а) kapbepucm - 13.2.2008, 10:05

Присоединённый файл ( Кол-во скачиваний: 6 )

Test.zip 7,18 Kb

--------------------

(С) kapbepucm

STRIKER221

Дата 13.2.2008, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет

kapbepucm, А не могли бы Вы ещё написать описание рабочего кода? Чтобы хоть примерно представлять как это работает. Т.е. сделать описание операторов. И каким образом можно исправить, чтобы при вводе нуля, excel не выдавал ошибку, выводил какое-нить сообщение типа: Проверьте значения, на ноль делить нельзя и т.д.?

Это сообщение отредактировал(а) STRIKER221 - 14.2.2008, 01:16

kapbepucm

Дата 14.2.2008, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12

С учётом новых требований код немножко поменял:

Код

Private Sub Workbook_Open() 'главная процедура
  Dim a As Double, b As Double 'объявление переменных
  Do 'организация цикла для того, чтобы проверять будет ли деление на 0
    On Error GoTo ErrorLabel 'ставим обработчик ошибок, для того, чтобы пользователь мог вводить только цифры, а не всё, что вздумается
    a = CDbl(InputBox("Enter a", "x(a,b)")) 'спрашиваем у пользователя a
    b = CDbl(InputBox("Enter b", "x(a,b)")) 'спрашиваем у пользователя b
    On Error GoTo 0 'дальше не будем следить за ошибками кода
  Loop Until IsOK(a, b) 'цикл будет завершён только в том случае, если не будет деления на 0
  MsgBox "X=" & CStr(X(a, b)), , "x(a,b)" 'сообщаем ответ
ExitLabel: 'метка для досрочного выхода
Exit Sub 'выход из процедуры
ErrorLabel: 'метка для обработки ошибок
  If Err.Number = 13 Then Resume Else GoTo ExitLabel 'если ошибка в преобразовании типов, то пусть пользователь ещё раз вводит цифру
End Sub
Private Function IsOK(a As Double, b As Double) As Boolean 'специальная функция для проверки, есть ли деление на 0
  IsOK = True 'всё хорошо, потом отдёльно рассмотрим все возможные случаи
  Select Case a 'здесь начнём проверять; деление на 0 возможно в двух случаях, где a>b и b<a
  Case Is > b 'это первый случай
    If (b = 0) Then 'нас интересует только переменная b
      IsOK = False 'присутствие деления на 0
      MsgBox "b=0", vbCritical, "Division by zero" 'сообщаем об ошибке
    End If
  Case Is < b 'а это уже второй случай сдесь надо проверить как a, так и b
    If (a = 0) Then 'проверяем a
      IsOK = False 'присутствие деления на 0
      MsgBox "a=0", vbCritical, "Division by zero" 'сообщаем об ошибке
    End If
    If (b = 0) Then 'проверяем b
      IsOK = False 'присутствие деления на 0
      MsgBox "b=0", vbCritical, "Division by zero" 'сообщаем об ошибке
    End If
  End Select
End Function
Public Function X(a As Double, b As Double) As Double 'функция для расчёта X
  Select Case a 'три варианта, относительно a
  Case Is > b 'при a>b: X = a / b + 1
    X = a / b + 1
  Case b 'при a=b: X = a + 25
    X = a + 25
  Case Is < b 'при a<b: X = (a / b - 2) / a
    X = (a / b - 2) / a
  End Select
End Function

Это сообщение отредактировал(а) kapbepucm - 14.2.2008, 10:42

--------------------

(С) kapbepucm

STRIKER221

Дата 14.2.2008, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 2.11.2006
Где: Belarus

Репутация: нет
Всего: нет

kapbepucm, Спасибо всё заработало

Это сообщение отредактировал(а) STRIKER221 - 14.2.2008, 21:05

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »