pastebin

Paste Search Dynamic
Recent pastes
decimal to n
  1. program calculator;
  2.  
  3. procedure decimal_to_n(x,n: integer); // x=číslo v desiatkovej, n=báza
  4. var pole: array of integer;
  5. var i,j: integer;
  6.  
  7. begin
  8. i:=0;
  9. setlength(pole,1);
  10. while x>0 do
  11. begin
  12.   i:=i+1;
  13.   pole[i]:=(x mod n);
  14.   //writeln(pole[i]);
  15.   setlength(pole,length(pole)+1);
  16.   //writeln(length(pole));
  17.   x:=x div n;
  18. end;
  19. //writeln(pole[3]); //z nejakého dovodu sa pole vynuluje
  20. for j:= (i) downto 0 do
  21. write (pole[j],' ');
  22. end;
  23.  
  24. begin
  25. decimal_to_n(31,2);
  26. end.
Parsed in 0.007 seconds