chuyển số tự nhiên sang nhị nhân dùng for trong borland C++

[langman]

Xin code borlan C: chuyển số tự nhiên sang nhị nhân . Mai kiểm tra bài rồi mà .... có anh nào giúp e với

[nhc1987]

Vấn đề này đã được đề cập trong diễn đàn. Sau đây là đoạn code của anh TQN:

#include <stdio.h>#include <stdlib.h> #define IsBitSet(value, index) (((value) & ((1L) << (index))) != 0) int main(int argc, char* argv[]){    unsigned int number = 0;    int i = 0;     printf("Input a number: ");    scanf("%u", &number);    if (0 == number)    {        printf("0 mà cũng đòi biểu diễn binary hả cha nội\n");        return EXIT_FAILURE;    }     printf("Binary format of number: ");    for (i = sizeof(number) * 8 - 1; i >= 0; i--)    {        printf(IsBitSet(number, i) ? "1" : "0");        if (0 == (i % 4))        {            printf(" ");        }    }     return EXIT_SUCCESS;}

[langman]

ko có chữ thank để cám ơn như ở t2. cám ơn mod.
cám ơn bạn có thể giúp mình giải nốt câu mở rộng kô ?? câu này để kiếm điểm 10:
câu mở rộng thực hiện quy trình chuyển đổi với pascal chỉ dùng for và if . Cám ơn mod nhiều

[TQN]

Ừ, giúp thì giúp cho trót, tui code thẵng ra đây cho cậu luôn, code Delphi, tui không có Pascal:

program Num2Bin; {$APPTYPE CONSOLE} uses   Windows; var  number: Integer = 0;  I: Integer = 0; begin  Write('Input a number: ');  ReadLn(number);  if number = 0 then  begin    WriteLn('Mệt mấy cái kiểm tra lỗi này quá, thoát luôn cho rồi');    Exit;  end;   Write('Binary format of number ', number, ' :'); // viết tiếng Anh sai bét nữa rồi.  for I := SizeOf(number) * 8 - 1 downto 0 do  begin    if IsBitSet(number, I) then      Write('1')    else      Write('0');     if (I mod 4) = 0 then      Write(' ');  end;end.

Hàm IsBitSet thì cậu tự viết, muốn 10 điểm thì phải bỏ ra 1 chút công sức gì chứ