Сумма цифр введенного трехзначного числа. Дельфи

[Stepler]

var i,n,sum:integer;   
begin   
writeln('Vvedite chislo');   
readln(n); {Вводим число}   
sum:=0; {Обнуляем значение переменной, так как начальная сумма равна 0}   
for i:=1 to 1 do 
 begin   
 sum:=sum+(n mod 10); {Здесь считаем сумму цифр} 
 n:=n div 10; {Здесь записсиваем, целую часть числа от деления на 10}  
 if(n=0) then break; {Здесь проверяем если n равно 0, выходим с цикла}  
 i:=i-1; {здесь уменьшаем значение переменной i на 1, тем самым делая цикл бесконечним}   
 end;   
 writeln(sum); {Выводим результат}   
 readln;   
end.

[Serge_Bliznykov]

Stepler, во-первых, я лично согласен со [Smarik] - изменять счётчик цикла внутри цикла - дурной тон!
Попробуйте откомпилировать Ваш код в Дельфи - там такой трюк
по умолчанию не пройдёт.
Да и не нужен там цикл FOR!! (напоминаю, что это цикл, когда
известно число повторений!
Вам оно известно? нет?! так и используйте, while True do , например.)
Если уже и делать универсальную программу для числа с любой
разрядностью - то смотрите код от Шамана в посте #6.
И последнее -

А затем что количество цыфр числа наперед неизвестно, и без цикла там не обойтись!

ну как же неизвестно?!
Вы условие внимательно прочитали?

Сумму цифр введенного ТРЕХЗНАЧНОГО числа

var
  n,a,b,c,sum:integer; {описание переменных - все целого типа. 
N - вводимое число. 
A, B, C - вспомогательные переменные - в каждую из них 
помещается одна цифра введённого трёхзначного числа
SUM - для суммы}
begin
  write('Vvedite chislo '); readln(n); {выдать текст запроса на экран 
     и ввести число в переменную N}
a:=n div 100; {получить в переменную A целую часть  
  от деления числа на 100 (подсказка - это будет первая цифра числа)}
b:=n div 10 mod 10; {разделить число на 10, потом от полученного
 частного взять остаток от деления на 10
 так в И получим вторую цифру числа}
c:=n mod 10; {остаток от деления введённого числа на 10 - в переменной С третья цифра числа}
sum:=a+b+c; {просуммировали три цифры}
writeln('summa chisel: ',sum); {вывели результат}
readln; {остановились, ждём нажатия клавиши ENTER (она же ВВОД),
чтобы можно было прочитать результат с консоли}
end. {конец фильма}

[by -ORTODOX-]

Спасибо всем! Буду разбираться! :beer:

[Stepler]

to Serge_Bliznykov

Stepler, во-первых, я лично согласен со [Smarik] - изменять счётчик цикла внутри цикла - дурной тон!

Это ваше мнение, спорить я с вами не буду! Я привел пример как можно сделать задание с использованием цикла for!

Попробуйте откомпилировать Ваш код в Дельфи - там такой трюк
по умолчанию не пройдёт.

Да действительно компилятор Дельфи видает ошибку если питаемся изменить значение счетчика! (Код писал на паскале, не думал что будет такой косяк если запустить на Дельфи, чесно говоря даже не знал что компялятор дельфи не дает изменять значение счетчика в цикле, на Дельфи пишу очень редко почти все на СИ пишу, там такой проблеми нету с изменением стетчика, да и впрочем на паскале тоже)

Да и не нужен там цикл FOR!!

Можно было и два других цикла использовать, или организировать цикл с помощью if(...) goto label, или накрайняк рекурсию использовать, но результат это би неизменило. Это дело вкуса, я пошел нестандартним путем, и ничего противопоказаного здесь нет.

Да и не нужен там цикл FOR!! (напоминаю, что это цикл, когда
известно число повторений!
Вам оно известно? нет?! так и используйте, while True do , например.)

Не нужно мне напоминать я прекрасно знаю работу циклов, а то что вы говорити <когда известно число повторений!> это всего лиш рекомендации, так как цикл for наиболее удобно применять когда наперед известно количество повторений, но это не означает что его не можно применять в тех ситуация когда неизвестно количество повторений!

Если уже и делать универсальную программу для числа с любой
разрядностью - то смотрите код от Шамана в посте #6.

Разница только в циклах, но результат выходит тотже, разници большой нет!

ну как же неизвестно?!
Вы условие внимательно прочитали?

Я имел ввиду конкретно свой код, товарищу Smarikу было непонятно зачем там использовать цикл!

[type_Oleg]

А если так :

var num,summaCifr,i: Integer;
stroka:string;
begin
stroka:=IntToStr(num);
summaCifr:=0;
for i:=1 to Length(stroka) do
summaCifr:=SummaCifr+StrToInt(Strok a[i]);
end;

[perjik]

задача выделить третью цифру с конца в введеннном числе ю расскажите как там в этом while знать где какая цифра? заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!

[xrob]

а чем плох такой вариант:

str:= inttostr(125);
a:= strtoint(str[1]) + strtoint(str[2]) + strtoint(str[3]);

мда... меня опередили =)

"задача выделить третью цифру"
str:=inttostr(125);
a:=str[3]; // a='5'
b:=strtoint(a); // b=5

[ToMpLiEr]

А как сюда добавить процедуру проверки на то что введённое число действительно 3х значное.

[Grag]

да элементарно же

if (n>=100) and (n<=999) 
  then //yes
  else //no

[ToMpLiEr]

Сообщение от Grag

да элементарно же

if (n>=100) and (n<=999) 
  then //yes
  else //no

Спасибо, но препод требует чего-то размером в строк 10-15