Pascal...help me!!!

Điều hành viên: big_wings

Pascal...help me!!!

Bài viết chưa xemgửi bởi Microsoft » Thứ 2 Tháng 1 28, 2008 11:56 am

Nhập số nguyên dương N, đưa ra màn hình dãy nhị phân của số đó.
Ví dụ nhập số 17 thì sẽ xuất ra màn hình 010001 (chắc mọi người biết cách chuyển từ số thập phân ra nhị phân rồi)
------------------------------------------
---oo00-VLSP-00oo---
------------------------------------------
Hình đại diện của thành viên
Microsoft
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 175
Ngày tham gia: Thứ 4 Tháng 12 19, 2007 3:03 pm

Re: Pascal...help me!!!

Bài viết chưa xemgửi bởi PVT » Thứ 2 Tháng 1 28, 2008 1:22 pm

__
╟╨
Hình đại diện của thành viên
PVT
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 79
Ngày tham gia: Thứ 6 Tháng 1 26, 2007 2:18 am
Đến từ: Tập đoàn PVT Soft

Re: Pascal...help me!!!

Bài viết chưa xemgửi bởi Sarah » Thứ 2 Tháng 1 28, 2008 2:34 pm

Bài đây bạn:

program Doi_nhi_phan;
uses crt;
var n,i,du,ng,j:byte;
A:array[1..100] of integer;
BEGIN
clrscr;
write('Nhap chuoi: ');readln(n);
ng:=n;
j:=1;
while ng<>0 do
begin
du:=ng mod 2;
ng:=ng div 2;
A[j]:=du;
j:=j+1;
end;
for i:=j-1 downto 1 do
write(A[i]);
readln;
END.
Hôm qua là quá khứ
Ngày mai là tương lai
Chỉ có hôm nay là hiện tại - là món quà mà cuộc sống ban tặng ^_^


Để dành $ mua SmartPhone =))
Hình đại diện của thành viên
Sarah
^_^ Keeping Moving Forwarding ^_^
^_^ Keeping Moving Forwarding ^_^
 
Bài viết: 745
Ngày tham gia: Thứ 3 Tháng 4 03, 2007 3:58 pm
Đến từ: Bến Tre

Re: Pascal...help me!!!

Bài viết chưa xemgửi bởi Microsoft » Thứ 3 Tháng 1 29, 2008 3:35 am

Chương trình của bạn khi nhập số 17 chỉ xuất ra màn hình 10001, trong khi yêu cầu phải là 010001
------------------------------------------
---oo00-VLSP-00oo---
------------------------------------------
Hình đại diện của thành viên
Microsoft
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 175
Ngày tham gia: Thứ 4 Tháng 12 19, 2007 3:03 pm

Re: Pascal...help me!!!

Bài viết chưa xemgửi bởi Sarah » Thứ 3 Tháng 1 29, 2008 3:53 am

Ngay chỗ for i:=j-1 downto 1 do bạn sửa thành i:=j downto 1 do thì ra đúng kết quả thôi!
Hôm qua là quá khứ
Ngày mai là tương lai
Chỉ có hôm nay là hiện tại - là món quà mà cuộc sống ban tặng ^_^


Để dành $ mua SmartPhone =))
Hình đại diện của thành viên
Sarah
^_^ Keeping Moving Forwarding ^_^
^_^ Keeping Moving Forwarding ^_^
 
Bài viết: 745
Ngày tham gia: Thứ 3 Tháng 4 03, 2007 3:58 pm
Đến từ: Bến Tre


Quay về Học các môn khác

Ai đang trực tuyến?

Đang xem chuyên mục này: Không có thành viên nào đang trực tuyến1 khách