перевод чисел между десятичной и фибоначчиваемой системой счисления

[genofond]

В понедельник надо курсовую сдавать, а я даже понятия не имею, как такую программу написать:
"Написать программу, осуществляющую перевод чисел между десятичной и фибоначчиваемой системой счисления"

Написать надо на Pascal ABC . Как - понятия не имею((

Заранее спасибо)
P.s. нашел такую программу только на языке "Питон", но его я к сожалению не знаю...


функция перевода числа из фибоначчиевой в десятичную сс

def fi_to_ten(n):
    f0, f1 = 0, 1 # задаем начальные значения нулевого и первого числа фибоначчи
    i = 0
    n = n[::-1] # разворачиваем строку с числом т.к. нам нужно считывать числа с младшего разряда
    res = 0
    while i < len(n): 
        f0, f1 = f1, f0 + f1 # задем очередные значения чисел ф. f1 - наше текущее число
        if n[i] == '1':
            res += f1 # в случае если цифра в данном числе - 1, прибавляем к результату текущее число ф. - значение разряда.
        i += 1
    return res

Функция перевода из десятичной в фибоначчиеву сс

def ten_to_fi(n):
    n = int(n)
    f0, f1 = 0, 1
    resnum = [] # в этот список заносятся номера чисел ф. из которых состоит данное число
    num = -1 
    finres = '' # это строка окончательного результата
    while n != 0: 
        while f1 <= n: # перебираем числа ф. пока не найдем число большее данного
            f0, f1 = f1, f0 + f1
            num += 1 
            if f1 > n:              # если текущее число ф. больше данного
                n -= f0             # вычитаем его из данного
                resnum.append(num)  # и добавляем его номер в список, при этом
                f0, f1 = 0, 1       # сбрасываем числа ф. и
                num = -1            # счетчик их номера
 
    i = resnum[0]   # у нас есть список с номерами чисел ф. образующих данное число.
    while i > 0:    # следует его обработать и представить в виде числа в ф. сс
        k = 0
        check = False 
        while k < len(resnum): 
            if i == resnum[k]:
                finres += '1'
                check = True
            k += 1
        if check == False:
            finres += '0'
        i -= 1
 
    return finres

Проверка введенного числа в фибоначчиевой сс на наличие соседних единиц

elif ss == 'fi':
i = 0
while i < len(num)-1:
if num[i] == '1' and num[i+1] == '1':
print 'wrong number'
quit()
i += 1

[Rififi]

genofond

В понедельник надо курсовую сдавать, а я даже понятия не имею, как такую программу написать:

Чувак, это просто поразительное раздолбайство. Курсач за выходные, при то, что "понятия не имею(( " - это FAIL.

Да... для студней сессия - это как "прыжок веры" в Assassin Creed - в омут и с головой. Не все выныривают... (((Ж

Найди cебя на этой картинке :lol:

[genofond]

Чувак, это просто поразительное раздолбайство. Курсач за выходные, при то, что "понятия не имею(( " - это FAIL.

Ну, конечно, то, что я совсем понятия не имею как делать данную программу я переборщил, потому что все таки некоторые идеи имеются да и Pascal я знаю нормально...
Просто помочь попросил. Ведь для вас такая прога - раз плюнуть, а для меня - бессонные ночи, расшатанные нервы, возможно шизофрения)

[raxp]

Просто помочь попросил. Ведь для вас такая прога - раз плюнуть, а для меня - бессонные ночи, расшатанные нервы, возможно шизофрения)

сколько платишь за свой спокойный сон и, главное, здоровье?

[whatever]

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

сколько платишь за свой спокойный сон и, главное, здоровье?

Во-во, на здоровье экономить нельзя

[genofond]

Все, спасибо, не надо уже. Помогли на другом форуме)

[raxp]

ага, ага, мы вас и там достанем... то-то Puporev сюда не заглянул и не заметил ваши перлы про "бессонные ночи, расшатанные нервы, возможно шизофрения" /

[puporev]

Ошибаешься raxp, заглянул, ему же еще и наоборот нужно, а я ни разу не делал.....

[raxp]

До того или после того?

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

Спасибо вам огромное! Как хорошо, что на свете все еще остались добрые, отзывчивые люди. Вы меня просто спасли)))

Буду вам непомерно благодарен, если вы напишите мне, тупому созданию, программу, которая наоборот переводит из Фиббоначиевой в Десятичную сс.

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

медвежью услугу делаете топик-стартеру.

[genofond]

Вот я одного не понимаю. Форум создан для взаимопомощи. Зачем тут троллить и подшучивать надо мной? Я тут никого не оскорблял.
Лучше бы дали хотя бы совет или ссылку как 2ю часть программы делать (Fib--->>10). Не хотите помогать, не надо.