VPF::Оператор выбора - Форум программистов

Anna4ka

Дата 26.4.2010, 13:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Помагите пожалуйста решить!!!
1.Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N = 4k (где k — соответствующее частное); если остаток от деления на 4 равен 1, N = 4k + 1; если остаток от деления на 4 равен 2, N = 4k + 2; если остаток от деления на 4 равен 3, N = 4k + 3. Например, 12 = 43, 22 = 45 + 2.

2.Для данного x вычислить значение функции: Если сумма трех попарно различных действительных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из X, Y полусуммой двух оставшихся значений.

ViterAlex

Дата 26.4.2010, 14:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

С оператором выбора Select…Case

Код


Sub test()
  Dim N As Integer
  N = InputBox("Введите N")
  Select Case N Mod 4
    Case 0
      MsgBox N & "=" & 4 & "*" & (N / 4)
    Case 1 To 3
      MsgBox N & "=" & 4 & "*" & (N \ 4) & " + " & (N Mod 4)
  End Select
End Sub

Но, как видно из кода, он не нужен:

Код


Sub test()
  Dim N As Integer
  N = InputBox("Введите N")
  MsgBox N & "=" & 4 & "*" & (N \ 4) & IIf(N Mod 4 = 0, "", " + " & (N Mod 4))
End Sub

Это сообщение отредактировал(а) ViterAlex - 26.4.2010, 14:11

Anna4ka

Дата 26.4.2010, 14:15 (ссылка)

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

Загрузка ...

Новичок

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

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

СПАСИБО БОЛЬШОЕ!!!!)))))

Anna4ka

Дата 26.4.2010, 14:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Помагите кто нибудь вторую задачу решить!!!

ViterAlex

Дата 26.4.2010, 15:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

ты её сформулируй нормально. А то, x дано, а откуда брать x, y, z непонятно

Anna4ka

Дата 26.4.2010, 16:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Там в задании вообще больше не чего не указанно!!!!(((((

Akina

Дата 26.4.2010, 17:02 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Цитата(ViterAlex @ 26.4.2010, 16:05

)

откуда брать x, y, z непонятно

Судя по заданию с поправкой на кретинизм преподавателя X вводится (параметр), а Y и Z - заданные константы.

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

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