تبلیغات
تبلیغات متنی
محبوبترینها
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1833312991
محاسبه کردن n به توان m در ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: محاسبه کردن n به توان m در ویژوال بیسیک anayurdu 12 دي 1388, 12:58سلام بروبکس عزیر !!!! من چنتا سوال برام پیش اومده توش موندم و کمک داره نفسم تموم میشه لطفا کمکم کنید. مساله ها اینن: 3-برنامه ای که n و m را گرفته و با استفاده از ضرب های متوالی n بتوان m را محاصبه کند اینا همش تو VB 6 هستش.... کمک.... the_king 17 دي 1388, 03:03سلام بروبکس عزیر !!!! من چنتا سوال برام پیش اومده توش موندم و کمک داره نفسم تموم میشه لطفا کمکم کنید. مساله ها اینن: 3-برنامه ای که n و m را گرفته و با استفاده از ضرب های متوالی n بتوان m را محاصبه کند اینا همش تو VB 6 هستش.... کمک.... لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید. Private Sub Form_Load() Dim I As Long, M As Long, N As Long, P As Long N = Val(InputBox("Please enter N :")) M = Val(InputBox("Please enter M :")) P = 1 For I = 1 To M P = P * N Next MsgBox "N ^ M = " & CStr(P) End Sub amj2009 20 دي 1388, 08:40لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید. private sub form_load() dim i as long, m as long, n as long, p as long n = val(inputbox("please enter n :")) m = val(inputbox("please enter m :")) p = 1 for i = 1 to m p = p * n next msgbox "n ^ m = " & cstr(p) end sub ولي اين برنامه كه تا يه حد مشخصي بيشتر حساب نمي كنه.منظورم اينه كه كاري كنيد كه رقم هاي بالاتر مثل 2 به توان 10000 رو هم بنويسه.ممنون the_king 20 دي 1388, 14:45ولي اين برنامه كه تا يه حد مشخصي بيشتر حساب نمي كنه.منظورم اينه كه كاري كنيد كه رقم هاي بالاتر مثل 2 به توان 10000 رو هم بنويسه.ممنون کجا بنویسه؟ همچین عدد بزرگی بیش از 3000 رقم داره، نه توی صفحه نمایش جا برای نوشتنش هست و نه قابل خواندنه، حساب کردنش فایده ای نداره. pirmard 21 دي 1388, 10:21ولي اين برنامه كه تا يه حد مشخصي بيشتر حساب نمي كنه.منظورم اينه كه كاري كنيد كه رقم هاي بالاتر مثل 2 به توان 10000 رو هم بنويسه.ممنون ساد ترین راه برای محاسبات اینچنینی (محاسباتی که داده ی مبدا و یا مقصد در غالت دیتا تایپ های زبان موجود نیست) استفاده از آرایه هاست . یعنی اینکه شما اعدادتون رو رقم به رقم توی خونه های آرایه قرار بدین و سپس محاسباتتون رو روی اونا انجام بدین . (کلیت کار همچین چیزیه که اگه ندونین کارتون با چند رقمه و بخاین فضای اشافه نگیرین مجبور میشین از لینکد-لیست و ... استفاده کنین) که اگه بخواین شسته رفته تر کار کنین بهتره ابسترکت داشته باشین به عنوان یه نوع جدید که به اصطلاح اپراتورهای اون ابسترکت رو هم مختص همون بنویسین (انکپسولیشن داشته باشین)
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1525]
-
گوناگون
پربازدیدترینها