Progam w pascalu: przelicza liczby Dec na Bin

[Civril]

program systemy;

type

tablicowy=array[1..10]of byte;

var

tab:tablicowy;

p:byte; {podstawa systemu}

l:byte; {liczba do zamiany}


procedure pobierz(const p:byte; var l:byte);

begin

writeln('podaj podst systemu liczbowego');

readln(p);

writeln('podaj liczbe do zamiany na ten system liczbowy');

readln(l);

end;

procedure zamien(var tab:tablicowy;l:byte; const p:byte);

var

i,r,mem,tmp1,tmp2,j:byte;

begin

i:=1;

repeat

r:=l mod p;

l:=l div p;

tab[i]:=r;

i:=i+1;

until l=0;

mem:=i-1;

j:=low(tab);

for i:=mem downto low(tab) do

begin

tmp1:=tab[i];

tmp2:=tab[j];

tab[i]:=tmp2;

tab[j]:=tmp1;

j:=j+1;

end;

end;


procedure wypisz(tab);

var i:byte;

begin

for i:=low(tab) to high(tab) do write(tab[i]);

end;



begin

pobierz(p,l);

zamien(tab,l,p);

wypisz(tab);

readln;


end.

Program jest według mnie dobry tylko ma jeden problem: wyłacza sie nie pokazujac nic. Wlasciwie to cos pokazuje tylko za szybko znika;)

[[Ekspert] Hakken]

Dopisz na końcu readln;