چند تا سوال آسون

[amator1]

سلام به همه دوستان
من چند تا سوال دارم (مسئله)
1.يك برنامه بنويسيد كه بين 20 عدد كوچكترين عدد رو پيدا كنه

اين vb بود حالا 3 تا كويك بيسيك دارم اگر اين رو با توضيح بگين ممنون ميشم
1.يك برنامه بنويسد كه مقسوم عله هاي يك عدد را مشخص و چاپ كند
2.برنامه اي بنويسيد كه عددي را از شما دريافت كرده و مشخص كند عدد اول است يا نه
3.برنامه اي بنويسيد كه عدد كامل بين 1 تا 100را مشخص و چاپ كند
فقط دوستان مي دونم اين براي شما كاري نداره پس اگر ممكنه يكم زود

[__siavash__]

اين سورسو نگاه كن :

[Di Di]

یادش به خیر دبیرستان......

برای تعیین کوچکترین عدد می تونی از این الگوریتم استفاده کنی:
1- عدد اول رو برابر Min قرار بده
2 عدد بعدی رو با Min مقایسه کن:
: اگه عدد دوم از Min کوچکتره آنگاه عدد دوم رو در Min قرار بده
3- اگر عدد دیگری وجود داره برو به 2
4- Min رو به عنوان کوچکترین عدد چاپ کن
پایان!

Dim Nom(19) as Integer
Dim Min as Integer

Nom(0) = 15
Nom(1) = 62
.
.
.
Nom(19) = 10

Min=Nom(0)' Set Defult Min Nomber

For I=1 to 19
If Nom(I) < Min Then Min = Nom(I) ' Set Min Nomber
Next I

Print "Min Is :" & Min


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

اگه تازه کار نبودی کد اینها رو برات می فرستادم تا حالشو ببری ولی اگه الان یه کم به خودت سختی بدی بهتر از اینکه هرگز چیزی یاد نگیری


یاحق

[amator1]

آقا سياوش خيلي ممنون



دوستان اگر جواب سولات كويك بيسيك رو هم بدين ممنون ميشم

[amator1]

اگه تازه کار نبودی کد اینها رو برات می فرستادم تا حالشو ببری ولی اگه الان یه کم به خودت سختی بدی بهتر از اینکه هرگز چیزی یاد نگیری

ممنون
حالا اين يك بار رو بده كارم گيره