حلقه For:
For ( مقدار اولیه; شرط; عبارت ریاضی)
{
———————
——————— (بدنه حلقه)
———————
}
عبارت ریاضی: افزایش یا شاخص حلقه
For (i=1 ; i<=n ; i++) افزایش شاخص حلقه
For (i=n ; i=>1 ; i – -) کاهش شاخص حلقه
سوال ۶ امتحان میان ترم برنامه سازی شی گرا مورخ ۲۲/۲/۸۷:
برنامه ای بنویسید که با گرفتن عددی اعشاری در یک TextBox مجموع ارقام آن را در Lable1 و تعداد ارقام زوج آنرا در Lable2 و مغلوب آنرا در Lable3 نمایش دهد.
جواب:
Dim m, ma, ma2, sum, i, r, k, p As Integer
Dim n, w As Decimal
w = Val(TextBox1.Text)
m = Int(w)
n = w – m
While m > 0
r = m Mod 10
sum += r
ma = ma * 10 + r
p += 1
If (r Mod 2 = 0) Then
k += 1
End If
m = m 10
End While
While n > 0
r = Int(n * 10)
sum += r
ma2 = ma2 + r * 10 ^ i
If (r Mod 2 = 0) Then
k += 1
End If
i += 1
n = (n – r / 10) * 10
End While
Label1.Text = sum
Label2.Text = k
If Int(w) = w Then
Label3.Text = ma
Else
Label3.Text = ma2 + ma / 10 ^ p
End If
تمرین اعداد خنده دار ۱۷/۲/۸۷:
برنامهای بنویسید که دنبالهای از اعداد صحیح را بگیرد، برای هر عدد مشخص کند که عدد خوانده شده، عدد خندهداری است یا خیر؟ (برای خروج از برنامه یک عدد منفی وارد شود)
مشخصات اعداد خندهدار:
۱ـ اعدادی که بر ۵ یا ۷ بخشپذیر هشتند.
۲ـ اگر یکی از ارقام عدد صفر باشد.
۳ـ اگر رقم سمت راست عدد، رقم سمت چپ عدد، رقم سمت راست مجموع ارقام عدد و تعداد ارقام عدد فرد باشد
جواب:
تمرین: برنامه ای بنویسید که با گرفتن تاریخ تولد یک نفر و تاریخ امروز از ورودی. حساب کند چند روز و چند ساعت و چند دقیقه و چند ثانیه از عمر او گذشته است و آنها را چاپ کند؟ (هر سال ۳۶۵ روز در نظر گرفته شود)
در این قسمت کلیه لغات درس ۸ با ترجمه فارسی وجود دارد.برای مشاهده روی ادامه مطلب کلیک کنید
در این قسمت کلیه لغات درس ۵ با ترجمه فارسی وجود دارد.برای مشاهده روی ادامه مطلب کلیک کنید