اشكال اين كجاست

واضح آرشیو وب فارسی:سایت ریسک: fozool.mohammad javad26-09-2006, 03:12 AMسلام خروجي اين برنامه بايد بگه اين عداد بر 2و3 بخش پذيرند dim fozool,n as integer fozool=val(text1.text while fozool>0 n=fozool mod 10 fozool=fozool10 if (n mod 2=0)or(n mod 3=0)then text2.text=text2.text+str(n end if حالا مثلا اگه به وروديش 557898 بديم بايد 8 9 8 رو بده كه اين كار صورت نمي گيره :blink: 0011026-09-2006, 10:58 AMبه نظر که درست میاد ولی این خط رو درست کن if (n mod 2=0) or (n mod 3=0) then در ضمن عدد رو بزرگ دادی فکر کنم سرریزی شده ... Admiral26-09-2006, 12:09 PMویرایش شد !!! Admiral26-09-2006, 12:30 PMفکر کنم الان منظورت رو متوجه شدم. پس پست قبلی رو بی خیال شید. ولی سوالت رو خیلی مبهم پرسیده بودی. این کد جواب میده : طبق معمول چون VB نصب ندارم توی Qbasic نوشتم. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! میشه بگی به جای 8 9 8 چه خروجی ای رو میده ؟ Admiral26-09-2006, 12:38 PMدر ضمن عدد رو بزرگ دادی فکر کنم سرریزی شده ... بله سرریز (Overflow) رخ داده ! راه حل اینه که عدد رو از همون اول به Integer تبدیل نکنی. یعنی عدد داخل Text1 رو با تابع Val به Integer تبدیل نکن. به جاش ارقام اون رو یکی یکی از انتهای رشته جدا کن و به Integer تبدیل کن و اگه بر 2 یا 3 بخشپذیر بود به Text2 اضافه کن. موفق باشید fozool.mohammad javad27-09-2006, 02:38 AMسلام 01110 اونجا كه داشتم پست ميدادم اشتب شد شرمنده admiral مرسي دمت گرم تازه با ديدن كدت فهميدم اشكال من كجاست اگه گفتم نخندين يه خورده گيج زدم جاي end if با wend بر عكس نوشتم يعني اول wend مينوشتم بعد end if سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 300]