Program do konwersji liczb w systemie

dziesiętnym na binarny.

Turbo Paskal

Program do konwersji;

Uses crt; {biblioteka crt}

Var {zmienne}

liczba1:byte;

liczba2:array [1..8] of byte;

i,temp:byte;

Begin

Clrscr;

Write('podaj liczbe w systemie dziesietnym: ');

Readln(liczba1);

temp:=liczba1;

for i:=1 to 8 do

Begin

liczba2[i]:=temp mod 2;

temp:=temp div 2;

End; {koniec}

Write('liczba ',liczba1,' w systemie binarnym ma postac: ');

for i:=8 downto 1 do write(liczba2[i]);

Writeln;

Repeat until keypressed;

End. {koniec}