X
تبلیغات
پیکوفایل
رایتل

قرآن در کامپیوتر

دانلود نرم افزار های قرآنی یه صورت رایگان

شماره ی روز از کل سال

qbasic 
شماره ی روز از کل سال را گرفته و خروجی آن این است که معلوم می کند چندمین روز و چندمین ماه سال است


مثال
ورودی      241
خروجی     ماه هشتم   و    روز 25

در انتها عبارت q را پاک کنید

CLS : o = 31                                        q
INPUT "enter days ( 1 - 365 ) : ", n   q     
   FOR i = 1 TO 11                                   q
      IF n <= o THEN EXIT FOR                    q
      n = n - o                                            q
      IF i = 6 THEN o = 30                           q
   NEXT i                                               q
PRINT "month = "; i, "day = "; n            q
END       
 

تاریخ ارسال: سه‌شنبه 16 مرداد‌ماه سال 1386 ساعت 08:26 ب.ظ | نویسنده: مهندس | چاپ مطلب 0 نظر