+ نوشته شده در دوشنبه بیست و نهم بهمن 1386ساعت 17:37 توسط عبدالمهدی بحرانی- سرگروه
|
نمونه سوالات فصل 3 و 4 مبانی رایانه را اینجا دانلود کنید.
+ نوشته شده در دوشنبه بیست و نهم بهمن 1386ساعت 8:46 توسط عبدالمهدی بحرانی- سرگروه
|
+ نوشته شده در یکشنبه بیست و هشتم بهمن 1386ساعت 13:17 توسط عبدالمهدی بحرانی- سرگروه
|
+ نوشته شده در پنجشنبه بیست و پنجم بهمن 1386ساعت 8:2 توسط عبدالمهدی بحرانی- سرگروه
|
برای تهیه جدول بارم بندی به آدرس http://rayanehdayyer.blogfa.com/page/barom.aspx رجوع کنید.
+ نوشته شده در چهارشنبه هفدهم بهمن 1386ساعت 13:16 توسط عبدالمهدی بحرانی- سرگروه
|
برای مشاهده و آموزش توابع API ویندوز به بر اینجا کلیک کنید.
+ نوشته شده در چهارشنبه هفدهم بهمن 1386ساعت 13:5 توسط عبدالمهدی بحرانی- سرگروه
|
برای آشنایی بیشتر با گرافیک ویژال بیسیک به آدرس http://rayanehdayyer.blogfa.com/page/plotinvb.aspx
رجوع کنید.
+ نوشته شده در چهارشنبه هفدهم بهمن 1386ساعت 9:13 توسط عبدالمهدی بحرانی- سرگروه
|
برای دیدن مثال هایی از برنامه های ویژال بیسیک به سایت http://www.vbcodesource.com/exampleEx.html
اگر بخواهید به توابع API ویندوز همراه با مثال های جذاب دست پیدا کنید به سایت http://vb.mvps.org/samples/apixref.asp رجوع کنید. دانش آموزان سوم ریاضی و فیزیک با باز کردن صفحه http://rayanehdayyer.blogfa.com/page/p1.aspx می توانند تعداد ۳۵ مثال برنامه ویژال بیسیک با حل آن را مشاهده کنند.
+ نوشته شده در سه شنبه شانزدهم بهمن 1386ساعت 10:41 توسط عبدالمهدی بحرانی- سرگروه
|
۱- کشاورزی 100 تومان پول در اختیار دارد و می خواهد صد حیوان بخرد. قیمت حیوان ها ، جوجه یک ریال و گوسفند دو تومان و گاو پنج تومان می باشد. با این وصف مشخص کنید که کشاورز چند جوجه گوسفند و گاو می تواند خریداری کند.(x تعداد جوجه و y تعداد گوسفند و z تعداد گاو) For x = 1 To 100 For y = 1 To 50 For z = 1 To 20 If (x + y + z = 100) And (x * 1 + 20 * y + 50 * z = 1000) Then Print "Gogeh:"; x Print Gosfand:"; y Print "Gav:"; z Next Next Next ۲- برنامه ای بنویسید که اعداد سه رقمی را که با مجموع مکعبات ارقامشان برابر است را در خروجی چاپ نماید. Private Function SumA3(ByVal N As Integer) Dim S As Integer S = 0 While N <> 0 R = N Mod 10 S = S + R ^ 3 N = N \ 10 Wend SumA3 = S End Function Private Sub Command1_Click() Dim x As Integer For x = 100 To 990 If SumA3(x) = x Then Print x Next x End Sub ۳- در یک امتحان تستی هر جواب صحیح 7 نمره مثبت و هر جواب غلط 2 نمره منفی دارد (به سوالهای بدون جواب نمره ای صورت نمی گیرد) اگر نمره دانش آموزی برابر 87 باشد این دانش آموز به چند سوال پاسخ نداده است؟ Dim T As Byte, F As Byte, N As Byte For T = 12 To 20 For F = 1 To 8 If (T + F <= 20) And (T * 7 - F * 2 = 87) Then N = 20 - T - F Print "Answerd True:"; T Print "Answerd False:"; F Print "NO ansewrd"; N End If Next Next
+ نوشته شده در دوشنبه پانزدهم بهمن 1386ساعت 16:55 توسط عبدالمهدی بحرانی- سرگروه
|
وبلاگ گروه آموزشی رایانه در تاریخ ۱۵/۱۱/۱۳۸۶ افتتاح گردید. از دبیران و دانش آموزان و علاقمندان به موضوع رایانه در خواست می شود که از این وبلاگ دیدن کنند و نظرات و مطالب خود را از طریق وبلاگ و ایمیل a_mehdi_bahrani@yahoo.com در اختیار این وبلاگ قرار دهند.
+ نوشته شده در دوشنبه پانزدهم بهمن 1386ساعت 16:48 توسط عبدالمهدی بحرانی- سرگروه
|
|
درباره وبلاگ 
|
