program w pascalu zamieniający liczby dziesiętne na binarne!

[czarnys69]

Witam:)

Ma ktoś może podobny programik albo potrafi napisać program zamieniający liczby dziesiętne na binarne! w skali od 0 do 255. Z góry dziękuje za wszelką pomoc!

[Szemek]

wersja rekurencyjna

Kod: Zaznacz cały

program system_dwojkowy;

var a:integer;

procedure bin(liczba:integer);
begin
   if liczba >= 2
      then bin(liczba div 2);
write(liczba mod 2)
end;

begin
   read(a);
   bin(a);
end.

[czarnys69]

Dzięki bardzo;) a mógłby mi ktoś jeszcze pomoc żeby to było w takiej ładniejszej postaci tzn.
-żeby na początku pytał o liczbę dziesiętną
-w wyniku otrzymywał liczbę binarną
-aby czyścił się ekran lub aby spytał czy wyjść z programu czy ma wprowadzić kolejną liczbę.

chodzi o coś takiego:
"Podaj liczbę dziesiętną:
255
Otrzymałeś: 11111111
Czy chcesz liczyć dalej
Tak
Liczy dalej
NIE konczy prace programu:P

Z góry dziękuje za wszelką pomoc! Próbowałem już pisać to po swojemu ale chyba nie pisze tego tam gdzie powienienem bo ciągle coś nie tak;/

[Szemek]

wprowadziłem zmiany do kodu, może nie jest dokładnie to, o co prosiłeś, ale jest zachowana funkcjonalność

Kod: Zaznacz cały

program system_dwojkowy;

var a:integer;
    dzialaj:integer;

procedure bin(liczba:integer);
begin
   if liczba >= 2
      then bin(liczba div 2);
write(liczba mod 2)
end;

begin
dzialaj:=1;
while dzialaj=1 do
begin
write('Podaj liczbe dziesietna: ');
   read(a);
   bin(a);
writeln();
write('Czy chcesz liczyc dalej (jesli TAK - wpisz 1, jesli NIE - wpisz 0): ');
read(dzialaj);
end;
end. 

[czarnys69]

dziękuje serdecznie;) wszystko działa jak należy;))

[jasiuu23]

odświeżam!, ten sam problem, ale żeby program liczył REKURENCYJNIE, ? ktoś ma pomysł?