Zamiana liczb z systemu dziesiętnego na dowolny • Kod źródłowy
Zamiana liczb z systemu dziesiętnego na dowolny Kod źródłowy
Aby zamienić liczbę dziesiętna na liczbę w systemie o podstawie p dzielimy ją całkowicie przez p dotąd dopóki w wyniku dzielenia uzyskamy '0'. Kolejne reszty pisane w odwrotnej kolejności dadzą rozwiązanie.
programdec2p;constcyfra:string='0123456789ABCDEF';varwynik:string;p,n:integer;beginwynik:='';writeln('Podaj liczbe');readln(n);writeln('Podaj podstawe systemu na ktory zamienic');readln(p);repeatwynik:=cyfra[nmodp+1]+wynik;n:=ndivp;untiln=0;writeln(wynik);readln;end.