© 2020 Bài Kiểm Tra.com. All Rights Reserved.

Lập trình Pascal: chuyển một số thập phân sang nhị phân và bát phân

Thứ hai - 06/01/2020 11:05
Hướng dẫn lập trình Pascal:Bài 1: Chuyển 1 số từ hệ thập phân sang nhị phân.Bài 2: Chuyển 1 số từ hệ thập phân sang bát phân.
Bài 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ài 2: Chuyển 1 số từ hệ thập phân sang bát phân.

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

  • Trang
    ai có thể giúp mình viết CT chuyển từ hệ thập phân sang hệ 16 với ạ
      Trang   19/10/2023 04:49
    • @Trang Program Doi_thap_phan_ra_thap_luc_phan;
      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.
        Bài Kiểm Tra   19/10/2023 10:20
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây