M
پسندها
0

ارسال های پروفایل آخرین فعالیت ارسال ها درباره

  • چندین روش داره
    بهترینش با Case اینه که بگی اگه از 10 کوچیکتر بود چاپ کنه 1 رقمی
    اگه از 100 کوچیک تر بود چاپ کنه 2 رقمی
    اگه 1000 کوچیکتر بود چاپ کنه سه رقمی
    و......
    درضمن هر سوالی داشتید در تالار برنامه نویسی دلفی مطرح کنید
    لینک تالار
    http://www.www.www.iran-eng.ir/forumdisplay.php?f=166
    سلام
    به مثال پایین نگاه کنید
    متغییر number مقدار 17 رو داره
    میگیم اگه باقیمانده 17 تقسیم بر 2 صفرشد دستور اول
    و اگر یک شد دستور دوم
    وگرنه دستور سوم
    number := 17;
    Case number mod 2 of
    0 : ShowMessage(IntToStr(Number)+' mod 2 = 0');
    1 : ShowMessage(IntToStr(Number)+' mod 2 = 1');
    else ShowMessage(IntToStr(Number)+' mod 2 is unknown');
    end;
  • بارگذاری...
  • بارگذاری...
  • بارگذاری...
بالا