پرچم تشریفات با کیفیت بالا و قیمت ارزان
پرواز از نگاه دکتر ماکان آریا پارسا
دکتر علی پرند فوق تخصص جراحی پلاستیک
تجهیزات و دستگاه های کلینیک زیبایی
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
تعداد کل بازدیدها :
1848591807
محاسبه کردن 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 رو هم بنويسه.ممنون ساد ترین راه برای محاسبات اینچنینی (محاسباتی که داده ی مبدا و یا مقصد در غالت دیتا تایپ های زبان موجود نیست) استفاده از آرایه هاست . یعنی اینکه شما اعدادتون رو رقم به رقم توی خونه های آرایه قرار بدین و سپس محاسباتتون رو روی اونا انجام بدین . (کلیت کار همچین چیزیه که اگه ندونین کارتون با چند رقمه و بخاین فضای اشافه نگیرین مجبور میشین از لینکد-لیست و ... استفاده کنین) که اگه بخواین شسته رفته تر کار کنین بهتره ابسترکت داشته باشین به عنوان یه نوع جدید که به اصطلاح اپراتورهای اون ابسترکت رو هم مختص همون بنویسین (انکپسولیشن داشته باشین)
این صفحه را در گوگل محبوب کنید
-