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

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

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

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

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

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       
 

نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد