برنامه ای برای خواندن یک عدد صحیح و چاپ معادل باینری(دو دویی) آن.

Arash pc · Nov 20, 2011

سلام.
لطفا هرکسی که به زبان پاسکال تا حدودی مسلط هستش ، این برنامه رو زحمتشو بکشه.
ضمنا گفتن که باید از دستورات mod و div استفاده کنیم.
ممنون میشم اگه کمکم کنید....... یا حق.

the_king · Nov 20, 2011

Arash pc گفت:
سلام.
لطفا هرکسی که به زبان پاسکال تا حدودی مسلط هستش ، این برنامه رو زحمتشو بکشه.
ضمنا گفتن که باید از دستورات mod و div استفاده کنیم.
ممنون میشم اگه کمکم کنید....... یا حق.

کد:

USES CRT;
VAR
    n : INTEGER;
    bin : STRING;
BEGIN
    WRITELN ('Please enter a integer number :');
    READLN (n);
    REPEAT
        BEGIN
            bin := CHR(48 + n MOD 2) + bin;
            n := n DIV 2;
        END;
    UNTIL n = 0;
    WRITELN ('Binary form = ' + bin);
    READKEY();
END.

Arash pc · Nov 21, 2011

خیلی ممنون برای اهمیت دادنتون به کاربرا و پاسخ دادن سوالم. :rose:

اگه بخوایم که برنامه تو یک حلقه هر تعداد عدد رو بخونه و معادل باینریش رو حساب کنه ، باید چه تغییری اعمال کنیم؟ (شرط پایان حلقه هم عدد صفر باشه).
ممنون میشم اگه در این مورد هم من رو یاری کنید. یا حق.

the_king · Nov 21, 2011

Arash pc گفت:
خیلی ممنون برای اهمیت دادنتون به کاربرا و پاسخ دادن سوالم.
اگه بخوایم که برنامه تو یک حلقه هر تعداد عدد رو بخونه و معادل باینریش رو حساب کنه ، باید چه تغییری اعمال کنیم؟ (شرط پایان حلقه هم عدد صفر باشه).
ممنون میشم اگه در این مورد هم من رو یاری کنید. یا حق.

کد:

USES CRT;
VAR
    n : INTEGER;
    bin : STRING;
BEGIN
[B][COLOR="Blue"]    REPEAT
    BEGIN[/COLOR][/B]
        WRITELN ('Please enter a integer number :');
        READLN (n);
[B][COLOR="Blue"]        IF (n = 0) THEN
            BREAK;
        bin := '';[/COLOR][/B]
        REPEAT
        BEGIN
            bin := CHR(48 + n MOD 2) + bin;
            n := n DIV 2;
        END;
        UNTIL n = 0;
        WRITELN ('Binary form = ' + bin);
[B][COLOR="Blue"]    END;
    UNTIL FALSE;[/COLOR][/B]
END.