Hãy Vct Pascal nhập vào số nguyên n,dùng mod và div để chuyển số nguyên n thành số nhị phân

0 bình luận về “Hãy Vct Pascal nhập vào số nguyên n,dùng mod và div để chuyển số nguyên n thành số nhị phân”

1. Chuyển 1 số từ hệ thập phân sang nhị phân.

   Program DOI_THAP_PHAN_SANG_NHI_PHAN;
   Uses Crt;
   Var d:array[1..20] of byte;
            i,j,n:integer;
   Begin
           Clrscr;
           Writeln(‘DOI SO THAP PHAN SANG NHI PHAN:’);
           Writeln(‘————————————‘);
           Write(‘Nhap so thap phan la n=’); Readln(n);
            i:=1;
          Repeat
                d[i]:=n mod 2;
                n:=n div 2;
                i:=i+1;
          Until(n=0);
          Write(‘So nhi phan la:’);
           For j:=i-1 downto 1 do
              Write (d[j]);
           Readln;
   End.

   Bình luận

2. program nhi_phan;

   uses crt;

   var n:longint;

        s,st:string;

   begin

          clrscr;

          write(‘Nhap so: ‘);  readln(n);

          s:=”;

          while n>0 do

                 begin

                        str(n mod 2,st);

                        s:=st+s;

                        n:=n div 2;

                 end;

          write(‘So nhi phan la: ‘,s);

          readln;

   end.

   Bình luận