| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Уменшение числа до одного розряда [D6, WinXP]

gyry-9 ©   (2005-01-21 00:16:00) 

Привет DELPHIнам!!!

Например, есть переменная а:=128.
Как уменшить число до одного розряда, то есть 1+2+8=11=1+1=2?

---

Knight   (2005-01-21 09:54:00) [1]

> VMcL ©   (21.01.05 08:57) [16]

Ну вот... тот же самый вариант, который пришёл в голову сразу после выключения компа... %)

---

VMcL   (2005-01-21 08:57:00) [2]

>> KilkennyCat ©  (21.01.05 04:11) [10]

Ах так? Тогда я ещё больше прооптимизирую :o)

function OneDigitSum(const Value: Cardinal): Cardinal;
begin
 Result := Value;
 while Result > 9 do
   Result := Result div 10 + Result mod 10;
end;

:-P

---

KilkennyCat   (2005-01-21 05:30:00) [3]

опасная ссылка... можно потерять кучу времени :)

---

default   (2005-01-21 05:23:00) [4]

KilkennyCat ©   (21.01.05 05:19) [12]
http://golovolomka.hobby.ru/books/gardner/gotcha/ch2/05.html

---

default   (2005-01-21 05:21:00) [5]


function DigitRoot(Value: Cardinal): Cardinal;
begin
 Result := Value mod 9;
 if (Value <> 0) and (Result = 0) then Result := 9
end;


---

KilkennyCat   (2005-01-21 05:19:00) [6]

ну, так нечестно, реального сложения нету :)

---

default   (2005-01-21 05:16:00) [7]

из [5] следует что
DigitRoot := Value mod 9
сумма цифр десятичного числа имеет тот же остаток от деления на 9 что и само число

---

KilkennyCat   (2005-01-21 04:11:00) [8]

я могу еще проще...

function OneDigitSum(Value: Cardinal): Cardinal;
begin
 result := value;
 repeat
    result := result div 10 + result mod 10;
 until result <= 9;
end;

---

Knight   (2005-01-21 01:43:00) [9]

> [4] VMcL ©   (21.01.05 00:32)

А у меня красивше... %)

---

Knight   (2005-01-21 00:42:00) [10]

> [7] KilkennyCat ©   (21.01.05 00:39)

Это называется - нумерология... %)

---

KilkennyCat   (2005-01-21 00:39:00) [11]

Вы все неправы. Это используется в гаданиях и гороскопах!

---

Anatoly Podgoretsky   (2005-01-21 00:32:00) [12]

Это вообщето CRC/Hash

---

MBo   (2005-01-21 00:32:00) [13]

это называется цифровой корень, он же - остаток по модулю 9. Если результат-остаток нулевой, а исходное число не 0, то результат 9. На паскале записывается элементарно.

---

VMcL   (2005-01-21 00:32:00) [14]

>> gyry-9  (21.01.05 00:16)

function OneDigitSum(Value: Cardinal): Cardinal;
begin
 Result := Value;
 while Result >= 10 do
 begin
   Value := 0;
   while Result > 0 do
   begin
     Inc(Value, Result mod 10);
     Result := Result div 10;
   end;
   Result := Value;
 end;
end;

P.S.
Сабдж по-научному называется "однозначная сумма цифр".

---

Knight   (2005-01-21 00:31:00) [15]

function DecNumToOne(k:Integer):Integer;
var Str1,Str2:String;
begin
 repeat
   Str2:=IntToStr(k);
   Str1:=Str2[1];
   Delete(Str2,1,1);
   k:=StrToInt(Str1)+StrToInt(Str2);
 until (k in [0..9]);
 Result:=k;
end;

---

KilkennyCat   (2005-01-21 00:29:00) [16]

а вообще, уменшить число до одного розряда, вовсе не то есть 1+2+8=11=1+1=2

---

KilkennyCat   (2005-01-21 00:26:00) [17]

Привет, дельфиха!

Прочитал твой пост.
Решил ответить.

элементарный способ напрашивается через использование inttostr(), strtoint() и length() в цикле, пока ентот самый Length не станет равным 1.

но есть и второй вариант.

---

Наверх