Onluk (decimal) sayı sitemini ikilik (binary) sayı sistemine çeviren program.

Onluk (decimal) sayı sitemini ikilik (binary) sayı sistemine çeviren program.



uses crt;
   var
   i,say,sayi1:integer;
   begin
   clrscr;
   writeln(‘sayıyı gir:’);readln(sayi);
   for i:=1 to sayi do begin
   sayi1:=sayi mod 2;
   write(‘sayi1);
   sayi:=sayi div 2;
   if (sayi=1) then break;

   end;
   writeln(sayi);
   readln;
   end.



Linkback: https://www.buyuknet.com/onluk-decimal-sayi-sitemini-ikilik-binary-sayi-sistemine-ceviren-program-t8635.0.html