برنامه ای بنوسید که دو عدد گرفته و در صورتی که عدد دوم مقسوم علیه اول باشد پیغام مناسبی روی لیبل چاپ کند
Printable View
برنامه ای بنوسید که دو عدد گرفته و در صورتی که عدد دوم مقسوم علیه اول باشد پیغام مناسبی روی لیبل چاپ کند
سلام.
همون جور که میدونی یه عدد وقتی مقسوم علیه یه عدد دیگست که وقتی اونو تقسیم بر اون یکی عدد بکنیم باقیمانده نداشته باشه.
توی VB یه عملگر هست به اسم MOD که به صورت زیر نوشته میشه و باقیمانده رو نشون میده.
الان عدد اول تقسین بر عدد دوم میشه و باقیماندش توی متغیر ریخته میشه.کد:a= عدد اولMOD عدد دوم
می تونی من رو بیشتر راهنمای کنید یا برام کدشو بنویس ممنون می شم
دوست گرامینقل قول:
این سورسو من برات تهیه کردم نگاه بکنی 2 خط بیشتر نیست لطفا تلاش کنید تا دوستان هم کمکتون کنند
موفق باشید
[HTML]http://www.4shared.com/file/142153177/11a531e8/Mod.html[/HTML]
خیلی مردی
به غیر از خودت کمکم کنی بقیه انگار مردن
برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند
برنامه بنوسید که دو عدد را گرفته و عدد زوج بین انها را چاپ کند
برنامه ای بنوسید که اعداد نوسط کادر t1 را دریافت کرده و اعداد روج قبل ان را چاپ کند
اگر این سه تا رو بگی خیلی در حق من برادری کردی چون فردا باید پروژه رو تحویل بدم فقد این سه تا مونده بقی رو خودم حل کردم
کمکم کن
سلام پسر خوبنقل قول:
به خودم و دوستانم توصیه میکنم همیشه ادب و احترام را سر لوحه خود قرار دهیم
[HTML]http://www.4shared.com/file/142198219/b0f06f30/adad_zoj.html
http://www.4shared.com/file/142198290/1f55d9c/adadZojGhabl.html[/HTML]
ممنون از شما اون دوتا رو رفته بودم تا وسط ها به کمک تو کامل شد
این اخری هست
برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند
همش رو نوشتم ممنون از همه واقعا از ته دل می گم
این برنامه چه مشکلی داره
n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min = m
Else: min = n
End If
bmm = 1
For i = 1 To min
if (n mod i=0)and(m mod i=0)and(i > bmm)
این هم هست
n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min
Else: min = n
For i = 1 To min
If (n Mod i = 0) And (m Mod i = 0) Then
Me.Print i
End If
Next i
سلام
برنامه عدد اول
توی اون تکست باکسس یک عدد مینویسی بعد کامند1 رو میزنی تمامی اعداد اول زیر اون عددی که وارد کردی در لیست باکس ادد میشه
کد:http://rapidshare.com/files/299906707/adad_aval.frm