Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
artyom-bovt
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 10
#1

Как вывести целое положительное число n в столбик (одна цифра на строку)

09.10.2013, 21:52. Просмотров 779. Ответов 2
Метки нет (Все метки)

Нужно написать рекурсивную программу печати десятичной записи целого положительного числа n в столбик (одна цифра на строку).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2013, 21:52
Ответы с готовыми решениями:

Дано положительное вещественное число Х. Определить, равна ли первая цифра его дробной части последней цифре целой части
Дано положительное вещественное число Х. Определить, равна ли первая цифра его...

Дано целое число N (32 ≤ N ≤ 126). Вывести символ с кодом, равным N. Результат вывести в метку на форме
Дано целое число N (32 ≤ N ≤ 126). Вывести символ с кодом, равным N. Результат...

Дано целое число. Вывести его строку-описание вида «отрицательное чет-ное число», «нулевое число», «положительное нечетное число» и т. д.
Дано целое число. Вывести его строку-описание вида «отрицательное чет-ное...

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...

Вывести столбик, произведение элементов которого положительное число
Вывести столбик, произведение элементов которого положительное число

2
Аксима
5809 / 1259 / 187
Регистрация: 12.12.2012
Сообщений: 984
10.10.2013, 11:09 #2
Здравствуйте, artyom-bovt,
Попробуйте так:

Visual Basic
1
2
3
4
5
6
7
8
Sub MyPrint(ByVal n As Long)
    If n > 9 Then MyPrint n \ 10
    Debug.Print n Mod 10
End Sub
 
Sub VyvodVStolbik()
    MyPrint 123
End Sub
С уважением,
Aksima
2
artyom-bovt
0 / 0 / 0
Регистрация: 20.05.2013
Сообщений: 10
11.11.2013, 20:09  [ТС] #3
Не работает(

Не по теме:

Добавлено через 23 минуты


Такой вид должен быть

Visual Basic
1
2
3
4
5
6
7
Function Rec(t) 
'действия на входе в рекурсию 
If <проверка условия> Then 
 Rec = Rec(t+1) 
End If 
'действия на выходе из рекурсии 
End Function

спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2013, 20:09

Дано целое число N. Найти наименьшее целое положительное число K, при котором выполняется неравенство 3^k > N.
Используя цикл while Дано целое число N. Найти наименьшее целое положительное...

Дано целое число N>0. Найти наименьшее целое положительное число К, квадрат которого превосходит N:K*K>N
дано целое число N&gt;0. Найти наименьшее целое положительное число К, квадрат...

Вывести целое положительное число типа word на экран в десятичной СС. Прокомментировать код
Вобщем, есть задача: Реализовать процедуру, выводящую целое положительное ...


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

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

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