Программы работы с числами

[ksesh]

Прошу помочь, ибо вообще не представляю как решать.
Даны три числа, записанных в какой то системе счисления, причем сумма двух первых равна третьему числу в этой системе счисления. Определить основание системы счисления.
Для всех задач входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл.

[Stilet]

Умеешь переводить из систем счисления?
Если да то:
1) Найди в числе самую большую цифру (или букву) по порядку и считай что эта цифра или буква говорит о начальной системе счисления
2) переводи начиная с этой системы в десятичную, пока не получишь в десятичной числа, отвечающие условию

Т.е. Допустим у нас есть функция СС(Число, Система):Число, которая переводит
И есть числа: 125 689 11. Самая большая цифра - 9. Соответственно никак эти числа не могут быть в 6-ти или 2-и чных системах.
получается цикл:

for i:=9 to 32 do
 if сс(число1,i)+сс(число2,i)=сс(число3,i) then i - нужна система счисления.

[Serge_Bliznykov]

только перебором?
а аналитически никак не получится, например, младший разряд первого числа + младший разряд второго числа должны дать младшую цифру третьего числа.
если они дают "в чистую" (без переноса), отлично, переход к следующему разряду и так далее. пока не дойдёт до конца числа или пока не возникнет ситуация, когда цифра в третьем числе меньше, чем сумма аналогичных разрядов.
Если это есть, то основание системы счисления вычисляется. (например, если 5 + 4 = 2, то основание системы счисления = 7 (5+4-2 = 7 )

Если же прошли по всем разрядам и не одного переноса не было, тогда ещё проще.
Как правильно сказал Stilet - берём максимальную цифру - основание системы счисления = Макс.Цифра + 1

[Stilet]

а аналитически никак не получится

Я бы ниасилил аналитикой )

[Serge_Bliznykov]

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

Я бы ниасилил аналитикой )

да ладно тебе на себя наговаривать то..

я алгоритм расписал, на мой взгляд, он очень быстро и просто реализуется.

Твой алгоритм (с перебором) тоже очень несложно реализовать.

Так что, у автора темы теперь целых ДВА варианта решения задачи.
Можно реализовать оба и проверить (сравнить результаты) + выбрать лучший.

[ksesh]

а можно более понятным чайнику языком это всё объяснить

[Serge_Bliznykov]

ksesh, во-первых, Вам дали ДВА алгоритма решения.
Один (от Виталия aka Stilet) гарантированно выдаст правильный ответ.
Но решение задачи будет через выполняться через полный ПЕРЕБОР всех возможных вариантов основания системы счисления, начиная с минимально допустимого.

второй, который предложил я, намного эффективней, НО! Я не поручусь, что он вообще рабочий или что он для любых входных данных работает.

Какой из двух алгоритмов Вы не поняли, что именно Вам объяснить?


p.s. только умоляю, не говорите, что Вы вообще всё не понимаете, программирование не знаете, Вам это всё не нужно и что Вам просто нужна готовая программа... Не расстраивайте меня!

[min@y™]

Внесу копеечку. В RxLib с лохматых годов есть функция, готовая к употреблению без обработки напильником.

// Преобразование числа по основанию В в строке S в десятичное.
function Numb2Dec(S: string; B: Byte): Longint;
var
  I, P: Longint;
begin
  I := Length(S);
  Result := 0;
  S := UpperCase(S);
  P := 1;
  while (I >= 1) do begin
    if S[I] > '@' then Result := Result + (Ord(S[I]) - 55) * P
    else Result := Result + (Ord(S[I]) - 48) * P;
    Dec(I);
    P := P * B;
  end;
end;

[Smitt&Wesson]

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

только перебором?

Серёга, какой, нахрен, перебор. Недесятичные системы исчисления.

Загадочная автобиография.

«Я окончил курс университета 44 лет от роду. Спустя год, 100-летним молодым человеком, я женился на 34-летней девушке. Незначительная разница в возрасте — всего 11 лет — способствовала тому, что мы жили общими интересами и мечтами. Спустя немного лет у меня была уже и маленькая семья из 10 детей. Жалования я получал в месяц всего 200 рублей, из которых 1/10 приходилось отдавать сестре, так что мы с детьми жили на 130 руб. в месяц» и т. д.