- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Đổi từ hệ 10 sang hệ 2 (hệ thập phân sang nhị phân)



Nguyên tắc của phương pháp chuyển đổi từ hệ cơ số 10 sang hệ cơ số 2 là lấy số cần chuyển đổi chia cho 2 (kết quả chỉ lấy phần nguyên), sau đó tiếp tục lấy kết quả chia 2 (và cũng chỉ lấy phần nguyên), kết quả số nhị phân thu được là tập hợp các số dư của các phép chia.

Program Doi_thap_phan_ra_nhi_phan;
Var
 He10,N,Y:Word;
   He2,Tam:String;
Begin
 Writeln('DOI SO TU HE THAP PHAN SANG HE NHI PHAN');
   Writeln('         -----------------');
   Writeln;
   Write('-Nhap so nguyen he thap phan: ');
   Readln(He10);
   N:=He10;
   He2:=' ';
   Repeat
    Y:=He10 Mod 2;
      Str(Y, Tam);
      He2:=Tam + He2;
      He10:= He10 Div 2;
   Until He10 = 0;
   Writeln;
   Writeln('+So he 10 la     : ',N);
   Writeln('+Doi sang he 2 la: ',He2);
   Writeln;
   Writeln('      Bam phim <Enter> de ket thuc');
   Readln
End.


Trần Hoàng Anh nói...

Bạn có thể làm giúp mình bài nhập vào một dãy số thuộc hệ nhị phân, sau đó chuyển sang hệ thập phân


21:08 Ngày 22 tháng 11 năm 2012
Nặc danh nói...

Mình đang cần chương trình đổi nhịp phân sang Hecxa, mà chưa biết ý tưởng giải như thế nào?


00:05 Ngày 21 tháng 09 năm 2013
Nặc danh nói...

Tốt nhưng chưa hay


18:17 Ngày 08 tháng 11 năm 2013
Nguyễn Sơn nói...

Var i,k,n: integer;
m: array[1..100] of integer;
Begin
clrscr;
write('Nhap so tu nhien can doi, n = ');readln(n);
write('So ',n,' doi sang he nhi phan la so: ',1);
i:=1;
Repeat
m[i]:= n mod 2;
n: n div 2;
i:= i + 1;
Until n =1;
For k:= i-1 downto 1 do write(m[k]);
write('.');
readln
End.


23:31 Ngày 21 tháng 11 năm 2014
Unknown nói...

Down to có tác dụng gì vậy bạn


17:22 Ngày 19 tháng 06 năm 2016
Unknown nói...

down to la nguoc lai voi to
VD: For i:=1 TO n do ( i Chay tu 1 toi n)
For i:=n down to 1 ( i chay tu n nguoc lai 1)


17:03 Ngày 31 tháng 07 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.