Pascal array to integer

ma jednoduchy program na premenu cisla desiatkovej sustavy do dvojkovej.

program sustavy;

uses grafika;
var u, i, cislo, odlozene, zvysok : integer;
a: array [1..200] of integer;
begin
writeln("Zadaj cislo ktore chces previest");
readln(cislo);
odlozene:=cislo;

i:=1;
repeat
a[i]:=cislo mod 2;
i:=i+1;
cislo:=cislo div 2;

until (cislo=0);
write("zapis cisla ", odlozene, " v dvojkovej sustave je: ");
for u:=i-1 downto 1 do
begin {vypis pola odzadu}
write(a[u]);
end;
end.


problem je ze ja potrebujem mat to vypocitane cislo ako integer. A ja ho mam ako pole(array).

Neviete ako to vyriesit. Nejaky cyklus?

Dik Moc

Jeden zo spôsobov (nadväzuje na príklad):

Neviem, ako mas presne postavenu ulohu, ale nebolo by praktickejsie ukladat si cislo v dvojkovej sustave do stringu, kde mas ovela mensie obmedzenia na dlzku a da sa to aj previest na integer? So stringami sa da aj jednoducho zaobchadzat, napr. dajme si premennu bin, ktora je cislo v dvojkovej sustave ako string, potom mozes tiez urobit, ze bin:=bin+'1' alebo bin:=bin+'0' a vypis, ze writeln(bin) a mas pokoj A potom je aj prikaz "val", ktory vie previest string na integer, ak to potrebujes.

edit: prikaz val sa pouziva tak, ze das val(str,int,code), kde str je string, z ktoreho prevadzas, int je cislo, do ktoreho ukladas a code je premenna typu integer, ktora sluzi myslim, ze na to, aby sa overilo, ze v stringu nie je nejaky iny znak, ale nie som si isty. Staci ju len deklarovat a dat ju tam ako parameter, nic viac netreba.