vatanfa
May 7th, 2011, 17:16
سلام
سه تا فعالیت هست که من حتما تا فرداد ببرمش اگه دوستانی میتونن کمک کنن خیلی ممنون میشم.من کد ها رو (جوابشون رو)از این وبلاگ گرفتم پاسخ تمرینات فصل 12 درس مبانی رایانه سال سوم ریاضی - دبیرستان نمونه دولتی دخترانه شهید سجادی رفسنجان (http://nemunehsajady87.persianblog.ir/post/26) فقط مشکلم اینه که نمیدونم کد ها رو کجا بزارم یعنی مثلا بزارم توی همون صفحه اصلی،بزارم توی یک command و یا غیره،لطفا هر کی میتونه راهنمایی کنه چون خیلی عجله دارم.ممنون
1-اولی اینه»برنامه ای بنویسید که نام و نمره درس رایانه یک دانش آمورش را بخواند و معادل حرفی ان را با پیغام مناسب مطابق جدول زیر نمایش دهد(جدول توی کتاب هست اما اینجا اگه کد رو نگاه کنین می فهمین که جدول چی توش هست)
اینم کد اولی:
nam = inputbox("Enter name :")
n = val(inputbox("Enter grade : ")
if n>=0 and n<=20 then
select case n
case 18 to 20
grade="A"
case 15 to 18
grade="B"
case 12 to 15
grade="C"
case 10 to 12
grade="D"
case else
grade="E"
End select
End if
Msgbox "you got degree "+grade
2-برنامه ای بنویسید که تعداد دروس و نمرات مربوط به هر درس یک دانش آموز را بخواند و معدل دانش آموزش را نمایش دهد.
این هم کد دومی
n=val(inputbox("Enter number of lesson :"))
sum =0
for i=1 to n
num = val(inputbox("Enter grade of lesson :"))
sum=sum+num
next i
msgbox "average is "+str(sum/n)
3-برنامه ای بنویسید که قیمت تعدادی کالا را بخواند.این عمل را تا زمانی تکرار کند که کاربر قیمت کالا را ((صفر)) وارد کند.در پایان مجموع قیمت کالا ها را نمایش دهد.
این کد سومی:
price=val(inputbox("Enter a price : "))
sum=price
while price<>0
price=val(inputbox("Enter a price : "))
sum=sum+price
wend
msgbox "Sum of price is "+str(sum)
---------- Post added at 05:16 PM ---------- Previous post was at 05:15 PM ----------
فکر کنم پرانتز و سیموبل های کد ها جا به جا شدن
سه تا فعالیت هست که من حتما تا فرداد ببرمش اگه دوستانی میتونن کمک کنن خیلی ممنون میشم.من کد ها رو (جوابشون رو)از این وبلاگ گرفتم پاسخ تمرینات فصل 12 درس مبانی رایانه سال سوم ریاضی - دبیرستان نمونه دولتی دخترانه شهید سجادی رفسنجان (http://nemunehsajady87.persianblog.ir/post/26) فقط مشکلم اینه که نمیدونم کد ها رو کجا بزارم یعنی مثلا بزارم توی همون صفحه اصلی،بزارم توی یک command و یا غیره،لطفا هر کی میتونه راهنمایی کنه چون خیلی عجله دارم.ممنون
1-اولی اینه»برنامه ای بنویسید که نام و نمره درس رایانه یک دانش آمورش را بخواند و معادل حرفی ان را با پیغام مناسب مطابق جدول زیر نمایش دهد(جدول توی کتاب هست اما اینجا اگه کد رو نگاه کنین می فهمین که جدول چی توش هست)
اینم کد اولی:
nam = inputbox("Enter name :")
n = val(inputbox("Enter grade : ")
if n>=0 and n<=20 then
select case n
case 18 to 20
grade="A"
case 15 to 18
grade="B"
case 12 to 15
grade="C"
case 10 to 12
grade="D"
case else
grade="E"
End select
End if
Msgbox "you got degree "+grade
2-برنامه ای بنویسید که تعداد دروس و نمرات مربوط به هر درس یک دانش آموز را بخواند و معدل دانش آموزش را نمایش دهد.
این هم کد دومی
n=val(inputbox("Enter number of lesson :"))
sum =0
for i=1 to n
num = val(inputbox("Enter grade of lesson :"))
sum=sum+num
next i
msgbox "average is "+str(sum/n)
3-برنامه ای بنویسید که قیمت تعدادی کالا را بخواند.این عمل را تا زمانی تکرار کند که کاربر قیمت کالا را ((صفر)) وارد کند.در پایان مجموع قیمت کالا ها را نمایش دهد.
این کد سومی:
price=val(inputbox("Enter a price : "))
sum=price
while price<>0
price=val(inputbox("Enter a price : "))
sum=sum+price
wend
msgbox "Sum of price is "+str(sum)
---------- Post added at 05:16 PM ---------- Previous post was at 05:15 PM ----------
فکر کنم پرانتز و سیموبل های کد ها جا به جا شدن