Рекурсия в QBasic

[student2008]

Здравствуйте, нужна помощь с рекурсивной программой в QBasic. Вот собственно задание:
Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K, не используя оператор цикла. С помощью этой функции найти суммы цифр для пяти данных целых чисел.

Кое-что удалось написать, но нужно как-то доделать:

FUNCTION DigitSum (number AS INTEGER)
IF number < 10 THEN
result = number
ELSE result = (number MOD 10) + DigitSum(number / 10)
END IF
END FUNCTION

[RUSt88]

IF number < 10 THEN

а если число -213, крах твоей функции, т.е. несрабатывание?

а в принципе решение правильно, или у тебя че-то не работает? опиши суть проблемы

[student2008]

Надо наверно как-то организовать ввод этих целых чисел, и вывод результата вычислений на экран. Когда запускаю программу, появляется просто тёмный экран.

[Utkin]

Print x - вывод на экран переменной х, можно константы Print "Hello World"
Input x - Ввод данных с клавиатуры, вводить нужно в соответствии с типом переменной (то есть для строк Input x$)

[student2008]

Вот, доделал, но почему-то какое бы число я ни ввёл, выдаёт, что результат=0. Объясните пожалста что я не так делаю?

DECLARE FUNCTION DigitSum! (number AS INTEGER)
PRINT "Vvedite chislo"
INPUT number%
FUNCTION DigitSum (number AS INTEGER)
IF number < 10 THEN
result! = number
ELSE result! = (number MOD 10) + DigitSum(number / 10)
END IF
END FUNCTION
PRINT "resultat="; result!
END

[Utkin]

Потому что нет самих вычислений.
Попробуй исправить:
PRINT "resultat="; DigitSum(number%)

[student2008]

Всё равно ноль выдаёт, но спасибо за помощь и что не прошли мимо, хоть что-то можно будет сдать=)))