Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Действия с числами

Автор: SupportID 28.5.2008, 12:11

Попытаюсь четко изложить суть задачи и очень надеюсь на вашу помощь и поддержку:
Вообщем дано число N (от 0 до бесконечности его ограничение) Если оно делится на 4, то на экран необходимо вывести ответ как N = 4*k (где k соответствующий множитель). Если остаток от деления этого числа равен 1, то вывести ответ как N=4*k + 1 и так далее до трех, вообщем должна получиться такая система:
Ввожу допустим число 12, он мне выдает 12=4*3
или
Ввожу 22, он мне выдает 22=4*5+2
Заранее благодарен.

Автор: neiron 28.5.2008, 12:17

До бесконечности не получится, но близко будет))

Посмотри функции Fix, Mod.

Автор: SupportID 28.5.2008, 17:43

просто, если честно, я совсем не соображаю в вб ..( , но хочу помочь своей девушке хоть как-то, а время очень ограничено, ей задали такие задачки [censored 6]...вместе с обучением по Excelю...напишите ,пожалуйста, решение проблемы наиболее полно...

Автор: neiron 28.5.2008, 18:06

В кнопку нечто подобное вставь:

Код


Dim N As Integer
Dim a As Integer
Dim b As Integer
N = CInt(InputBox("Введи число", "Введи число", 10))
    a = Fix(N / 4)
    b = N - 4 * a
    If b > 0 Then
        MsgBox (CStr(N) & "=" & CStr(a) & "*4+" & CStr(b))
    Else
        MsgBox (CStr(N) & "=" & CStr(a) & "*4")
    End If

Автор: SupportID 28.5.2008, 18:55

Спасибо большое, проблема исчерпана

Автор: Akina 28.5.2008, 20:26

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!