تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1837589475
راهنمایی در مورد یک دنباله در vb -
واضح آرشیو وب فارسی:سایت ریسک: راهنمایی در مورد یک دنباله در vb iceboy67 08 فروردين 1387, 13:24برنامه ای که 10 جمله اول دنباله زیر را نمایش دهد؟ ....1,1,2,6,24 البته تا آنجا که متوجه شدم یه چیزی مثل فیبوناچی با این تفاوت که از عدد سوم علاوه بر جمع کردن دو عدد قبلی شروع می کند به ضرب کردن حاصل, در یک و دو و به بالا اما همین که ضرب به فیبوناچی اضافه می کنم اون جوابی را که می خوام به من نمی ده Ultra_PRG 08 فروردين 1387, 15:15اگه ممکنه دو سه جمله دیگر رو هم بنویس تا ببینم دنبالت چیه با این 5 تا جمله که دادی نمیشه دقیقا فهمید چیه؟ Ultra_PRG 08 فروردين 1387, 16:06فکر کنم فهمیدم چه دنباله ای رو می خوای برای همین برات برنامشو نوشتم که هر چند جمله ای از این دونباله رو که بخوای برات چاپ می کنه خیلی هم راحته . این هم مثلا 8 جمله اول : امیدوارم منظورت رو درست فهمیده باشم 19357 iceboy67 08 فروردين 1387, 18:46فکر کنم فهمیدم چه دنباله ای رو می خوای برای همین برات برنامشو نوشتم که هر چند جمله ای از این دونباله رو که بخوای برات چاپ می کنه خیلی هم راحته . این هم مثلا 8 جمله اول : امیدوارم منظورت رو درست فهمیده باشم 19357 ممنون از راهنمایی خوبتان ولی این کدی که نوشتی فقط برای 8 عدد کاربرد دارد چون متغییر ها را درست انتخاب نکردی که اصل کدش به این صورت بود. Private Sub Command 1_Click() Dim n As Double Dim i As Integer n = Val(txtF.Text) txtA.Text = "" For i = 1 To n txtA.Text = txtA.Text + Str(XF(i)) + Space(2) Next i End Sub Private Function XF(ByVal n As Integer) As Double Dim i As Integer Dim a As Double Dim b As Double Dim c As Double If n <= 2 Then XF = 1 Exit Function End If a = 1 b = 1 For i = 3 To n c = a + b a = b b = c * (i - 2) Next i XF = b End Function armin_mx 09 فروردين 1387, 01:31از واریانت انتخاب می کردی خوب..! مثل پایین. یکم ساده تر هم میشد نوشت Const PI = 3.141592 Private Sub Command 1_Click() Dim n Dim i n = Val(txtF.Text) txtA.Text = "" For i = 1 To n txtA.Text = txtA.Text + Str(xf(i)) + Space(2) Next i End Sub Private Function xf(ByVal n) Dim i Dim a Dim b Dim c If n <= 2 Then xf = 1 Exit Function End If a = 1 b = 1 For i = 3 To n c = a + b a = b b = c * (i - 2) Next i xf = b End Function اینم یکم ساده تر.. Private Sub Command 1_Click() n = InputBox("") s = 1 For i = 1 To n Print i * s; s = i * s Next End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 2696]
-
گوناگون
پربازدیدترینها