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 câu trả lời
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.
