Турбо паскаль оператор CASE
 

Помогите составить программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа с помощью оператора CASE. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12.


Заранее спасибо...)

Переводим число в строку, вырезаем по 1 символу и складываем. В чем проблема?

А зачем вообще нужны строки?
Если сказано, что введено число, значит число.
Поразрядная сегментация - остаток от деления на основание системы счисления в цикле. В данном случае 10.
Зачем вовлекать в простой алгоритм работу со строками?
Elenochka, я не знаю, как правильно использовать здесь оператор CASE, чтобы он не выглядел как "опухоль", пришпандоренную только ради того, что сказали "надо". Поставь его может при анализе остатка от деления. Чтобы была проверка, действительно ли число трехзначное? И в разных случаях, разные действия: вывод предупреждения или что-нибудь еще.

Во, я понял зачем тут CASE и куда его можно прикрутить. Т.к. задание звучит:
То надо сделать CASE примерно такой:
проверять, положительное или отрицательное число
проверять длину введенной строки(числа) и если оно больше 3, то выводить предупреждения
Все остальное делается за 10 минут.

может сделать CASE для анализа нажатой клавиши?
Нам ведь не указано четким образом последовательность получения числа, соотв. можно на этом "сыграть".
При этом вести счетчик оставшихся цифр, выдавать предупреждение в случае чего, приводить интересные факты по введенному числу. (Например сказать, что 11 в лото называют "Барабанные палочки") и т.п.

Они изучают CASE. Соответственно, и задача стоит в том, чтобы сделать это на CASE, только и всего. А иначе вообще не стоит огород городить - эта задача считается в одну арифметическую строчку. На той теме, когда они проходили арифметические операции.
А в с CASE она решается так:
1) Ввод трехзначного числа в строковую переменную.
1а) Тут можно ввести блок проверки введенных данных на корректность - проверить, число ли вообще ввели, убрать знак, если вдруг ввели отрицательное, проверить что число не меньше 100, а можно и не проверять.
2) В цикле от 1 до 3 :
3) берем i-тый символ введенной строки
4) вот тут будет требуемый CASE
CASE взятый символ OF
'0': сумма := сумма +0;
'1': сумма := сумма +1;
.....
'9': сумма := сумма +9;
5) цикл заканчивается тут
6) Вывод результата на экран.

Все :)