Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Bài tập Pascal – Từ cơ bản đến nâng cao
Bài tập 10.01 – Đổi số thập phân thành số nhị phân:
Để đổi số thập phân thành số nhị phân ta thực hiện như sau:
TD: Đổi số 137 => Đem chia cho 2 đến khi kết quả phép chia bằng 0 rồi lấy ngược các số dư
137 2
1 68 2
0 34 2
0 17 2
1 8 2
0 4 2
0 2 2
0 1 2
1 0
Kết quả là 137 10 = 10001001 2
Var
n, k: Integer;
CNP: String;
Begin
WriteLn('Hay nhap so can doi tu he 10 sang he 2');
ReadLn(n);
k := n;
While k>0 do Begin
If k mod 2 = 0 then CNP:='0' + CNP
Else CNP := '1' + CNP;
k := k div 2;
End;
WriteLn('So ', n, ' trong he 10 doi sang he 2 la ', CNP);
ReadLn;
End.
Bài tập 10.02 – Đổi số thập phân thành số thập lục phân (hệ 16):
Để đổi số thập phân thành số hệ 16 ta thực hiện như sau:
TD: Đổi số 249 => Đem chia cho 16 đến khi kết quả phép chia bằng 0 rồi lấy ngược các số dư.
Chú ý các số dư từ 10 đến 15 được chuyển đổi thành A đến F
Biên soạn: Th.s Nguyễn Anh Việt Trang 36