گراف

کدام دنباله می تواند دنباله ی درجه های راس های یک گراف باشد ؟ 

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

طرز کار برنامه :
1- ابتدا دنباله را بصورت صعودی مرتب می کند
2- بزرگترین جمله را حذف و به تعداد آن از جمله های قبلی یک واحد کم می کند
3- اگر عدد مفنفی ظاهر شود دنباله گرافیکی نیست
4- دوباره مرتب می کند
5-درانتها اگر دنباله به عدد صفر برسد آنگاه دنباله مربوط به یک گراف ساده خواهد بود. 

CLS INPUT "tedade ras ha : ", n DIM a(n) PRINT "Enter one by one deg graf :" FOR i = 1 TO n INPUT a(i) NEXT i DO FOR i = 1 TO n FOR j = 1 TO n - i IF a(j) > a(j + 1) THEN SWAP a(j), a(j + 1) END IF NEXT j, i k = n FOR i = a(n) TO 1 STEP -1 k = k - 1 a(k) = a(k) - 1 IF a(k) < 0 THEN PRINT "no graf" END END IF NEXT i a(n) = 0 n = n - 1 LOOP UNTIL n = 0 PRINT "ok graf" END PRINT "sys.blogsky.com"