بدست آوردن باقیمانده تقسیم

[پژمان نیکروان 6,055]

سلام بچه ها. من دارم رو یه برنامه و ایده جالب کار میکنم که مغزم دیگه کار نمیکنه.*hendoone*

کسی میدونه تو بیسیک چطور باقیمانده حاصل تقسیم دو عدد رو بدست بیاریم؟؟

میدونم چیز ساده ای هست اما یادم رفته.

این راه رو پیش میرم اگه نتیجه نداد یه سوال دیگه هم دارم *give_heart*

[امیرنیوکی 147]

این روشیه ک من انجام دادم

    Dim db As Double : db = num
   Dim db2 As Double : db2 = db / 2
   Dim db3 As Double : db3 = db2 * 2
   Dim a As Double : a = db - db3

[پژمان نیکروان 6,055]

دوستان اینو یادم اومد یعنی همین درسته واسه باقیمانده یه عدد:

    Msgbox(8 Mod 2,"")

اینجا 8 رو بر 2 تقسیم میکنه و باقیمانده رو مسیج میده.

حالا کسی میدونه الگوریتم بدست اوردن عدد اول چی بود؟؟؟*dava*

[حاج حسین 2,098]

سلام پژمان جان

ببین این به کارت مباد

لینک

[نیما قبادی 246]

یه توضیح ساده

سلام.

(فرض: 2 و 3 اول هستن و 1 اول نیست)

اعداد ا تا 100 رو بنویسید بصورتیکه در هر ردیف 10 عدد قرار بگیره

عدد 1 رو خط بزن، چون اول نیست

سپس دور 2 یه دایره بکش، چون اول هستش. سپس، کلیه ضرائب 2 رو خط بزن (تا 100). به بیان دیگه، هر دو خونه درمیون رو خط بزن

سپس دور 3 دایره بکش، چون اول هستش. حالا دوباره، کلیه ضرائب 3 رو تا 100 خط بزنید (به بیان دیگه هر 3 خونه در میون رو خط بزن)

دور عدد بعدی ای که نه خط خورده، نه دورش دایره کشیده شده، یه دایره بکش. (طبیعتا این عدد 5 هستش). حالا ضرائب اون عدد (یعنی 5 برای بار اول) رو تا 100 خط بزنید

مرحله قبل رو اینقدر تکرار کن تا کلیه اعداد موجود در جدول یا خط خورده باشن، یا دورش دایره کشیده شده باشه.

کلیه اعدادی که دورش دایره کشیده شده، اعداد اول 1 تا 100 رو نشون میده.

موفق باشی

[پژمان نیکروان 6,055]

مرسی نیما جان.

یه روش دیگه هم بود که فکر کنم مثلا اگر عدد فلان بر1 و برخودش بخش پذیر بود اول هست... اینو درست گفتم؟؟

میخوام ابنکارو با بیسیک انجام بدم.

[نیما قبادی 246]

ببین عدد اول عددی طبیعی بزرگ* تر از ۱ است که بر هیچ عدد مثبتی بجز خود و ۱ بخش*پذیر نباشد. تنها استثنا عدد ۱ است که جزو این اعداد قرار نمی*گیرد. اگرعددی طبیعی وبزرگ* تر از ۱ اول نباشد مرکب است.

[نیما قبادی 246]

دستور mod برای محاسبه باقیمانده یک تقسیم به کار می رود. به مثال زیر توجه کن:

g=3
h=4
kk=mod(B,A)

نتیجه :

g =

    3


h =

    4


kk =

    1

به این صورت میشه فکر کنم تست نکردم

[پژمان نیکروان 6,055]

نه دستور بدست اوردن باقیمانده که اینجوری نیست. اینطوره:

g=4
k=3
msgbox(4 mod k,"")

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

حلقه فور داشته باشه که از عدد 1 تا عدد 20 اعداد اول رو تشخیص بده. و اعداد اول رو تو یه لیست جدا و مرکب رو تو لیست جدا.

[نیما قبادی 246]

داری برعکس مینویسی

تو این تست کن متوجه میشی

راستی g و k از نوع استرینگ هست

شما اگه 4 رو بر 4 تقسیم کنی جواب چند میشه؟؟

  g=4
   k=g
   Msgbox(k Mod 4,"") 

[پژمان نیکروان 6,055]

خب جواب میشه 0 ... حالا بیخیال من عدد اول رو فهمیدم اما این واسه اون کاری که میخوام نتیجه نمیده .. سرم درد میکنه دیگه

[نیما قبادی 246]

شما مگه نگفتن (کسی میدونه تو بیسیک چطور باقیمانده حاصل تقسیم دو عدد رو بدست بیاریم؟؟)میخوام تقسیم کنم خوب این همون چیزی که میخوای

یا اینکه دیگه شما درست توضیح نمیدید