aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dies ist eine Umrechner einer Zahl vom üblichen Dezimalsystem ins Binärsystem (=Dualsystem).

Programm

var x,i,y:longint;
    sbin,s:string;

begin
writeln('Zahl in Dezimalschreibweise');
readln(x);
i:=2*x;

repeat
i:=trunc(int(i/2));
y:=(i mod 2);
str(y,s);
sbin:=s+sbin;
until int(i/2)<1;

writeln;
write('In Binaerschreibweise : ',sbin);
readln;
end.

---

--Gastarbeiter 19:57, 21. Mär 2006 (CET)

---