Anonymní profil Beči – Programujte.com

Zdravím, nutně bych potřeboval s něčím pomoci. Potřeboval bych ze zdrojového textu programu udělat vývojový diagram. Jenže tvorba vývojáků není zrovna můj šálek kávy, tak se obracím na vás. Jde o převod čísla v desítkové soustavě do jiné libovolné soustavy. Zdrojový text zde:

{ nasleduji funkce prevede libovolne cislo z desitkove soustavy do libovolne soustavy } 

{ volani: convert(3,2) = 11 (tri do dvojkove je 11) }

function convert(a,n : integer) : string;

var i : integer;

s,s2 : string;

begin

s:='';

while (a <> 0) do begin

if ((a mod n) > 9) then

s:=s + chr(ord('a') + (a mod n) - 10) else begin

str((a mod n),s2);

s:=s + s2;

end;

a:=a div n;

end;

s2:=s;

for i:=length(s) downto 1 do s[i]:=s2[(length(s)) - i + 1];

convert:=s;

end;