Viết chương trình chuyển đổi số tự nhiên N cho trước sang hệ cơ số 2 bằng việc xây dựng hàm chuyển đổi. PASCAL

0 bình luận về “Viết chương trình chuyển đổi số tự nhiên N cho trước sang hệ cơ số 2 bằng việc xây dựng hàm chuyển đổi. PASCAL”

1. Program chuyen_doi;

   uses crt;

   var n:longint;

   {—HAM—}

   function nhiphan(k:longint):string;

   var du:byte; s:string;

   begin

        nhiphan:=”;

        if (k=0) or (k=1) then str(k,nhiphan)

        else

                  while k<>0 do

                       begin

                            du:=k mod 2;

                            k:=k div 2;

                            str(du,s);

                            nhiphan:=s+nhiphan;

                       end;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN
        clrscr;

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

        write(‘He nhi phan la: ‘,nhiphan(n));

        readln;

   end.

   Bình luận