نمايش پست تنها
قديمي ۰۸-۵-۱۳۹۹, ۰۹:۰۴ بعد از ظهر   #111 (لینک دائم)
Eng.kimiya Male
عضو جدید
 
آواتار Eng.kimiya
 
تاريخ عضويت: آبان ۱۳۹۹
پست ها: 1
تشكرها: 0
0 تشكر در 0 پست
Post

نقل قول:
نوشته اصلي بوسيله kcpu نمايش پست
سلام دوستان
من این مسله 8 وزیر را با زبان gwbasic حل کردم. امیدوارم که مفید باشد.
زبان gwbasic فاقد توانایی استفاده از توابع خود صدازن یا بازگشتی است.

100 defint i-n, s, x
110 dim x(8), stk(40)
120 sp=40: M=0: Gosub 150
130 end
140 '
150 m=m+1
160 if m>8 then print x(1); x(2); x(3); x(4); x(5); x(6); x(7); x(8): Goto 220
170 for i=1 to 8
180 j=1
190 if j<m and x(j)<>i and abs(x(j)-i)<>m-j then j=j+1: Goto 190
200 if j>=m then x(m)=i: Gosub 240: Gosub 150: Gosub 270
210 next
220 return
230 '
240 sp=sp-3: Stk(sp)=i: Stk(sp+1)=j: Stk(sp+2)=m
250 return
260 '
270 i=stk(sp): J=stk(sp+1): M=stk(sp+2): Sp=sp+3
280 return




سلام...توی مسیله ۸‌وزیر یه عدد ۲۰۵۷ صحبت شده که میگه عدد ۳*۱۰^۱۴ به عدد ۲۰۵۷ کاهش یافته ...این ۲۰۵۷ از کجا اومده؟؟؟
Eng.kimiya آفلاين است   پاسخ با نقل قول

  #ADS
نشان دهنده تبلیغات
تبليغگر
 
 
 
تاريخ عضويت: -
محل سكونت: -
سن: 2010
پست ها: -
 

نشان دهنده تبلیغات is online