با سلام
فایل PDF به زبان انگلیسی بوده که با توجه به متن به سوالات طرح شده پاسخ دهید.برای دانلود راست کلیک کرده و Save Target As را انتخاب کنید.
دانلود فایل CHapter1.PDF حجم 300K
دانلود فایل CHapter2.PDF حجم 370K
دانلود فایل CHapter۳.PDF حجم 160K
سوالات سری ۱و۲و۳ در انتشارات داخل دانشگاه
لینک
یه سری هم به وبلاگ ما بزنین شاید خوشتون نیاد ولی بدک نیست فکز کنم پوزتونو زدین بد جوری هم می گی نه پس بیا وبلاگ ببین چه خبره
بعضیها که فکر میکنن ما دست به دستمالمون خوبه اگه ارضه دارن رودررو بگن نه اینکه بخاطره بی ارضگیه محض طرف با یه آیدی که قاچاقی هستش بخواد خودشیرینی کنه.
واقعا آدم چقدر باید ..... باشه که با یه اسم مستعار نظر بده.به هر حال اگه واسه شما مشکلی داره که ما این کارو بگین تا من حضوری حلش کنم.
من منتظرم تا مشکلتونو هر چه زودتر حل کنم ساااااااانااااااااااااز خانم!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
حالا هر کی که شاخ شده واسه ما تو زندگی
از اون آویزون کلاس بگیر تا او *****
فکر میکنید با خودتون چی؟ خیلی بارتونه
بابا جمع کنید بیایید برید وقت شاشتونه
هنوز نیستید در حدی که راتون بدیم تو بازی
فرقی نمیکنه راضی باشید یا که ناراضی
این حرف های محمد داره پخش میشه
کنار گذاشتن حرفاتون حالا وقتشه
بین ما وشما بدونیم پس فرقشه
توی اوج حرفهام آدم غرق میشه(البته ما با16تا *** طرفیم)
اگه شما با ناخن گیرید ما میایم با چوب
تا که از اعضای بدنتون می پزیم ما سوپ
پس سعی نکنید در بیفتید با گروه ما
چونکه همتون آشناید با سبک ما(همچین ضایتون مکنیم که...)
حالا روش مونو ما خیلی خوب بلدیم
کسی رو سره راهمون ندیدیم
اگه بیام پیشتون من بهتون نمیکنم رحم
همین جا گوش کنید حرفامو خوب بفهمید
هچی بارتون نیست از گروه BDSM (پس خفه شید)
حرفای هر شونزدتون بی معنی ان
با شما هستم که شاخ شدید اصلا از کجا؟
به این منطقه میگن چی؟ شرق شاه
پس شاخ نشید واسه گروه ما
BDSM اومدیم بهتون درس بدیم
تو وجود تک تکتون ترس بدیم
به حرفام گوش ندین
چون معده تون نمیکشه
دارم میگم به شما بچه شاسکولا
حرف زدنو یاد بگیرید از استیل ما
دو نفرو میشناسید فکر میکند کسی هستید
نه ...... فکر نکنم به این چیزا باشه
تازه نمره های بیست کلاسا قفله دست ماست کلید(d,s معدل الف گروه کامپیوتر)
اگه دست کسی دیگه است ثابت کنید راست میگید
شما به ما فاز میدید درساتون خداس میگین
سبک هاتون مثل ماست اون کلاس کجاست میرید؟
اما با این حال بازم به ما فاز میدین
نمره ی 20 واسه ما مثل ورق لاستیکی است
تو دوستامون چپ و راست میشه
الان 3 ساله گروهمون داره کش میاد
واسه معرفی همیشه اسمش میاد
ما با خدا قرارداد بیستو بستیم
اگه کسی مثل ما نمره میگیره خواب دیده.
درس رقص نیست هر کسی که نمی تونه
هر که کوله بندازه که درس نمی خونه
*خوش دارم بدونم با چه ***** سرو کار دارم*
*در ضمن آمارتون غلطه*
Dim a() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, q As Integer, c As Byte
n = InputBox("Enter odd number")
ReDim a(n, n)
Cls
q = (n + 1) / 2
c = 1
i = q + 1
j = q
a(i, j) = 1
c = c + 1
While (c <= (n * n))
i = i + 1
j = j + 1
If (i > n And j > n) Then
i = i + 1
j = j - 1
i = i Mod n
a(i, j) = c
c = c + 1
GoTo x2
End If
X1: If (i > n Or j > n) Then
i = i Mod n: If (i = 0) Then i = n
If (j = n + 1) Then j = 1
If (a(i, j) <> 0) Then
i = i + 1
j = j - 1
End If
a(i, j) = c
c = c + 1
Else
If (a(i, j) <> 0) Then
i = i + 1
j = j - 1
End If
If (i > n Or j > n) Then GoTo X1
a(i, j) = c
c = c + 1
End If
x2: Wend
For i = 1 To n
For j = 1 To n
If (a(i, j) = 0) Then
a(i, j) = c: c = c + 1
End If
Next: Next
For i = 1 To n
For j = 1 To n
If (a(i, j) > 9) Then
Print a(i, j) & " ";
Else
Print a(i, j) & " ";
End If
Next j
Print
Next i
End Sub