View Full Version : Giúp em nhanh cái em sắp đi học roài
Các bác giúp em với Đề là:
Nhập số tự nhiên N: In ra dạng biễu diễn nhị phân của N
tranvanho
03-12-2007, 19:29
bài này mai tui post lên cho
nhưng bạn hãy cứ thử suy nghĩ xem thuật toán nó thế nào
như vậy mới mong nhannh tiến bộ đc
Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết :D
program vd;
uses crt;
var n,i,j:word;
var a:array[1..50] of word;
begin
clrscr;
i:=0;
write('Nhap so N ');
read(n);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 2;
n:=n div 2;
if n=2 then begin
n:=0;
a[i+1]:=0;
end;
end;
for j:=i downto 1 do
write(a[j]);
readln;
readln;
end.
nhat_truong
18-06-2009, 02:32
Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết :D
program vd;
uses crt;
var n,i,j:word;
var a:array[1..50] of word;
begin
clrscr;
i:=0;
write('Nhap so N ');
read(n);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 2;
n:=n div 2;
if n=2 then begin
n:=0;
a[i+1]:=0;
end;
end;
for j:=i downto 1 do
write(a[j]);
readln;
readln;
end.
Ct chạy sai với n=4 và nhiều bộ dữ liệu khác
code đúng:
program vd;
uses crt;
var n,i,j: word;
a: array[1..50] of word;
begin
clrscr;
i:=0;
write('Nhap so N ');
read(n);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 2;
n:=n div 2;
end;
for j:=i downto 1 do
write(a[j]);
readln;
end.
pro9x.love.2t
18-06-2009, 03:18
bài từ năm 2007 mà cũng moi lên đc à #
nhat_truong
18-06-2009, 10:51
bài từ năm 2007 mà cũng moi lên đc à #
Tại rảnh hông có chuyện gì làm, mà bạn cũng thức khuya dzữ, 3h sáng còn post bài
trungcxht
05-04-2010, 22:19
procedure np(n : integer)
begin
if n div 2 <> 0 then np(n div 2);
write ( n mod 2 )
end;
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.