ورود

نسخه کامل مشاهده نسخه کامل : كمك كنيد



Moh3en_f1
06-03-2009, 10:22
دوستان يه برنامه ساده ميخواستم اگه ميشه كمكم كنيد:

برنامه اي بنويسيد كه 3 عدد از وردي بگيرد و كوچكترين و بزرگترين مقدار بين آنها را چاپ كند؟
برنامه اي بنويسيد كه نام و دماي 10 شهر را از ورودي بگيرد و سپس گرم ترين و سرد ترين آنها را چاپ كند؟
مي خواهيم مبلغ 20 ريال را با سكه هاي 1،2،5،10 ريالي خرد كنيم. برنامه اي بنويسيد كه حالت هاي ممكن را نمايش دهد ؟ :41:

Moh3en_f1
06-03-2009, 14:21
پس چرا كمكم نمي كنيد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Moh3en_f1
07-03-2009, 17:24
چرا هيشكي به من كمك نميكنه ! خواهش ميكنم كمكم كنيد :41:

hakerpat
07-03-2009, 17:39
برای برنامه اول
dim a as integer
dim b as integer
dim c as integer
dim s as integer
dim n as integer
a=inputbox("مقدار را وارد کنید")
b=inputbox("مقدار را وارد کنید")
c=inputbox("مقدار را وارد کنید")
s=max(a ,b , c)
n=min(a,b,c)
print n
print s:10:

hakerpat
07-03-2009, 17:50
5 تا حافظه ایجاد از نوع اینتیجر کن بعد برای سه تاش این پوت باکس بذار
با تابع مکس بزرگترین مقدار و با مین کوچکترین مقدار رو پیدا کن:10:

Moh3en_f1
08-03-2009, 16:16
برنامه ات Eroor ميده ولي بازم ممنونم