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.
Program DOI_THAP_PHAN_SANG_BAT_PHAN;
Uses Crt;
Var d:array[1..20] of byte;
i,j,n:integer;
Begin
Clrscr;
Writeln('DOI SO THAP PHAN SANG BAT PHAN:');
Writeln('-------------------------------');
Write('Nhap so can doi n = ');Readln(n);
i:=1;
Repeat
d[i]:=n mod 8;
n:=n div 8;
i:=i+1;
Until n=0;
Write('So bat phan la:');
For j:=i-1 downto 1 do
Write(d[j]);
Readln;
End.
Ý kiến bạn đọc
Những tin cũ hơn
Uses Crt;
Var
N,Y:Word;
He16,Tam:String;
Begin
Clrscr;
Writeln('DOI SO TU HE THAP PHAN SANG HE THAP LUC PHAN');
Writeln(' -----------------');
Write('- Nhap so can doi: ');
Readln(N);
He16:=' ';
Repeat
Y:=N Mod 16;
If Y < 10 Then
Str(Y, Tam)
Else
Tam:=Chr(Y+55);
He16:=Tam + He16;
N:= N Div 16;
Until N = 0;
Writeln('So he thap luc phan la: ',He16);
Readln
End.