Převod mezi soustavami (Algoritmus)

Z CHWiki

Funkce převeď dostane jako parametry číslo C, které se má převést a soustavu S do které budeme převádět. Výstupem bude řetězec, obsahující zápis čísla C v soustavě S. Soustava musí být celé číslo větší než 1, číslo musí být celé číslo větší nebo rovné nule.

převeď(číslo, soustava)
begin
 výstup := 0

 dokud (číslo > 0)
 begin
   výstup := výstup + číslo mod soustava
   číslo := číslo div soustava
 end
 
 return otoč_řetězec(výstup)
end