Onluk (decimal) sayı sistemini onaltılık (hexedecimal) sayı sistemine çeviren pr

Onluk (decimal) sayı sistemini onaltılık (hexedecimal) sayı sistemine çeviren program.



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

   write(sayi1)
   else if (sayi1=10) then
   write(‘A’)
   else if (sayi1=11) then
   write(‘B’)
   else if (sayi1=12) then
   write(‘C’)
   else if (sayi1=13) then
   write(‘D’)
   else if (sayi1=14) then
   write(‘E’)
   else if (sayi1=15) then
   write(‘F’);
   if (sayi<16) then break;
   end;
   writeln(sayi);
   readln;
   end.



Linkback: https://www.buyuknet.com/onluk-decimal-sayi-sistemini-onaltilik-hexedecimal-sayi-sistemine-ceviren-pr-t8636.0.html