x=1
for m=0 to 7 step 3
x=x*2
next
قيمة m هى.....
قيمةx هى.....

قيمة m هى 9
قيمةxهى 8

قيمة m هى 9
قيمةxهى 8
الإجابة صح مية فى مية

مشكوووووووووووووووور

اللهم انصر الاسلام واعز المسلمين

مشكووووووووووووووووور

قيمة m هى 9
قيمةxهى 8
شكرا جزيلا

الإجابة صح مية فى مية
شكرا جزيلا

هل دالة( isNumaric) معرفة







:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::a v4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::a v4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3:
:av4056bb7jp3:

هل دالة( isNumaric) معرفة







:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::a v4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::a v4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3::av4056bb7jp3:
:av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056b b7jp3:
:av4056bb7jp3:


نعم الدالة Isnumeric من الدوال المعرفة داخل VB

شكرا بارك الله فيك

ملحوظة هامة :
Now و TimeOfDay خصائص وليس دوال
بمعنى هى خصائص من نوع Read only أى للقراءة فقط بمعنى نستخدمها للحصول على ناتجها أى تستخدم فى الطرف الأيمن فقط من أمر التخصيص

شكرا جزيلا

[QUOTE=نورهان م;5182975]x=1
for m=0 to 7 step 3
x=x*2
next
قيمة m هى.....
قيمةxهى.....



قيمة m هي 10
قيمة x هي 8

الفصل الرابع به اجزاء صعبه جداً او بمعني اصح انا مش عارف اوصله ازاى للطلبة ياريت اللى عنده حل او عنده طريقة يقول وله جزيل الشكر
:blush:

الفصل ده مشروح بالتفصيل فى مذكرة الحاوى ممكن تحملها عسى أن تلبى طلبك
وبه العديد من التدريبات الزائدة عن المنهج
وتحويل بين الإجراء والدالة وبالعكس
ومقارنة مطولة بين الإجرء والدالة والمتغيرات والثوابت

انا حشوف الشرح وربنا يكرمك ويجعله في ميزان حسناتك

تقدر حضرتك تشوفة فى اسطوانة شرح المنهج

ممكن شرح هذا السؤال والاجابة عليه
اى من جمل Select التالية ناتجها True فى حالة قيمة متغير الحلقة يساوى 8
أ) Case is > 8 ( ب ) Case 1 to 6.8 (ج) Case is >= 4

(ج) Case is >= 4

الاجابة ج لان الاختيار الاول الحالة اكبر من 8 و الاختيار ب الحالة من 1 الى 6.8 واما ج فانها اكبر او تساوي 4
8 اكبر من 4

[QUOTE=نورهان م;5187172]
ممكن شرح هذا السؤال والاجابة عليه
لانهاء حلقة تكرارية عند تحقق الشرط A=2 نكتب بدايتها بالشكل التالى
Do while (A=2) أ

Do while (A<2) or (A>=2) ب
Do While (a <> 2) ج

مطلوب مذكره سنا مصر للصف الثالث ترم ثان

[QUOTE=نورهان م;5187172]
ممكن شرح هذا السؤال والاجابة عليه
لانهاء حلقة تكرارية عند تحقق الشرط A=2 نكتب بدايتها بالشكل التالى
Do while (A=2) أ

Do while (A<2) or (A>=2) ب
Do While (a <> 2) ج


الإجابة هى ب و ج
معنى هذا انهاء الحلقة التكرارية عند تحقق الشرط A=2 أى معناه إذا كانت A=2 خرج البرنامج من الحلقة التكرارية
ويعنى أيضاً بطريقة عكسية
الإستمرار فى تنفيذ الحلقة التكرارية طالما لم يتحقق هذا الشرط A=2
وعكس الشرط A=2 هو أن تكون A<>2 أى A>2 أو A<2
حيث يمكن وضع الشرط A<>2 كشرط لإستمرار التكرار Do While (a <> 2)
أو يمكن وضع الشرط A<2 Or A>2 كشرط لإستمرار التكرار Do while (A<2) or (A>=2)

[quote=نورهان م;5187172]
ممكن شرح هذا السؤال والاجابة عليه
لانهاء حلقة تكرارية عند تحقق الشرط a=2 نكتب بدايتها بالشكل التالى
do while (a=2) أ

do while (a<2) or (a>=2) ب
do while (a <> 2) ج


شكرا جزيلا. ولى رجاء لو ممكن حضرتك تكتب مثال كامل من اول الاعلان عن المتغير بحيث التطبيق يساعدنى على الفهم اكثر

ممكن حد يحللى الورطه دى
صمم برنامج يعرض الارقام الفرديه بدءا من رقم يدخله المستخدم حتى رقم يدخله المستخدم لاحظ انه يمكن ان يدخله المستخدم رقم البدايه زوجى او صفر

Public Class Form1
Private Sub Button1_Click(ByVal
'كود الأعداد الفردية
Dim i, N As Integer
i = Me.TextBox1.Text
N = Me.TextBox1.Text
Me.ListBox1.Items.Clear()
If i Mod 2 = 0 Then
i = i + 1
End If

For M = i To N Step 2
Me.ListBox1.Items.Add(M)

Next
End Sub
Private Sub Button2_Click(ByVal
'كود الأعداد الزوجية

Dim i, N As Integer
i = Me.TextBox1.Text
N = Me.TextBox1.Text
Me.ListBox1.Items.Clear()
If i Mod 2 < > 0 Then
i = i + 1
End If

For M = i To N Step 2
Me.ListBox1.Items.Add(M)

Next
End Sub

End Class

شكرا ليك بس انا عايزها بجملة for next

شكرا ليك بس انا عايزها بجملة for next
هيا فعلاً بجملة For Next
يبدوا أنك لم تقرأ الكود كله
استخدم أعمدة الإزاحة لقراءة كل الكود

شكرا ليك وجزاك الله خيرا

بس الاكواد بعضها مش سمعت عنها

ارجو اكواد هذه الأدوات الموجودة فى الform


http://www.thanwya.com/vb/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAfYAAAE2CAIAAAA cYSdfAAAgAElEQVR4nOzdd5Qc130nejzLa3m9kiWHfeuzu/Z7frbs9UryvtVKshVsK5EUk5hAIg4GM8gkwBwBEiCIPDMYTM45 55zzdJjOOeccqrpy5zS1f1yw2OyZATESadHc/p3Pwemqqa6+nb7VuFV1a09FWXlJUXFHe3NNdXl5XXlpffnthvL Shpqy+rrKmsbaqsbaqsZLtUXl/U03aiovXy+qr2lvru6oLK5pqWmvqaquqikvrigqqikpa64prq2 +UVFT3th1p6atsrq9tqqxtry68c6dprKyporK+sra8vL60ormO 03dt2paSxvbS2rqbpYW1bU03K5qKK9ruVPTVFrdWFbbXFJZX1p ZX9fcWVHbXFbdeKeivrqutbS8rqq2pb6ps6yy4XZt++3a9tu1b Xdq2u7UNFVUN1VUN1RUN1TWNFbWNFbUNlbUtN6pa71T21Fa11F a13HzRklzU/vtsurS8oaK+vbrJXU3ypvv1PUX1fYyimu7i2u7i2s7S2s6K2ra K2ray6vbgLKqVgDMr6ztAJjF7lQ0AmWVTUB5VXN5VTMzmeUTlw eT5VXNFdUtFdUtpdWtwJ2atjs1bWW17QAzPwtYbCvw19tVLSWV zSWVzber7q6ZmQSy1sbMZ4Dlmbt84pKfVvvv/by2YtqZZWs77624omlXdrv+kup7Ka5qZhRVNhVVNhVXtnwqSqp ad6WoohncKK5sKapovlXeVFTRXFzZUlTeWFzRlPmJuvf7WFTdW FTdWFzTBJTUNn+C6ibG7Sqg4XZVQ3lNQ3lNQ3lVfXlVfXl1HeN mbcvN2pabtU3ArbpmoLiuZVuV1e2V1e2V1R2V1R2V1V2V1V0VG cqrOsurOu9Ut9+pbgftL6mpu11bX1JbX1JbX1zfAJQ0NBbX1zN u19ferq8trastrastrmvLsKUB9U1ZitqvFbVfu9NUVFVbVldRU 1fWXF/WWX+nt7qsp7K8p6yy405ly52quvKKqsqK0sqK0saGmqqKyorK7 jvV3cVVzS19/SzxuN7KsVo5CKLc84uf/bzwaEHB0cPHCo/sz9//7NH9ewv2P1uQt+9o/sG8wvzDx/IPHzvwyvEH8p7cd/LYiedffPbpvIIDJ18+/Vres0f3P7fv+bOnnn/lzKFTeftPHDl48vi+wpPP5p8+VHg2v+BcYf7JY3kFJw8ePH348 Okj+SePHn/88WcP5T//zNEzT+efznv+5aPPn807ln+oIO/A0ZPP5R07cPTkwYJT4EZe4el9hwsPHT15uODUkYLThSfOPvNc3 uNP7jucfzLv6Km9R07vPXJ675FTz+Wdei7v2IHDxw4cLjhwuOB gXuHBvMIDRwoP5J18Lv/kc0fOPJt/5tn8M4UFJ194/qUnn9n/1N68/JMvHjx69uDxl/NPv/PUkRcZTx85+/SRs08fef7ZvOcPHjnDOJB3Gth/+NT+w6eYSTBn36GT+w6dPJx/eltHj53dVn7hC/mFL4DbBcfPMQ7nn847egY4UvA8Y3/+GcaBo88DBwteyJy/7TJgct+R08ChwrOHCs8eLHiBsdOcw8fOHT52jrljlm0bk4X5E9 OMX6P992m369npeX3i8/2M7Du6o+fyTzOePXIKOFBwdlcOFp7b1nNHzuzK3sOnns07/Wze6WcOnXzqwPEn9x976sDxpw+eePrAsb2HTjyXd2p//hnmI5T1ufrYZ+zkWcbhU+cOnzqXd/rFvNMv7j92ZnsFpxkHjgInDxw9mX/8dP7x00ePnT567PTR46cYzxSeeabwzN5jp4Fnj5+5q/D0tvYfPLn/4Mn9B0/tP3hq/8Ez+w+e2XfwzL6DZw7nv8g4ePTswaN3n9Gz+QXP5hfszS/Ym1/wTEHhMwWFewuP7S08trewkPFc4dHnCo/uKzi6r+Do3oIzGU5lKzyR5ekzjz995vF9x5/OO3qg4FB+4cFThQfOFu5/Of/gy3mHXj505Nzhoy8cLjhxtOBYYUHescIjxwqP5B06XFD4et6x1 x58Yv8vfvXEC28crKi7uLjYLhKN7+m6VRFWGtzLrKBYElEpIip FRK2KqFUxtTap1CaVelpuSHEmafEireKl5aKEXJlWaRJyBcXZo CUCmrtKr0/RnFlasEQLlmjBCi1m+1Qav1obUChRmQSVilCpKKCUQlp9f1u3z 0N4sbgXi7uxqBsPEok4GgyGEzRKxYhwkggnETIaitMJmqaiaRg PI2QUDyWCsU2L078hUth9KBKMo1EawCM0HklR4RQVTlDhRDCSD EaSVDRJRWg8RuNRGovRWIyG0ZAXItY3xOtcudGJGr0hoz9s9MV sOJ3FgW06sE0HRTso2k7eZSPusmAfMaO0Cdk0BtLGQFrpCitdY YUzJHcEZXZKZqekNlJqI4UmdFsCIyIwIsykyIwBckdQ7ggqnCE ArFbpCsudEYUrCijdMUDliTO3s6g8cfBXhSsqc4Sl9pDEFpTYg mwNxNZALLV/XeVbV/lYaj8zBwCTbA3E0cIcLSww4VsJzYTYSoEVSmxBqT3EkDnCcmdk W79G++/fTuvZqTG7JXOEd4V5ce6TyL49oY0CBFZSYCX5FgJY1wZ2ha1Ht yWwBneFa8Q3TATXiLN0yKoaWlb6VlT+VTXE1kBcXYBvxMRWSu6 MMO+gxpfcltQVAmTuMCD3ROSeiAZObkvrT2n9KS2U0EIJnR+I6 fwxlSuocgVVLkrlojROSuOkNC5C4yIMcAgwBsLGQNiERO6CqGw waYJJBxp3oHE7BiQZlkCMYUajDC9FeynaS216qU1fkPYFaW+I9 oXv8odof4j2hzfvWzqLJ0h7grSPomGSDgBB2h+m7RRtCdKWMG0 J09bopiO86Q7T7jBtp0J2KuSJ0544LbRHuxeV71eXFrxUWNdU2 jPQtOfqmVe9bKG8f8QwMSkfHlSMDMlHhhWjI6rRce3wuG5kyjg 4FVkZxhYHzGNd1vEh79KKeWJKNzyCrKxBs5PQaD8+3kXO9EOTP b7xLt94j3O0R7qwJJlfVMzOaWanVVPjyskx5fy0cnW9uqQ8RKW JGB1M0oHwJhSKkcmE3et1+hA/GoTxMBaM46GEy4+ZHQ43hAeISICIoFSMiqatLmh+hWP1BNBQwo mEAHcg5A6QPpj0wTjDG8C9cNCFBF2BoBMJOpEgEUz4YHJpnbe0 JtLZYJMvbPSHde6wxIJmkZkRmRkRmSGRGRKZYaEJEpogoQkWGC GBEeLp79rQ+blaP0fjY6u9LJVnWWpfktiWJLYFkWVeaJ4TmGb5 xhmeYUXm+ESrcueq3LmmcK0pXAsiy6LYCoAVAssyF7AidwOrCs +qwrOm9O5kVeFZlrmWpM4FsX1OaJ3hm6d5JmBqw8jInANuz/DNjHG2Dpjg6BmTXEPmYrMCC2NeZFsQ2xmLEgew2/aDLdD922k9S1Lntpj23CfmidynOaF1V2ZE25sWWqaFlimBeUpg nuSbJnhGYEZk35U5iXNbEzzzroyw9SNs/dC6tn9F1b0g65gVd85Juual/YuyoRXlOFs3K7AsSZ3gnV1X+ZhfDFn4FkxgxQGhjWBwDPC2NvT Ihh7ZMMAbBpinB/w8vV9uJ+R2QuEgFA5CZSdUdkLtxNVOXGzxiS0+idUvsfqlNkhm hwGtG83mQbQeRGGBFB***gUCDKUdVdpRlQNTOTCFE1E4EaULVb pQnYvQuQidC9e7ibu8pN5LAAYPYfAQBi9+37AsGheudRN6F2F2 kRYXaXGRZjdh8BJ6OKqGI6pAWBUIKwOUBqK0PlLrIxUuj9YPq3 yoxOHTY7Q3Ra+qJRduvfv2uy+++/6re945dAJd5Lh6ht1t7VB7B9TRAnc2B7pasO5WvKeN7Gkne9rh 1i5XbRevvqvuYvGLL19qaBwdG9+4caWh/PWisUtV+upeX/OAq64V7ehHB4fNLa2WzlZTR721o87WWW9qr9G3VGq723TjY90l ZXEkbDXDNg/pxmJuLMZTahu6+2tr25uaekpL627frm1s6a2p72hq6+fwFQ4/YfWgRhfsDFA6p79/akHvghwI5cQSTizhxGMeNObBwn4k7EeDDC8a9KJRNxZ1g8WwhA eJ2LzE9KpgalksNfplNlxiJ0WWoMQZZYDfX3JHWO4I85zpDUcK 4NqTDLY1DrAssXVzdNUYXtYHl3TUrDY4qw3OaKgpFTGpxMfl6J gMGZMhg0LfPQyJ/MCwGAKm1SQwo6EAsOZJdXBSHZzShKY0oWltmDGrj25rRheZ1oY n1cFxJTkiw4YkyIAI7hdCHWxnO8vRtm5ntLMcYCbQwXYCnRxXJ 8c1IIIHxQFgSIIMSZBhKTosRUdk2IgMG5Xjo3J8TEEwQDu3NnW 37Z8zxHZlp/XsJLMN92NGF9kV8Ezv36R2exOa4LiaGldTYypyVEmMKPBhOTYs x7r5/l3pFcLbGlGQuzIgQfvFSK8Q7uB6WtYdTau2plVby7qjk+Pq4Xm HJMikOjhniC2ak8vW9LI1vWhObmtOF5rTheb1YWDBEAHW7elts WzZOLYUx5ZaM8XWTLF1U4RljrJNUY45xjFHOOaIzBmUOYNyV0j hDqvcEbUnqvaENd6I3I4zQHwDCiicIchQIxFAg0Y1aFyLJQBzg DYHaAtCWxDaFqDtyDas6Ecy/2dwP2w+2uajrTBtQWkjTutIWhmkFUFaGkxJgyk5lVIRtAqjtQi tC9C6AK0iIVMqqA7Ry6b0kpHWBGk1To9zxU8fPvLTRx/fU/3WZc/kkq6hXVdZ5ahvcDTUOBurXU01vpY6f2s91FIPtzZ4Glp1xXUTV +/0lNQ3Ng9VVfffKmotudk61zhef/q90bMXXfU9ZM8w3NoD9fbDQ8OO3k5rd5Oju9Hd12LrbjC2VRv7 u6xzs51FpRGIslkCdi9l8ZFWPzWxvF7b0dPePtjU1FNT01Zd3V rX2NXQ3FPb2FXb2OVFwy6YMnsQFxJ0osHxJZaHiLiwkMkXNPmC Jj9p9ZJWH+bwYA4v4vAidk/A7glYPQGrBzd7cbOXMnopo5ey+0ibl1jgSBfYSrkZlloxiZ0UW 0N8C8UQmgmhmRCZCZGZYHIcWDdHM62ZIiDcF7XkvBqfVaIgqQe FvgGBt4/n7t1w9XCd3RwHE+JZmEwfFkMjEnhEAo9KA6PSwIDAu3UDMCTyZ 4Ysk7NM1G41JEEGxYF+IdTL93VveDrYzrZ1e+uaDQQ3k+NMlAN dXDfQveEBMqM/c4HMxXp4XkafwN8n8PcLoQERDDYPoMG7bT/YeNy/ndazE6YBnxHmmd6nQen2BiSBfjHcJ4J6hf4ega+b7+3iebp4nn 4xsisDEnRbPQJoVzq4nnaOu2XdUb9krp7TV85oq2Z1NfOGhkVj y6q1i+seFAfAlv7em7QlUwxYNseBFUtixZJgQj/Loj6SZVkfXtaHWZYEy5JgW2Ica3zDmtiwJni2OM8W3zDAPGOAb 0IEZlRkxsQWXGLFJFbMFEgwMjth5P5QBooh8eASDy71ElIvIfM FwQIKKGyCN03wpglOmwObVnjTCqdtgc0sFuQjNjSxKxZP2uJJW 6BNUyCtR9MqNCnBEmIsIcCiQjwmxmIyJCkPpNRwWgOlNVBa6Lc LA04lldYEaaGf3nATEn9M6oSezS/45vf+Yc+FF17kNrUJS2/bqu6YSy7bSi46Sy64br/rvnPBW/6er+Kir+Ii3XTb/eapjmNPS4ZbkBjcNtTxztV3jQ4joZBNn39z9WRhtOL6Zu1V6Mp Z2/WTnpKzrqLztutvOm6+6S5+x3rzLc2VN5SlV7Ttza1vX6BMHsQd 9PijSgOksqH9s2vzPDmdpn0eajNF02kawRKpTRpCY9eLqjVWn8 4OSYxOhdWrdsHtY7MGmBRb3GonrrPjOgeqc6A6B2ywwyabn6F3 +PX2gM4R0NlxjQPXOHCtDdPasMlVyQRLKTShAmuQbw3yrRGuJc zg3RXiWUJr1gSwaomvWuIr5hhj2RRdMkYWDeF5XXBGTUwpsUkF OqIgh+XEsJwYkuHgy9MvRvpEgZ2+KszPqD5RoE8UYL6KYCXDco L53TSqpEaV1IQ2Bkzq4sCUPnEP45romDoyqgoPyakBKdEnxnqE SLcg0MJyt7DczesuBpjTwnK3sj1AG8cLtHN9XXy4iw93CwI9Qq RXhPaJsT4x1i/Bwb/AgJQABmXkkJwChhXBEWVoVBUeU0fG1JHdtn/akNyVndbDPG6Wez/6tq/nroBnff9GNNsbVoeHVKFBZXBAQfXLyT4Z0SvFeyRYl3B3ukX4t gbkoV3pERPdIryDjzSzfXUrztplR/2qq3Hd08r2dPKgfgk+po5M6ROzpvSsKT1jTC3a6G3NG5PAgikF LJrTi+b0qp3eFmsLtp1m2+lVc2rVnGJZkmxrimNLc+2bXPsm30 aL3SmZKyV3pxSetMqfVkObOiitg9Iqd0TljqjdIbU7pHUBQa0r qIYSaiihhmNqOKaGo2o4qobDajhswhMmPGHG02Y8bSFo64c758 xo2oymLdimBdt0YHQ2lHagtBX/iANPfQTs7fuY7DU4kYgLjVrImJFKqUJJOZGU4HERGlXjCUMgbI Youxt1Onwuq9NlcTjNZl9YofSvq71eK04r/TTfSktcSZ03fubVC3/3nR/teePEaUlXH7+kWHz5XeUHb2k+eF3/wSvGq6+Zrr9qvvGa5ebr1ltvaF87TtcXiUoulL1c0D3eicZxKh 02u8w1b70x+vrL9htX8KKL9ndOojdepurfMV4usF1/03j5FfOVV+w33jBceVX23kvSokvK5vrOdy95pHqr1qM3wUKFQ2 EJtAxNLwlV7HX2229e+eD9K1cuXzn74nmNTp+k6QuXimR6h9bm lxidEqNTYfc1D03qIYKnt4mNPpneJzN4ZAaPzOBU6J0qnV2lsy u1NqXWJtPbZDqnVO+U6rxivVes9yqMkNzgH57njaxIBUZEYA0K bCG+NbKRgX9XmG8NZ2U6iHWQ7IuG8II+NKelZtTEpAIdlwVGJR AI6D5RAAR3jwC693+QM2M981dV1sxBKXaXjASYAL03kMK9IrRb EOjkQe1cXyvbw+Q4E+s7JTvQseFn5nRs+Dt5EJP4QI8QAXpFKM BsA0DigwYPK4K7bf+IMrQrO61nVBXe1m7Xv1vMpu4+DSi2lxnr 3WK0UxjoEMAdArhHTPxWdArQDj7SwvHXr7qqF21VC9aaJXvdir NpzdnG8fYIkSE5BbboYFM3pY9ta0Z316w+PquPzxkSH9q+I25x iyVDbMkQ2yniBY642B6XOOIyV1LuSSi8SbU3ofElwcERpkDSFE haYCBhgRPaQEobSGmRhBZJaJG4FolrkagWieoCEV0gog/EDUjCiKZMWMqCpSxYijn+wk7SLoJ2kx9H0G6CBodsAO5M5H3AY h48bgsmzKFNdTilIFMg4hc09hW5cUWkXmWLV5bZS7OL85Ozs+P jvdPlg+sNbI1G7QnLPCm5lzbgtDmwefaNi//v331nz4tPHmTdKmvft39q39Mr+55c3/cw58AD3IMP8g7/kp/3sODII5Ijj+oOPyJ/9ucLLx0syn/shRcPGM2yTTpcWV10Ye8TnUf380/kywqelh7+hSzvZ7yj/8Q69I/cI4+u7n9g4+gjrMMPLh1+cPS5B7sPPLp48cK1Q3kOroo7z1tjq xfY6sk1eVFD78iKaHJ8tba6c2VZND+3ceNWjURmhvDk6+evT68 KZtaEsxzJDFvMUplqekcXRKoprmR8RTrDVi0KtDfKWt+9XnHh8 p13Pyh951Lx5RuVb71368KVsks3qhp7p5cFuql1xcAsb5qlXOT r28ZWx1aVKk+cZwmt6FCeLc6x3sW2xNiWCMscZpuCDJaRWjeQ6 wZyTU+s6vBVHb6sQZc16KIqMK+AZmW+aYlnSuyeFLmGhF5gUOA ZFHgG+G6gn+cCwCT4ayZwr2GRDxgR+4FRCTQqgcakMDAuR4EJB TahwCaVOLB1Eiw2Kg0Mi6FBoa+P5wZdRl1seyfL1rFuBTpZtk6 WrYttB8AkM6eb4wB6N1xAH8/dx3P38z3AgMALZPUpgU4npt8J7JAYkyGgnUxTp1TE5xPzSt6nr DsyT3O3xlX4uAofU2KjCnRUgY7IkWFZYFgWGJRAwIDYPyD294t 8QJ8A3la/MLCtARGyW4NilDEgQvqFgT4B3MPzd2/4Ojme1jVHw6K5bt5YN29sWDS3rpg6WbZ+vmdMhkyryVltMKu3P cvyDlYMkW2tGmOrxtiaIbZujK8bYyxTnG2Ms41xljHCMkY4hhD XGN4wRXjmqNAaF9kSInvSiNM8S1jiSqphWu3ddIVpvW9T64tb4 LSLoGU6OBCiXUja7AlBFO3AaDOUssBJF0FLDB5bIGqHQ45A2Oq n4NCm2uyDCNqP0n6UdvrSdk/STIaMOGWjYk4yFqJpH5kwuNAITcMh2uILUpu0A00aoIiD3PTGa ROWsqMRXyhtQ8IKqw9P0kiMNniCSIz2BWmjNwRHaH+ItvgTgQj to2gHsukl/G7MS9C0yo9q8JQpTNsoWqrxu61wyO1OOVWkdITf/RIkuJiyXcEUb4hWX2ipz/dYNmAPYrHQOnPK4IiZPaEXXn37G9/6zp5Xnsnre+nNil8+3PngT0ce+sn4Qz+Yevh70498f/axf5x7/Afzv/rh8q9+NPmPf2M99tTIsV9dfOYn9U03XB49BNulcm7zm6905O8b efSB+Ud/vPr495Ye+R/Tv/rm/NP/Y/pXPxr95femn/jB2CPfHXz0e20P/UPto/809NLZS8/us6zL1qZY41PcvnFW/8xGacvgNFc5Pbn+3oVbF98rfu/dotffvMLlqY125Nxrl4Zm1oZn10cWOUPzrDmBoqS5e2xdMLDIH luWjC6JB+a4b18uG53njs1whiZW+kYWBsaWhidXByfX7tR23a7 vHZzlji6JR5fEnWNrLJltcFHYNbmxrvJJXAmxJ8m1RDPyfceIX 9MTmRG/pEYWlPC8ApqReqclnkmRa0LozMz3e0T81pT/LCJ+TIaMSOBhMQR2DPRwnUyO3zvimcmsiAf5vjXit+42yMz3XM T/ehE/IkeyIh7k++cq4ltW7UzE1y+Y/pUjft0Yy4p4jiGUGfFS1+aKyqX00/YILXHFeAZS5ggYIVrriztxWmXHiRittcEGZ9CNpowuQmkj3CSt cQY9FA2FaShMG92Y1U85AmEPHifjtN0XcXhjTl+8tmkikqRhmn ZE4lYyqnJCDgTx4DE4tKk0meAQ7SPTZj/kJjYDSdqCJuA0rYNjvlDaRcSn1oVQhFZanSGaNvnCVph04UkPS cMR2kulvSStdyH2QAwO01QqZIMcNgyDadqVpqV+Su0LqU2Y3ei lnM6oRRqUj6nHL5CK67T7Ju28zls81VB9yKBYcJhden1Cb0lbP ClnIHE34i8/kjecf67vsadmH3pw+mc/WvrpD5Z//v31n//D+gM/4D7wQ8GDPxY88BPRU0+OPPTLsp/+Yu3aLa9IPlTeUPbmJZ9Ey69uGTpxru0XD0888ujqM8/MPfbw+KMPLjz76NgT/zLw8PdHn/jBwCPf7Xnke60P/7D6sZ8PvPziW08+q1rkr8xwx6d4IzOCkUVxceNA09CiWudfWJb yRWaxzL7MVpmdlFznO3+5fHiGOzzDHVngD81tLPA1pU39E2uSo QVe5xi7e4LbNbb21pVKizfsDCQ8aAKmaD+RxiK0A44PTXMqWoa 6x1hd45z2kfXhBeHYsqSub3ZwQSJzhMXO+IYtzLVEPwz3GMscZ ZnDLHOYZaRYRopjJDlGkm0g2AaCpcfXddiaFl3ToivqwLIKXlT 452XeWYl7WuScEjomBfYRvgMY5tmBoQ1bFuZPzMIjfMeowDkqc I4JXcC4yA1MiD0TYs+kxAtMyWBgWh6YlgdmFAiQOTktD0zJ4Ek pNCmFxkTeUaFnmO8a4Nr72NZelqVn3dyzbu5eMwFgspdlATJv9 7GtjAGufXDDAQzxnIxhvmtE4AZGhR7GuNg3IfEDoCUAaCfT1Fk l+vnEvLD3KeuOzNPcrSklMqkITCoCE3J4XAaNSf3AiNg7LPIAQ 0I3Y+t/BzN/MWzF/Ia4f8yvjRGxf1jkA79g+jacfRvObratfdXUvKhrmFM3zmuaFrQ dy/qedfMQzzkh8c8q0QUNsaglF7Xkko7a1oqe3JU1PbWmp9YNQYBl DHGMFMdIcfQkR09y9ATXQPKNlNAcEltDEltY6d3UwrTcnVqU+c wYbUXpOYHJQ9GBGK0yo14ixRHqsRAdjNMKjT0Ype3+ZChFq02o zoa44YgLptQGWzhB601Ojd5mt8MeN5WM0Qi0+fLzH3jtsQke60 pd5dvFtzQul5cMBoKRJE2H4jQVoX2BEBam4VDaGghBCZqjtZM0 DYfCHpx48e3zK3xhKE27UcpPxsKbtI+IQ1QSptImFxajaSxCUw nag2xevdbw+uul71xpklligQTtIGgvQtuUXt7QpKa/RdF0Xt93Wjf6ZFjxXNDwIGZ5iDf5dG/1PpN41G9y2g0JsyVpcoYtHuLca6/87be/uefKY/lLL747n1e48MjDq489sPHoz3mP/0T0+E9FT/xc/uQDqicfVD3xiHL/vvFHHu0/mLd+vWi0qv7qmVdfO1B4542La7drhk6c63/86bX9B6SFhdwDzy3sfWLlwBMLBx6e3vvT+QM/n3j6x2N7/2Xw2Qfb9v1q8p23Lh/MVy7wlqc5I+Oc6WX5NEtV1ND/QUX7nYrOssqu5rbx+qbha8WNpVVdZbW9b7xbMjrHG53jjS4Khu d5C3zNneaByXXpyJJgck01uiTrm+K8/n5ZU/dUWX3frfKW29Udt6s7yuraq1uGr5U2l9T1DM7wh+bFA7PC0SVx 3zS3rm92jmdUexMcI7lmwLmWKMv8kXVTaN0UAr/cQbhn5fuqBllSQosK/4LcNyf1zIhdU0LHBN82wf8ovo1Sm/4AACAASURBVDPDfZBrBe6R8p9WxN9NChkM4nVU6BkRuId4zn6O 7X4ifmu+93Ns/Rzb1nwf5ru2zfcxkXdM5N2a75nNzkX8Tph8ZyJ+VOIblfi25vu gwDUocP0WI76X6wAR37SgbZhTN8ypmxa07Uu67jXT4IaDiXgAB P1WyzpiV1Z1d1OeCXq2gWQbyK0RL7IExdbQmhqROCJie0zuTrn C9OiK/N3brfMbKoMX1doIFxq/VlzfP7qgt7rLqlqPn355ZcOgMJiRIB1K0RCelGmtt0qrWjr7bE 5oaHRmeHhWpbS/+877V96vHulbIwO0BvZM8tndczMKmy1K0zYf7IGgnsFxkUzPE6 mPv/DGxBLXH95EN2mUpj3BoAvF4FB4YGpmns1FwlEyQVc2deafPiPT O2R6R4ymTS4MDYW8WFRptHUNLs/MiicmxB1DXE+QNsG40kHABO3SwlfPvFx/rrD59INzN38p7Pi5l/WQS/B9xPTAcP0/dpY/oxcMES7YY6WttrTWQuhs8N2Iv/Tc8YWL18eef77nucfnTx1YOfHs6sm9nFPP8U8fFJ/Kl54qVJ48pj31sO70I7rXDrBPPT148GH2qwWSSy+MFjzOfek57 qnH+SceUJ9+1HD2CcOpx9SFv1TmP7L8YsH883kr5w7PnNg7dWr f5JnD/c8XzN+6UfbyG/oN5QZLNTy1MbEqn9/QdU6utY0tj0xz+8fW2vrnmnumOwYXBiZZo3O88QXB7JpsZlU6u yabWhazxabattElrnp2TTa2quybFU6yVX2T3Iaemf4x1sD4+tA ke2yW1zW4ODDJ6Z9gDy+IZtjqvlnhwLy4Z2JtnqsaXZVOrKuX5 Q6uDpW4EhxDiGUOg2RfN4VAtztI9lVjeMUQWjGEwGHvzEcTfJN Bko6JvCMC9zDfBbKPScMBrn2rrKwEQclkZVZQjom842Jf5i/iCRkKTMqxSTk2pcABMAlMyNBxKTIqhkfF8CDfO8Dz9HFdvRxnN 8vetW4DOtesAJjsZtkz9bAdQC/HCfRvuPs33AM8DzDI9wJDAt+QwDcs9AMjIggYkwTGJIFxKQJkN Ztp+bSS+HxiXtj7lHXHzLdjV+5218jRMRkC+rhAlxdzMC7A7AI ZEPi3NSiEtjUkgndrWBxgDIngQSE0IPD3bnh6uO4utrN1xdK4Y Kif09XP6Rrm9a1Lxs41a/+Ge0wSmFYSs2pqThOc0wTntaHtGahdAYc5AEvG0JIxtGIIrRrD K0ZqxUitGck1I8kyB9mWENcWEdiiKn9S4YwonCE9lBSaYaUN5y gtb1wqlhtdK1xZY0efwey6fPVWQ33r5fev/Zf//P98/c+//Rff/FHr4LwFDpq8CE+pfnTfsw/86nGxRi2WKyqqG1o7Bg/sP/mNv/7+33/zJ7969CjPqJc6bFcrKnUOl1RjkikNZXdqX3vl4u3iusL8l/+/v/5fjz19VGNG7EjCG6ENUIyKkgECfufi20qdoqS8uLK25oPr1/7yG//tq3/0x3/3rf+pUBvsLsRg9nB48uq69uOnXpaJsIkRRXXLooOg3WHaGaQjM doo0d16/uWm115pfOn44OUzdZf2lV976p2rPymqfurWrYerqw+wuXNOX1p to5UWWmaLa/3UmTfP/tX//zd7So69snDxOvfSJcl7r6+9eJR79vDGuUOiF/NkLxWoXjypefGM4dzz0PnDlheflL3wlPLNAtnFc7w3T2y8fVxz 4zX2ub3qNw9bzh+0vLLXeO5Jx0t7nS8/Zzu7j/36qfVXT2y8cXz57KGll/KXXj0x+vKpxeJb7x89IV3iy8WWuVXFNEs1uaYYW5PMC7SzK9KF dcXMqnSepVgT6GdWpQOTrJHZDRDxM6vSySXRutBQ0zqyyFHNrE pnNwzdU7zxdcWq0Nw2tLTE1sytysZmeTPLksEJ1vSKbHZNMbmm GF+R9c+JFgTmZYFubEnYMDA/vCRja30iS1DqTq5pCBDua8bgmjEIut1Zepylx7fmO/hVwnSGjIt9oCcEZHpWuIOfwMDWlB/ccHyKEc8ky4QMHZMERsXwiAga4Hn6N9y9HGcP25EV7ttGPBPum fnex3Ux4Z6V70y4Z+b7qBhmwn3bfM9F/E6YfS0g4kG+gx3mW/O9n+/5bUV8D9fdw3V3shwg4utmtUzEd6xa+jfco2J4SoEzEb8jPbkrC/oQsGgILxqCi4Yg+IaCiF81EGtGct1EsS0hjjXMt0Y2TJgJoSVW QmzB5U7CG6SV9sCJly4scqXldR13appsTqi+qb24qKy8rPrC+U t7vvrne7765+XNgzYkbHDDixv8v/1f//Mr//FPFzlsk80+MDzR1Tu2tCg4/07xn/3H//63f/2DVaV8RSE7/uprQrW2a3C8b3Bi/7781165WFPV/tN/fuL6zdqfP7zP7ouGaFrlQrBNGqWQ+Gbsys0P+BJeTWP15WtXp+ fnLn5w7Utf/v09X/r9iuqGyZnVgeGZusaut85fOXH6FY+D7u/mVzTOGaGYM5g2BqI4GTPLDO8dOX55/3PXDz4xeu3cfNvbvMUbI/NvDM682t9/Znb2gkiy5vSlpYa41JCU2eImNHo34tvb25tuXx+ouj5aeWG+6d 2lxneXm95bb7q00XRF2HhD1lAib7zNbXpf0Vci7yyVt5YZuprU rbW86iJB3S1+2w15f4lysETYeVXQdE3WclvZVq1trFRXFWkrbp mqbymKLylLLysrbnJu3xR3dd9+9R3lhtpqwaUav8yMchROltLG 13vYMptI5+Or3TyVS6DxsGU2gdJl9cUEShdf4RTInVyxVWVE+k bXJWqvQO7k65B5voWt9Ii0MEduV5tQscolUjrFKteGxCLT+4RK D1vu4Mi9y2KH0IAt81RNPROlTf0rIrPWExOaKZ6FWtfh4Jd7Zr iztBhLi80aE7PGxIwhPmOIT+tjU7ropDYyqY2A498HpdiABAUH R3bxfJ0bXuZcIea0oMyTiZi/Zp0iBM4SYk4U2ulU0mEpmnWY/JgqmAnMZI7K7xcj3Xw/aFg7x93GdrWynFna2K42tqud4wY6uB6gc8MLdPF8XTzfJx7Izx zuCQ7u3Om4fgZo8Lg69PmU9cJ+oqw7Zj3Z+zesIIcV5JCcGJIT gzJ8QIr1S9B+CdorCgA9QhjoFkDdAog5XDULc/RqFnAw664w5z0wB+D2CJGODT84ALdx1VGzYK6aM1bNGWsWzA3L lpZ1RxfPNyjFxlRB8GWZ1EamdNFtTRgi2xrXh7cFDrWcNkaBGV Ns1hiZNUbmTdF5U3TeFFkwR5fNsVVrYs0eX3ckWBq32h2S23GF g+ieWfv7Hz6450v/4ff/6D9/6Q++/od/9Gf/8vMH9+z53X/3pd/90z/+kz/491/+2h9+5e9/9vg/P51XNzihgzGp3d4+NfbjJx/62VOPfO0v/tOe393ze1//2pe/8vU9e/79V77+X3/w48cfeuTQnq/96Z7f/+qeP/iTPf/Xf/jq1/7Lnj1/+NXf+7Mv7fnjr335v35pz5/8ydf+5tvffkiuRh0Q7QvSMywjGfZ5YfOtkst7fmfPnt/Z86f/6evgxqG8/T/88Y/+9u/+27/7vT/Ys+d3P/TlPXu+8kdf/4uLJXesJO6IByQenQd3W03qmveuXDr+1vm8C23vjzZW8frH8at 93tMlwlXNCN86u250qAP0qplm2Wi2k1bgieNvn/2L7/zNHrPZ3HT7etn5s+ePPPj2oR+9e+jH7x3+p8uH/+XaoZ8VHXrozsHHyg49fj3vp5ee+2FJ/iPlR5+6/tTDpQeeqj1xsOTQY7cKfnmz4BfX839yPf8ntw4/UHzw4Vv7Hit95tGqvY/UPP1w03OPVDz2k8onflbx9C+vPPbQrYLCE488dedK+Y3rdW+8e +dyaeuFm/UXiusuFNe9d6v+UnHjhRu1F27Uvl/SdP56zduXK66UNF+6WX/xRt3Fa7XnL1fevNOed/zNK0VNF6/Vnr/V8tb1xvfvdLz6XvmVO60XPqh67XzR5Zt1F69Vn79c/v6tuncuV52/UXetvPfNaw2vfVB7vayptX96hqOQmVG+Dl5T+kWOCPvDfGcifl 2HZUX8tD6WGfEgRgelGDiNu5vvB4GYFfE7nS/62UV85ranX4yAgAbnIv4aEQ/uvjXiQb5vjXjm+P2siN+aZbmIv3fED8rwe0Q8yPfPW8RXz5uyI n5CE/4sIn7KELl3xK9Y4iDiVd6wzIYb4bjA4F+S6AZmWNV1bf0Ti9VN HXWNHQsr60NDY0MDg+2tbd1dHf19PQoP4QjTGj9uREmWWt04Ml Az0O6iAhPrC5Ozk53DQzWNrcPDMy0dI1KFM4DRoyvspq7+6ta+ uXn27TuNHR1jLbX9wwNLbXXD6yuK+uohLtcGYzQapmdY0lcv1v gCFpR0nTidV1pW2t3bXVVbNjg8ODo+qtWrNml6g89rbulob+/u6OgZHh5vauocGJhpauzXuLzOcNAU9NhjMJUiZWJuQKm3sDTmV YuTRfa0Khs7He+1206XCDnGSZFjYV5pkHkTaxaa56Y3PLQMjd2 N+A0TpvQlDDitgjb1KM0woptGdNOIpsxIyhZI3psdSdmRlANNA 05sc1e2O+Nr04Ft2tH0tsB5ZVuBs87MaNqEpExIyhhIAnKYlvh ogSvFtcVAz8yqgcoEdtxvu6tnSYsvqNF5FTKnDExKvBNiz5jQN SpwZu5ZzerUZvRxXaA7O6tHO6t/g7FTX/a9uwsm5di4FBmTBEZE0LDQPyTw9W+4t3bEZ3W+Z3bLZPXPMDK7 aED/O5DVctBspuU7dcFvNaMifys+rY6aTwt46MwdKuAVznzN7wfzoc omxHdlWIBlGuKjgzxkkIf0sv29bH/3urd92dk8b22cNTfNWZrnrc0L+vYVcy/HOSz0T8qxGRX5CX3xu5S5tgVdmAEGM1gyRJeNsRVTfNWcWLMk1 yxJvjMosJJCGyFxBhXeqNoTlVgxgdb34sXSwnOXqtrGjI6gF6V t3pjFFZSq3QdPvlvZOq33ROAovSzSV7QN98+uWQIhGxqxY1EHn nDi9F0Y7UBpLw5sfoRIeYmU0Y0F07TJg8GhtI+KIdG0yur+q7//7p7f+cqe3/nKjx988uXzVw8cO1da12GDgiYP/kzeqdb+SScSQaO0C4168DgUTLvQqJugndimHUk5sU03QduRlN4 dUlhQodYrMUA8lWt8WVLZOvrerfq3rlS+c616lqNekVvXNF6em ZS640J7WGTFTb7ouVff/ttvfWcPz4xLXRFNICn3JoU2kiG2EWIbIbZhUiumsKD3prRiSiu msuGA2k7simoHShu+LZmd2JbUhgNgSAqxBQUErhjPEedYo+umE Aj0bZN9SYsDixpsUYMtqNEFNTqnDMzIoWmZf0rqGxU4wZGRg1z rAMfSzzYDmTGaadsO7sw+7qz03Cn6M/u4M2WGwrDQD/ay9m+4QbJ3rFraV8xtyyZG+4qZ0bFq6Vi1ZHbNM9sAptmgtVmb KNDszDYznfI7bat26oP+vPW577oPfYf35dcDdqWAjTT4YGS+5v eD2V+SjYfsysBGIGuynwv3caCuNU/nqhvke/20sXZSXzupr582Ni/o25ZNPWzHIN87JgmAjfq0kvh0N8nM5KyaArKiH8T9kiG6YSd5Z pxnRoU2QuoKKZwhsQUV6vxXKjvfvlLdMrCgMiImZ8jsCjt8UZ0 F/aC0q3ucJ7dgZohck5q6J9emWCKNC7EiYSsStqExO5q++6MTSdu RTQ8GpD+CJz140hEIo9G4wYV4ibgTDfqomAsLvX3l1ne++8///VvfP3L61ZsVTe9cud0xNGP1UzpH4MK1OyNzLLOX8BIxNxYLhGk iQSMR2k3QDjQNfjS78E0HmjZ6I2o7saF08tXuDaVzRWicWpMPz fEHZjaG5vhcpZNn8HEMMN9Cyb1JsTMqsuIGT/huxIORwXkGlKX2C8yowMwMax4QmgIiEywybT9uuMCEiywkQ2yl mGHEdz2+tnN7YkdoWwLb9vh3B58J8iwUsGEmN8wkx5ZiW5MsS+ Lu0HTmOMuSYFuTYHLNFFs1RoHMEy6W9eElXWhBQ80q8Wk5OiVD xkT+UaFvROAd4rkHN1wDXCeQORTXVr18H8D0z2T1zDDDUWWNw8 WM4DiuJLc1pQlNqoMTKmpUjg9L0UFxAIwoCbqMwIhjzFBimQNJ Zg5AttMOg16+j2nnvTqRMob3ymzqhIoCmOEnt9rtiI+flh1HfN y5qdtinuNvCLzLYDw1MIoZ82p/OkTkbg2JKcagiBwQEv0CvGcD6eYGOtlQy4q7YcFeO2upnbXUz9 ta12wdbGcv3zcsRceVJDMM2W5H6NxJ1nifW0cknTfGF0yJBVMC jGTJdkY51jDbEtqwR4WuuNiTFDhjAktY6UttaFGlK2onaZ03qX HHTb603EyxdYTYHtchtImgNXBS6gqpoKiZog142oCnjcSmiaDN JG0maBNOm3DavhVB2wnaSdFOijYFYk6KtmJJK5b0x2mpDXKHaJ Ur6ArSUJxWOim9P+aP0TpfVOmk7AQNJ2hflHaQtJ2gzUhK6404 Q7SNpC04bcFpG0nbSNqE0joorfWn1N4EGI4fDMmg8sTlzghf6x LqPRyNh2tEpe641B2XOIMWOHE34sVWSmoPKd0xiS3IMwZ4xgDf AEB8AyQw+AUGP8+Abou5RsTdYRo/jPvMy0Tcj52ifKdLJTAJngUEOsA1EQDHiDN5DTCn0jFzlnShRW 1wURtc0FALGgpMLmioeTU5o8CmZMi4GBoT+UGs93McfWx7L8vW s27tWbf2smyZ0Xk/McpkfVZ3fNZYjJnRua1xJTmmIJjhgnv5vh6et3vDw4Q7GGCydc 2WNYDw1sTftsFZWybQ1H4hlBX3TIN32jLdo/2/FTu1Z7d2OyLmTpjxKcFGGmynMz8k94l5g7IJ8N9EHx/r5aEg37s4cAfL37zsqpuz1syYa2bMtbOWpmVz65qti+seEMEjM ozZwO92k3mPTWnWONVZA1NnRf+ymVzR48s6bNVAsM0U1xriWkM bRkrhTUqtYaUrqnASfB0itVB6d0JuppReWu5Oix0hoQ2TeyLaQ EoTiMs8lNIfUUFRFRRVQzENHNNAMbU/pvbHDFtBMQMUM8JRvT9sRuKA3h/WQ7g/TpsCEY0nbIDCVixkxTZdQdoX3XSQtDcCYp20oGEbnrZiaQuaNi MpMxY3BOI6KK6D4oZA3Igk9HBKB6WtBG1EaDCkmiFAGwK0xpdU umNWJG5DE2pPWOIMyzwJoT0ssOLGjzpq9H6e3i8wQCylU2iEhE ***PRl2TAR2wLD8DIXhRHaQoDYEdkV0Q6E9vC2NmzbA+8l1xri WIIcS5BtpgDm4Mhtu+Azu2tARw24AfpqZhXwtMw/KfGOi9zghCbQRdPHMjG62bZt9XIdADgtsG/DCcYz2HbQghGx/+5wBbLAuCwwIUcY0yp8W5MKdEKOjEnhEbF/SOgFQyaA8w+7WNbOdUvnuqVjzQxuAF0sK8A0sodjZ2S1dqeBFp iRFZjWggZPKtApJQYwjZxREzu1f0ZN/Fbs1J7dmlSgnwrwAoLXc1QCZZ5wtCs7nsokhHdlSAANCSDm9iD fP8j3D/B8vRx3L8fdte5oW7Y0zRvqZ7QNs7rGOX3Lkr591dTLdQyLfODj OqMmZjXkp4V548DknJbaal4XZKyagitGatlALhvuHjIPRpNdVs HrOoxnJtl6lKWGxdaQ2p2U2SJ8a0Rgi/IsIa6JEtrDCl9K7ovzbaTCn1BCSRW0qYZphgqidXelPwIndXDS gKQNSNpK0jo4biFoC0HLnKQ9SJsw2krSBiSthRLgX6UnovbFjO im0hORu0I6OGnGaTNOW0naFaGNOK1HaW2A1gZoHULrUdqA0XqU VvpSDIU3yVBZfHonIrNhQgvGtwa5JkJgxW1I6oVXz3/jW9/dA/qsZTZcbEZ2G/E8M8mMt7416O/fJ3a8ZGGiPAtIdibcWSYSYA5+32nPamYX/KIGm1chYP9qZr6PCV1g5+oAx5LZET/AsWSm5D0Skxmy5n6HpvkwPXeKBiYRhkU+MDYOeCCQ7B1r5vZVE wCCPjPuM7N+p03RTsPpgHZubWrmZgm0MCvuv2ARn/l8fxNMuDP5zrynu/JpRfwg3w9SHgD53r/h7WY5u1nOzjV765K5cU6/NeKHhN5xWeAe7/ivJ+t3wye+vyDcgRU9vmYkwcAkAltE5knJPQmBNcg3EgITydfj HHWAY6T41ojIERM74xJXTO5Nyn1xqScq88bkvrjCl1L4Ukp/WulPK3wphS+t9qbU3pTam/iILwYi24hu6uCYzEmClFd5wzo4IrGTGn9E5Y0qPREDktYHUloo YSVpG0Ub0U0DkjZhtAFJKT1huYvU+EltIKmBUxp4Uw2l1VBKA6 e0gZQ2kJa540pfSg1tKn0pmTsudcXknoTSl9I5AmYvoXSSUgcl ccX41qDQRlgDybsRr3RTShtu8FE2KGz1U9vwRUz+2LbMUBwAY3 Ja4IQ1kLQGkszkfcocqj+TEY5vywAntqWH4nooDq7rqPPHtL4o oPGEtN4wQ+MJqd3BTODyjyoXpXSSmRQOQm7HpVZUbL67W0Jkgo VGSGDw8/U+0IslMPg/7NraEbhYK3O9VuZirWILDkisBDhTA9yQWAlw9dd7Y+4lMmPMJW H5hgBXe/e6gwCY3NBBjA+vjgbfu53bNjWrzds2FVzAFlyK9h6Yq9T+K/vEht0n8DR/c5nvJnhDAebFv09b36MPkbsi+vDaOOC20IQLjJjAiPH0yIYuwN XCLJVvReZaljpXZK41hWdd6eZofHxDQGzBt7348G8o870Dc8DI 7zstr/JG1b6Yxh/X+OMab0zjjWm8Ea0vKrNhGk9I46RUdsLoDZn9EYMnaPKFNZ4Qi AgDFDNAEb0/bIAiZiRuQRNWLGnDU3YiDXrbbfimDd/82PjveILhCW56gps2NGbH4k4i6SJTvjDtJJLeEA3HaF+YdlNpT 3DTSSRtaMxFppxE0kkk3VTaF6a9IdoT3PSF6UCcduJ3xyh2ETR zMI+LoH2huzwU7cRpcHihA9v0BkgPTGidmNJJauC0zB0VmFGFg 3j+tXf/+tvf39M1wymp779e1XqrsrWoqmUblR03qro+0c3q7pvV3bdqem 7V9NzP8pmuVW/valXn9qq7t3WlqutKVdcHlZ0fVHZeruhgXKnsuFrVCdZ5vab7e k33to9ypbIDuFHbw7he0w3+9EFFO7PYBxXtAFj+g8rubV2u6AK YOVeqeq5U9WQuA+Zcqeq5Wt2bOedqdS9jp/Vfre5l7p75oMwk8+jMYplrvlbTB+zUzp3uldVsxk7r36n9vy3M 882y2/VkPvdPy9ZX/tPQ92u4Wt1/tbr/SlXfB5W9lyt6LlfcXc8Hlb2Xyrrevd1+oaTtvd***2Vd75W2XS rr+KCy+1pN3426gRt1A9dr+5nbv7nrtf3Xa/uZyZv1g5m2Ln+1tu9aXf+NhsHr9Xdbcq2m51pNz636vuLGgeuV nVfL22/X95bU9dys6rhd31vWNnqzrvdqVefNut6iht4btV0367pLmvqv1 3SC27fqe27V9wE363qL6rozdDJu1XYU1XVer2qtaBssaej+oKy xrKXvVm3HzZr2mzXNN6pbb1S33art+HBOe1FdZ3F9V1Fd582at utV4K/txfWtRbW9xXW9txv6Sur7iuv6imp7i2p7i2p7ius6i2o7bla33 arpLKrtBX+6VdNTVt1YXtN0p7G3Y2J9Ve2TuiIKd9gIx+9G/LXKNh+ZDISSCBFHyCgDJuMwGYeoJEQlcSL0mULJXSLCu4IT1Gf ss319cnJ+M+HP2G/9CX5MZo4BH0+DzIUpnKBQMtNOsfPRMjhJfORzkCckGcQwAg4mi mu71b6YyIpL7KTOm4v4XMTn/J8iF/H/B0f8zYomiIjhVJzAQwRBMVAyhBJ3X6AQHvhMBYndCeHIrkSwwG fqs359cnJy7l8QJ4I4EcSxDMhHtokU34cCQSLw8Tt+eF8CChJQ xpK+D+cAGWvLfKwdH/He+bZLBEqiGEpFSmvaNd6Y2IJL7KTGHz/z2nt/9e1/yEV8LuJzcr5QchH/sYi/VdEYICIUGQniBAjEII4EcYIgCAK/2yWyTaM/VQS5O1veg09AEp81JCcn5/MCpzIQDILACALbLlKgDyEEiRAEkflj98N7BQgykLEkA8wHd8QI AiM+VhRBULvPt92J4kgIgQgyXFrbpvGFmYg/9dqlv/z2D3IRn4v4nJwvllzEfzzi6zE8FCQppkMjhAdCGEYSGInf7fj/+O6ITx9C7c7ud798tna9uzgnJ+ezQ0QzhFEijJBACCFDMBWCqR AcpBhIEEGCCEJhCEUh5Na9tWGEDCMUhVBYxpIYQhEZqA/vG/rwsTLXsNs82V1+xnA4jPhIMninpiUX8bmIz8n5ostFfGbE3yhv 8ONhhAxhBP6x/y8QGPHhQTxErnKVq1zl6nNZFIniGBwIRm7Xtmu9YYkZl1lJnTf +wivvfeOb/5CL+FzlKle5+jdcuYjPVa5ylasvbOUiPle5ylWuvrCVi/hc5SpXufrCVi7ic5WrXOXqC1u5iM9VrnKVqy9s5SI+V7nKVa6+ sPUJEX+zohEiIigVxkkiF/G5ylWucvVvq5iIL63r0PkiMispt1EGfzIX8bnKVa5y9W++chGf q1zlKldf2MpFfK5ylatcfWErF/G5ylWucvWFrVzE5ypXucrVF7ZyEZ+rXOUqV1/YykV8rnKVq1x9YesTIh5c2A8jIwTxsYtgfXgpLHBpq38bhaJoI BBAUTQYDIbDYYIgEARBEITMVa5y9bmpaDQaCoVIksQwDEVRDMN wHP8UcwBc7o4kEBIncJLAiaxrhty9XB9z6W0Cj+JYBAua8ZAFo mg/SeMwHa0/0gAAIABJREFUjfjSBOmggq4k6cE9BgqjQzEaiiDeIEQTScIeiA XjoWAMIoNkPOkMwEg4hBMUiVPg4uDgocEFQz7rCpIUjmIwGS2t 6zJAcaWTUrkoAxR74dXz3/jWd79QER+PxymKQlEURVEcx3EcJ0kyEon8tj/SucpVrj4qv98fCARwHA8Gg6FQCHxnIQj6tHJgtxFPkXECj6KUC aVMfnITomgKpSmUxnAbBBspv5lOk0Gc1pmcvhCMJoioP0gHN0m E8nkDgWAYpkJeHMOikVzEf+YFQZDNZlOr1TKZTCgUcrlcDoezs bHBy1WucvW5KaFQKJPJDAaD2+3GMCwYDFIURZLkp5UDu434KIW HcMRHQj4SwnGUIqNYkMaCNB320BEv5LVFgyEcQlFfIEinTT4PY vbRETpMRDCUitE0TIV8BO4niVzEf+aF4ziGYQRBxGKxVCqVSCR isVg8HqdzlatcfW4qEomAX+4IgoAv7Kdbu434CImFcMRPwX4KJ giMJCIBIgXjScSpTIfcQQIKESQZwMN40IWjUZqmqbTX4k2Ekxh K+TDMjWBwkAqlU7mI/8zL7/fDMExRVNZHKpmrXOXqc1PgWxkOh0Ff/KfbEU/sJuJJAgnhSBQzRzGzh6C9JE2jtnTAYiTSOjTBar5tne9Hgmkkm BbMt7179pnv/vMvxVr73l888Tf/91/OTc4TeAgNRyObtAdD3SiSi/jPvMBunHA4nEwm0+l0PB4Ph8PhcPhf+1dKrnKVq50rEongOA5B kN/vR1GUoqhgMPhb6agBER9BTVHM7CVpH0XTqC31v9k77/AoqrWBr11EFGkidgUFLGBBUVT06rWXK2K7dkWvYu9+V/HaUGxgQRSwF0REOiq9BFJIIwESAumb3Z166pzpM+f74yQxILFc 4yfkO7/nPDzJZnfmzLD7m3ffc+Y9WmW56a9T7asHHvb0NednF5Yjhxcvm/LEXZcd0vdE6PGR/7yzU2LPJT8uxYhVNqSh4yoYQdeRiv/TETNqIIRbJWd8iUSy3SA+lY7jCLlTShFCuq63lQd+r+JDUBKCk jrI6xHneglXi9dZUTHyRp7S9+rDu45645PytFe6ZOwL95/Vd+C5lQ3OzZdf3znRccXilY4dqJhCx1MJVgmWiv/TEXNpKKVRFHHO4zgOgqD5LSWRSLYTXNc1DKM5ircsS4i+Tfi9i o/RuhCU1IK4DsaxtpZra8tdvsHmK978zxUHdrr8podqIV+/7K37ru177MkXVKe9a86/8siuhyycv0jXoGHZKqamzXSLbr+K1yBrH4pHCOm6LjIzURQJ0U dRFEskku0G8anEGOu6LqZRmqbZhokaHgeGksqk61csW/7q66+9MuaNBUuWawCnNRNSmzpubW29bVsMI8cmSFc42xiYa2sB zzBeNGvC9LGPLdiULIKutXzOt0/es3v3vsuL69ctHffITcf3O+G8OjW89R837L9Hl+lff0eJYzKnT tVNm20/UXxJHS6tx1LxEonkr+HPVrxpqEpDHY/9t8e91bnLfp33637ZlcNVE1HHB4QhixFiNTTUfz9n9vJli0LHS m1emv3j5NXrGqp09ukLd1816MDHJ3xSzTmvKSma9MZBx5z1+ex VG5a//T8jBg049eKiMvXWf9zQc8+ui39YYlEX2G4GYuS5SUPfThS/dRT/2rsfSsVLJJL/M/5sxce+Y6rp7+fPPuSgg++6+18vjX71iKP6Pfz4UzokGsCKYeq6 +fHHH5479KwRd9ziWfjFf989eMDBL7z5SYbwMU/cfWyvvZ94Y2K9y3lVYVCWPfDUcy4ZduPq+R/ef9N5xwwaqlnxVedevldit+WLVqiKqSCiEYvFURqC7UrxmzRvC 8WbiEnFSySS/wP+bMU31FbxOPjyi0922Wnnlauy0hn9mn/e1O+4gdlrCtOaCaml6+YLLzzXt/eRl116ITbUB+8afkDnxN2Pjq5W7QdvuuKU3j2+XVFUkgG8ppjT 5L2PPHPqWRdOm/T8DZeceOo5l5TX6fdcP6LnPl2L16yFgJrMURABjp0C5l+reJ24 Yz/4cpPmr0vS9Q10s+5LxUskkr+AP1vxroVDlz36yAO77bLr2X875 8ph15x06umJnXbt0+/Yq679582333HLLbf17993z1132bfjntdfPezQXvt33H2Xbof0u Hj4pTvvnOi5/8ElZWpKi756b/TT995w9pmndN+vy6ABJ50zZOi7n3xUqaSvvWDYfjvtvXD+IlUx kesriKgEmzb7yxU/buJXmzR/fYO1IWVVGsHWiocQS8VLJJI/mz9b8R4jmWTteecOPeP0ITvtsnMisWuffsdefc31nfbr1v2Ag/bouPeee+7Vs2ePQScMPOqIQ7vs07HHfvtccv65e/fYZ+8e+xx33DF3jhhZWWdpkF8xdEDPPRN77pbYJZE4eP8Db7vh lqziwlpDu+my60484rjZ0+ekUxpyfVHA4C+vUSMUv1kP1jdYZW lWZYaNin99/EdS8RKJ5P+MP1vxBbmrPxj/9uBTT5r0wcR538//ccGSOd8vqEmmc/KLZs79/vMpX3/00Sfffz9vQ8naDSVF06Z8sXJFnq6RxSumfTXt3ezi2sqUDTWup YKVWXN/XPDN0nlTl38/rSA3ubnGrYepFFFyf8ya8/l3qdq050bQ8UzmNJjGX3h3K0G4peI3pFhZmlWDSCpeIpH8BfzZ ih86ZPDAY/u9P+EdgjAiWNOhDglmLrKcupQScB4EEaXYUDI8cPVMA8GepmKf K4BW1mkBcDg2uEu5H+gZZSNRKiOaqdlsQ8pNHzXgDMehrzGHuB ixmowKHQ849l9YTLil4iuNcEOKlWfsnxT/2tsTDWhBaiOEEAJbNYgRbLMz/6cj3jSWZcVxLGoY/J/dyiGRSH47nucJs4syZEL0beWBZcuWlZSUpNNpcetsc13xttr+9 gawkAp1FVtvTfi8XvUqk7QyZdXr/j2PPXXk8Se2K8WL8nW2bfMWUbzQvUQi2U7gnPu+/+cpXlEUCKFlWZZlQQhFPcv/D4p/+/0v6lWvqsHaQvGvvzNJKB5CuKMrHkKoaZplWZzzMAzDMOScB02V 7SQSyXZCEATNq/egtla8bdu2bYv43TAMsYs2LJCwvdFS8UnNr2qwqtIsaQTtU/HNufiWWb9QIpFsN/zZigdNiDLFYsttXrJ4+2ErxVenWHXGbjDDnxRvItY+FC/eNI7j/MUhikQi+UV+notvQw+IZaREGUuxcCAAoA0rWW5vtFR8gx7UpO0 axUmBqFHxb7w7ud0oXhShxhj7vu84TvPaT3/l7AGJRLIlvu8zxiCEYj2QNo+yGWOEELEGnNh+235L2N4QitcIe +eDL4Xia1U3DeP2qfhMJmMYRvOyYQghcQGXSCTbCZZlIYSaQ3h CiPi1rTxgbglCiFJq23ZbbX97w6SwWfEpI6zNOLWqm0G8HSret m0RF1BKDcPQNA0AIEQvkUi2H8QHU0x0ERF3G35OhQHEoKu4nIh 5k221/e2Nnyu+TvO2ULwYbsUY7+iKl0gkkv9vGAQAC6nYevPdTzIgTmp +dcbeIhcvFS+RSCQ7KD9XfI3ibJGLbze3PkkkEsn/N4TiNcKE4hv0YAvFvzn+Q6l4iUQi2UFpqXgF8pQRbjHcKhUvkU gkOy46NoXix47/VCi+TvMULBUvkUgkOz4tFa8injajet1XSQvFi0mTCCGpeIlEIt mx2ErxGRDX675GpeIlEolkx6el4jXMMyBOGkELxb/3gQ4RoGJBEOOn1qh4ADH4qw9BIpFIJK1AIKZIx/Ct9z4wLFvDTgow3Qrufezp3sedLBUvkUgkOzJNin97wkSTOTpx U4AZLGxW/Ps6BI2K3yJLgxBCEBG4Qy3sJ5FIJP+/IBhT0lLxaWhvQ/E/S8QjJBUvkUgk2zlbKt6gXgY5ph01KX7CeyJRs6XfCUIEQQYRg4 j91UcgkUgkkm0DMcKUGAS9PWEisD3TChXsAie+97FRvY87JTH2/QlS8RKJRLKD0qz4d96fJBSvEg+6fEvFky2nRkILQQtBB0IHQuc v6rlEIpFIfgWICCaWQcg770+Gjg9YpJIAeVLxEolEsuPzc8VrN PxJ8ePen2ggCgiFLe9xkoqXSCSSHQKCCXUAtd/94GPkRIBx3YpIwEc+Mqr3sacm3nzvfdVEBsKm2WJVFKl4iUQi2 REACEJkaZC8PeFDwALAuEoC5EWNin/j3cmKjnRIgLnV5EiCEIHIgsj6azoukUgkkl8DQAwRUwF+673J0 A6F4qHDRz7yn97HnpZ4c/yHOqCAMLz1zBmpeIlEItnuwRQTR0f07QkfbkPxb7zzsQFdSDwE m1XesgyZLGAgkUgk2y8QEUwcA7O3xn+kYU8BflK3NRI1Kv7VcZ MN6ALsmkbzcKtUvEQikewY6AZA2DYwe/PtSXUK2lxnbqzV61SrUfFjxn4McQxJoGsIIYIQaKpEpiOsQ6JD ov/VhyCRSCSSbaNqAGMPWu4bb03cVKeWlCeLyxs2J1Gj4l9761PKO LW5aRCpeIlEItmx0HRoWSFxgrHvTN5Ykykorc5fV7upHjYq/pV3P1FJoCMLEwsjgBHAyMDIgBhARExMTCzLkEkkEsn2CsEAQZW GY977Kr/OXlEOsypwQb1/16MvHXbcWVLxEolEsiMjFS+RSCTtFql4iUQiabdIxUskEkm7RS peIpFI2i1S8RKJRNJukYqXSCSSdsuvKl6joY4shKlUvEQikexY QIxMCITiC+qdlRvRqk2kMBlIxUskEskOj1S8RCKRtFuk4iUSia TdIhUvkUgk7RapeIlEImm3SMVLJBJJu0UqXiKRSNotv6L4l977 RKOujjHEAGGdIp0inUKxsB+BiMGtl+2WSP7vaAo7AEaNC0wCiE 2ATGxBagPq6MiyMbAxgMSBxHGx7mIdE6u52Vi3sW5YjmE5lABK gM4cnTmYIkpMm6g2URlRCTUhJQb1dCvQrQBQDxObYcIwINQk1C QUEAoIQS2a9VPDNsE2wQ7BDkYuwR6xMpimEUlholGKLYvYDsHE 1DWkqxY0XYICTAyINMMkAFqY2NRyMbFNQAwdAZNgTDGmBLVsmC DctC+bYHuLPmzBT/3ElPyu1hq6rgMACCGWZVFKMW5cCtTxXMosiJEBTBMCgKBov7x9 hBAAwDAM0zQhhM1b++N4MO2jDIBcN2LVqFONOl3nEPKUsi5yU6 FOca2CLdPxKQCurjMbGDYwKDQoRAghBC0TWya2dESx7UHG0oah AA07VEWq7VLbCRzmG5qZSSm+zVyLYkOlQLcJtJAJgGGauokRsi iwLA0hhFWEVQMzAzPHBI4JxFvJoaihbhN39IhmGjKGiTwLh0C3 aROWZVmWRQgBAOh660szUQNgTWPBqxO+LqzjWeXu6k1eUZLf9d jzhx0/RCpesl3TUvGe59m2TSiDiADCkOUg5gHqEFMjpqYDqgNqmRnLzJ gANTdiZoiZURBVEIVAg0DLYJrB1IQGBCoBKQJSGKQAVHUIFMgy yMkgR4PMBASbAJsagCqAKoAagBoARouGfmomASYBJgUmBSaDwE YkhUgK4gYAM6apA2AYpgKghpHNaGxbnNEYEwNAFSJmmETToaZD w8QAUgQtjJjYMjRbNgBN0LQvAkyyRR+24Kd+mhD8rtYajDGhG9 M0TdNsflzRVN00IG68liCCRWtt+4ZhYIxt2/Y8z3VdSimE0DCMtnrPML3eNpKGGUHECdMI0yDkAMSIVhNzk6cg Tnxsmcl0jWHYQcBbUzygtgqwjjGybeJaOjZr0jVpJQkgra1OOs y1CAOa6ttMBBmmmrYJ9DzHti0dAsXQxWtbU7xrYZsaAc0wvcZE DJLAUC0LhxBCc***AAghjHHzRXHbSMVL2geapiWTyU2bNpWUlK zJL1ydnbsya/XyFVkF+XkF+Xlr8gvX5BcWrckpWpOTn5+fn5+/piB/TUF+QX5OQX5ObkFhbkFhfn5efn7eqqK1q4rWrinIK8jPLs5fWZ y/sih/VX5BTm5B4erCtasK168qXJ9TsHZNfmHRmryiNXn5BTk/tfy8/Py8/C0ozM8vzF9T3NwK8ksKC0oLi7KLinMKi1cVFGWtyV+dm5udn5+ fv6Z4TV5JTnbR6lUFq1cV5ORm5a1ZXVhUuia/ODsnPzsnP39NcVFhaVHR2oKCosYt5xfm5xcWrPmptdxXy+c09S dvqybOw29vrVFUVLRmzZqcnJzc3Nz8/Pzi4uLi4uKioqLVOdm5a/IKigoLigrXFOTn5OXm5OXm5a/5he2XlpZWVVVlMhkIISGkDUN4hJBjmS7WbcNyTKa6THEsw+QgH VGz3LeqbcgdxD1UF5AksnlKdywALAAoRBQihAhCBCILIssJYsW AumkgggkFupFxHcJjD7GgorrBi3kQ8uqaOgyJaWhKJoVNzVTTi pI2TZ0yy/FcYjuAULE8qrhsWIA0NyOT9G3TTFdCpdrzPMeOdYUyEjUfCMb4 N50ZqXhJ+4AQIgIcQojFHGa7tuO5XmAzajNqMcdijmth18KMMc aYZTPLZjbDNsPEdojtMEYZo8D1getbNrUZ8pjhMcNlgNmY2A50 fODEwImx7VvMcS3qWpTZ+KfGKGOUbYHDmMMsr7k5dmizgNnAdq DjAccDtoMZo2EY+l7s2DGzQosGzAodl7qeRahjMc92Aot5zPJs 5luWjRCxbbe5Oeyn1nJfjXtvbAK6VRPn4be31kAIYYwty7Jt23 Ecx3Fs22aM+WHgBb7jucyxLZsxx3Y81/W91raPEBKZB03TdF0XiRoIYVu9TzwbesRgOiUKqscgSaBuxFjl DFZwL2mm7WSlHlmpyErVpICGwtYUb7mBBjCxKMRINzKqluKxpy pJbIeIBVX1SQCJYULbcmxGITAsZLoW9jyHMarqWn1DMq3pyGKt KR4bSuQhy0xyDzY0NNTXqRQFBPrNCTFKaXNGS0T020YqXtI+UB Qlk8mYpum6Lm8k4jyKOY855zzgPAg5D/kWND4SBzwOxK8u5y7nMY849zm3Obc59zmPQs69pr8GYpuNr4p+ 1n6dMAzDMGzavs25HwY89LfaQBQEXhBELV4Vx/Fv2fw2adnDoLmJ8/Pb22/aUxT5vh8EQRRFYRwJxXuBH/FYbCSMo1/evuM4CCFhrl9JRPxOxJAAV5JcSVY4vMLh2AxDPeBWBcdlachrV R6ncuZ/+OwDT7+eRFwIVyRPELQQtBBkCDLDAIYBwsBzCXEpxJlUTVnx4/fdOXdJXlWGPvn8619Nn6cCyzAxs11GbQRN09Ag0GyGXddmjBIL WzY1CDBIk1GhB6FHAbFNwEDaQQrGKoL6f/79xAvPPFO5KVNfaxqGIU6LCGgAABhjSmmrBywVL2kfiKQtpVRY 0Pd927Ych0VxHMVxHPtx7AdxHMRb0PhI5MeRL3514tiJ4ygO49 iLYxbHLI69OA6DOHab/uqLbTa+KvxZ+yWaDej7fhwzofg49njMecSjIAq8QPw1CLwg8Jq d7vu+6/rNGv3lvWyLlj30m5s4P7+9/cJxNV2HQuH3xn5y3mx20fwgsF2nte07jkMIMQxDhKu4ibZ6nwA EEcHcVDjUaiK+yeVamoEqc+LYR2d+9nIKxAbjSvHsx244c//eJ5fWgNYUjzHVdZNZBChK5FoeNHOW/tB5j8SLb07M31B39AlD7nnoqZSGUmnNBIhii2BoGpppKBaFlGL T1HVTQwS2pniiJ5Fah5BSXVVxQLfORx58cFFBhZKmruu6riu+N um6LgZaxa+tfDCk4iU7FD+fRQMRgYjouq4oCgRGHAWN8XXs89j 3OPc457HNY5txzjjnvPkJgcO5wzkPbR7aMefBT1G8z7nPY5fHb nOAv3UUL57Dg98ZTQcx98OAxxEXfg8iZLu6TXnkcx6KKN6NubN V9B0GXhxGPOZRFCGE4pjHMY9+1rYZVW8zfm/bKD6O4yAIfN8Pw7DZ9Y7j+EEUxTzmPAhjx/Ud1w+jX9++67oiCw8hFP+zbfX+IY6vI8rrSnhyXWnISwJu1hK1 vPycE/Yd1GeXKUtqykyu5Xz2yoizuvU5dZMeUWBRYGFoYWhhwJqb5/hIAxZAak11SAHHYEP2io6JxKsTp66thUeecNZdD/3bYDFxIgNanhcQDB3bshmur6tatnTh7FnT8wtyMDHTFktbzIK6 BXUFcQVxCxDH1EOqRZZOPS9tGD077Hxo5w5rS+sa0qyysjKZTJ qmKS57v5KlQVLxkh2N1hRPKTUMAwIj8F0eB57LPNfise9EkRNF UWhFoUWjiEZRFHlR2NhYFLEoinwr8q0wirwosqPIjqIwcqPIjU I7Cu0o9KIo8qPIafqrF0VhFEXiOZEX/R7i2I9iLwqFz+w4ZpatGqBuyhczs7NygQ6E4oPQ8jwvCIIg8ET ozeNQWFDX9bVr14ZhFIZR8LO2LYIWzduqhVH0u1prCKc3B+9hG KZSqbVr167MWp2Tm5ebl5e1KnvZ8pV5awrq6htsx2lt+3Ec27Z tGIaqqoZhiFmYlmW11fsHULuqPpXJW6AVLc2jdhnnnhHbDQ2vP 339vonEE2/OLFUDPffzl24bskfP/uWK35riMSRQNbkXUFUJiOmo6U352Z132+21Sd+s3tDQ95Rz73r o30mDUTeuTSoIEYLhqqwVkydNmPjB+HlzZ5asLcgoSWbj1hTvg JSHMmnDUCHsf2C3Pj32/WFB7px5WR9//PG8efNKS0s1TRNnBmP83+fiXxz/sVA8IlAqXrI9QKFBoYGRgSGCGEHUOIktoxsY00y6gcf+yiU/XHbe0OEXn3P1JX8b9ca7GTsKUT2P4Kc/5Jw5fMQ/rx9++UV/Hz/udZ9hxDninOP0jEnjRj789H2PjrJ5ZDgw5n5ebtY1V15y/fDLr71q2P33P1jXoHuck6AximeOzbnNY+Z5jVKLosh13WbHcc5 FvqVlNB2Gvu2anNuezeOAB6HFuRXE5qy5n++5c+8br3kqcDiPO LWTnMMo5K4ThS7jgSu+c3iuzXlkGFpl5SbGWBRFjuvHnDtBSB0 35NyLtkrg/JScCSM35j7nQRi5hUW5jz/x0IUXnTv86ivuf+ChZctXWszx/HB1du4DDz589TXXXXjRJfkFRWHEo5i7XmOk3/hD64kacezNhzx//vz8/Pxp3343b/4PM2fNmTN3/nczZv24YNHESR+KDWJiiR9sxxM/eH4oziTGWNd1kaJpjljbhJSuY8d5ZcSVg7vvnI3ipYodAO5lMs tnjX1sxN8OPvmaUpWnsya/fMeQPQ84plzxoW7wIMSQaIoe+jyT0jwnTDeoNVW1ekqNHEetqe Wh76hK1rzZPfbY9fUPpq4qqTvs2NMfeurFlGFpJlFNRCktKy/NXbVi150SXfbd68Be3U8ZNPCKyy/Ky80u11ANcYlSk9pcuhnyDSoPqWupSR/U+6C+2rQaqH/YXonj9u+wcnWZZsaapqXT6UwmgxAS8+I1Tful4WipeMmORWuKx 8w2DEAJgkB7+omHHrjz1nGjn7nv9uu7Hdn/y7kLeQigWXPeDfceesr5t99247XDLh96+il1lRtV1602TVereX bkLbvt3ePkIX93OScRM0zlg/ffufWGqx8cOeLJRx/p3fuor6fNrqyvpyG3o6gpUWP7HvK8QKSem/PRIg61bbtZ957nYYxt22KMcm4HAbFpyEPOuRtFxIDVi5Z+d1CP wSNHvAx1SjH1I41z6LkBjxsHdX3P5nEQ+K7vu5xHtm1FUeR5Xs y563nM88W4sbv1QMBPig9CR2RmDFN59LEH+h/T58abrr1jxM379+w14s5/IUyZ7V59zXXHDzhh5L33Dxh44v0PPDR7zjxh3iAMPd//VcULuTcrfsGCBaWlpZpuarpZU1u/aXNVxabKyqqaDz/6xPN9x3VjzpltU8uKOQ+jyA+CuOli+ecpnriuAsC4+64/rccuFz/2wqMffesZEWcM1S595r6LE11Onrum1l737Ssjzuh0yMCiGswwM RQVQ4IANnUEDAxNkpud/9gjj4968unJ771nGyYy9RCYlYVr9k4k3pj4zdoqs88JQ0c+Mqp Bp5pJDEQ1TYNIz8laPvb11156/plXXn7+rjtv3SmRuOvOO+544pnpy1a7ILV4zjf3jHrzk7l5MfN 9qHJHJ+lNiPM65Byx986nHNYlK7u8sgZ98sknjz766Pz588Xhq KpKKbVtu/UPjFS8ZIdCfKX9ueJNTKqray2KeezP+/ZLs7acW5niZXO69T3h6nseWfrdxOmTX9m195DHxn9bvXn9ku9n 9dpv71GPPVjr8yKFP3rdBd0Tid069Trv0ust7rnc90Kam7u8rr IMG2mlIXX0Uccc1e/E8ZOmWCF3OWd+HPMoDpHvGpzzOOaeF/h+KPLjLaPaMPSjKBBeFs0Ldc4x97nPuOdbnNOQa8uzZiQSfe64 cYxviSk+CueKRSIe8dijgY08C/HQ5dwPXPrRhx8MOe30088YMvK+e5MZJeQ84Jy6geWFwU8KbjG4 yv2Y+1HsBaETxW5JacGRvQ/p2m2fxUvmr1q9pNeBh3bt1rOoeN09Ix/o0nX/o/seG3M+5tU39+vS45JL/2GYOObc82Pbacrat4K45AjFi8NfvHhxRUVFSWlZ6brytSUb8tY Urd9QUV2TfHf8B37AM4pRn8zU1qVMQCo2VVdW1cWcW8z70xVvY Uh0c0P+gs/e7zzgxK4nDlq2OIfUmyEszl00+dhTrnh69MdVq756+vZzex51Q pVuOwRuLls3dMjgd8e9hTGur0tnrczpdcAhfXr3O/KIo4847MiF834khmEb5saiwj0SiRffeK+8Vj32pNPufeBxRUeG AWzbBloGqCke+x+899bpp554+qkn/m3o6ScMPObAXj0POHnofa+8U1+SM+q+2xP7DLz+iQ/M+rSt1pXlLvpkZbmvAAAgAElEQVRx2kflpr8RBP32Spx+4B4rs itSWnTDDTfssssub7zxhpifqiiKbdv//d2tUvGS7Y1fUHwmoxq6ymOf+5SHlIdw05oliW4HHz3kvEmvPv7 qUyM***wydsZqJVVdsHrZgV06PfXgyIXrKzZAzu3U2888k9il8 6lDL9UYdGIv5i4hmhhuTdcnDz7o8E6dD3ju5XdoEFPfN4kd84h zi3MrjuMgCIMgiiLu+4Hres3hvO/7YehzHsVxKGZAapoScxRFEGrQpWJeJuXc/Pyrt7p0OXXkHeM8GvuO73n1nCuuzQMv4LEbe1QMHbsu1TL1550 79JyhZ1948UUDThj42FP/AwkJOPdibmDrFxTPeeB6lh+wOXO/S+yU6HlA18qqDdU15YNPOzOR2PW550ffeNNtBx9yxOlDhhJKv/hy6i677rlv524bK6pEcB2EjZNhfkHx4luLmCsZx/GSJUsqKyvzC9YWr11fVLxu8ZIVy1eszi9Y+9LoV4OQL1i49K23 37viH8Ovu/6mhx5+/MuvvomaTtyfqvhkqj7mPjeTXKl+etJHB58x9MH7nsR1hq3muXr +5dc93O+kS1d+89ro+y7rdsRxG5IAG+r64oKTBhx70/X/NAzDZv6//+fZfffpmmpQ89cUDz3z7Av/dn7FunW2Ya5Zvqz7Pvu8NfHzshrl+EFD7n/oSRMxVdVd16XQUBtq582d2b1LpxG33bi2MNdQGzj3nx319LEXD Bv96bfcBS88/K+D+l/65PjvA2Sh5OY7r734rIFHPvHGxA26e+Yh3Qb12HnG3OyMwR955 JHOnTt/9NFHiqIAABRF8TxP5uIl7QeheAoNhJCJiYmYuPlbA9iyLKBluE t4SGNQx42qyWP+J7FHlwvveKB40RdfjHsy0eno8YvL6qs3lOat 7Hvw/hedNXhWsZHmnKtlr/1reMdufQafMwwEFglpzF2MVWJmIpd9PPGjDnvuc/Ip54577zPiN8+oCRym+q5hM9+xg6bh00ZDNf8r/E4ocD2raRKLwbnBPe4S/sabY44beOjHn786e/6HHXc+7fp/vOJTziNuh5s4T/KIRwHnsc1dlL1yATYbQo9UbCg99pijn/vP0998O+WyKy7v3ffoqroGsV3ih3bMfy73JsX7FoOc+99M+zKx U+L4AUevyc8qXZc/8IRBu+2+1ytj3rhjxN2d9uly8qDTFNXMyS3o3qPXbrvvtX5DhZ gA4/lxzLkf/FKiRhxyEARi1v+iRYsqKirKN1ZWbKpet35j1qrclVk5BYUl494 a35SCD55+5rknn3qmuiaJMEOYiRlBf6riMUxmLZ6zcPa8/JWr73vmkQOPOfypf79Sv1nfXLagIGfaU4880/uQvk88cP0FQ/sndtpjwkdfzJ89ddzrLxzQo1P/o4/4ZtpX2dnZ55z7tw577TP27Qnzf1xy8SX/2G33ji++8MqSxStef3XsMf2Oz80p2FRRPXDgwPvvGUmAjpS0T0 2ip1Yumv+vW/952snHl5XkU6Sn6qvSqdpPP/lov+PPuOO5sRtWzjv/pD69zrzzpa+LueO5Wt2Mj8ddMuTYwVeNWAf4vRccd87Buzw/ZvIPS0v69+/fq1ev77//PpVK2bYtKgJpmtbqAUvFS3YsWlO8YkDDMAjQQwZFCM9dddjQgY k9ujz0+oSNq6aPeezGRIcj31tSTkCqYm1e7wO6Xn7umY2Kdxpe vuMfu3Y65LS/XeXwCAckFtMjY5fHwT0j7k4kdrvtjodmzl/RYtJkEAWQc6t5ul8URs25eMYYbwyowyDwmv3ueQzjagA2c4/HLr//gXt275CYMOn5GXMm9j5w2A3DXkUq4xF3os2UllvE4hH3XMRddM Ulf5sx7TPOXVNNn3fu0P79+lx51eVH9+vbab/OigExYwHnYgJoa4r3feZ6lHP/qymf7r7H7qcOHrgmP0vV6k8dfEZip92+mjLt30//Z+9O+/U84OB16zfOmDl3t9336rh357LyzX4QxZxTyw3C8Jdz8c2KF3Ns FixYsGHDhpzcgpzcgkWLly9dlrVg4dKVWTmTP/yU2baI2b+dPuurKdMwsWPOxdzKP1vx38+b+spzT9x41TV/P2PoMUNO6Nn3kJfHvIdU7+H7rvj72Ueee+YFuyT2OKLXbgP7dt 23c4/Djj5u2OV/P+XEfrvvkui1f5czzhx8wQUX9Dn6qERi1zOGnjfgxFMTO+2++x 579z6y71XDrj2m3/GnDz4zk9aLCkuHDBnywMh79UwDM3UX61hrWDj3u5uvvfL0QQNK C3NMLcW5ryrJGd99m+jVd4/eJ1551sD++3e4+flvpuTh0LK5h4qWzrz676cc/berllZo4x+65h/Hdjn6+HOOH3Rhx44dzz///PXr1xuG4XkeY0zTNFVVWz1gqXjJjkVrisfMzWQy2NR47PKAlGU vmPL2cz13SfQ++9LFGxs42zT13ac***39+OfLiJ4sWLHogH32f HDEzXPL7GLCuVP37D/PS+zZ6+//uN3hvmGbEXc4dzeXrf36808O6XXggb2OWLZiLbK5yzl0OLScIH I5pzxCuoYCn/OY+17sOF7T+GoQBJ7r2iJFI/xeWVX+3Yyp/Y7rdvX1Z1ODc5fffffdBx26z0efvfz1t28lEieO+OcE7nJT915/+96TTut6600PxAFHag0DDX0PP2DUEw/wyOLcX7Rw/mOPPnzW2UN69Ny/+wE9GxQd2K6Y/s+iX4riOfc5d6d8/Ulip8SBB3VbvmJBxabSwaedlUjs9s67H8ScP/f8y9dce+PIex86edDpO+28xwknntqQ0hw3ijlndtA4n711xW81 o+bHH38sKSlZW1JWVl6ZtSovJ7fws8+//vCjzz+Y+LGqQT9oTP40TdeJg5Bj4vzZil/+w9SnHrz12uvvvPHmkXffd8OESa/W1tGqavTSmPv/ec2ZI4Zffd2FF41+9ekFS2b+8OPiW24dcd2w8/5x8Rnz5nz12ivPXjns0ptvvvGm22795rtZl145/Op/3vruBx+vKd7w1KgXr73x9htuvSs3d62hqLUby94c/cIXkz+gWso2FdfMeEApzl4ydvQzx/Q+aPmP832HIFMp27B2waIfb3/h7Qv+9cTDN17y8atP5WBeyXmyYtPymV//86LTBh+9/8NvfbnJ47xiWdGUN26689+XXHX31KlTc3JyPM8zDKOhoUFRFHF Hd6sHLBUv2bFoTfGAMEVRkKHy2E3VbXz4tuGHdUz067bfxPkrN M4juvHbCU937H7iPRPmWmZq8exve+3b4dlH7y+AvJ5z7tS9dOv FnbofPXDIZcDG0EMxd00z/eKzT/Xs2rnDbrtP/3YuxNzjHNo2dBqj+Pz8ZY8/etfYN9/Nyy2MwojHPAzjphnicWP5hDj0fdfzGOcB576mp3oetMs+XRJr8 yrTNenrrrvuyKO6f/jp6JXZ33brdv5dN36gN+g84jrOHzHyvMGDzl+1YrWLM/NnfLl7InHr9VdaRBWmNg3tjjtv7X/sMeddeAHzQiuMPc6RbXu/GMULxa/MWtSte7fDDj+gpHRNYVH2kb377b33fj/8uESE1THn1PL+dff9vfv0v+/+R5qz8DHnfhDZjtOa4uM4dl03juOWii8uLl6Tv7a6pqGwaF1h0 boxr459ZtQLn33+tdigCNtdzwujqHlHf7biPVTHPS2tWKkMxay BOmkTcEK5ict8u8rJKL6mx9yqS5XHnKfS2oK5X33+4dhZMz5bs XQ+wjqEpmLomLkB59VJVTEpdWPiRAZ2kgpwHI4Mk0cBzDRo9TX cpVRLUaU+IoZtNhStXjyg72GnDjj2sov/fv65Z11+2YVjXntlk8/XUb5i+uRZk197dur3Hy1f/tK/nz6qe6fD9k2cM/CwFbVWgY65uY7blesrMbA5pbS5aAEAQMyL/6VKnFLxkvaBpmkiO8k5v/nmmxOJRKdOnUaOHPnVV19NnTo1KysrmUxeeumlgwYNevvtt6++ +uqTTz45Pz+fc24YxuTJk4cNG9a9e/d+/fp9+eWX8+bN45w///zziUSiY8eON95447Rp06ZMmbJ06VIxG5Jz7jjO9OnTDzrooK/nLVlfpzHOXc6hy92Ih5yL8UYe+Tz2eWRzD/HQ4h5ytLqDDzqi416dO+zZKZHY9bDDjnjyyf/JZNS5c+cfeOABV1xxGedRFAW1dZVPPvXobrsnEjsldtppp0Qic ckll3Tt2jWRSOy1116JRCKRSBxwwAFPPvnkxo0bW8y752HYavm E5ptOGWOPPfbYEUcccdtttz311FP79zjolptHmAahxJ0758epX 3/36CNPDTr59Fkz51dV1gu7h0FjsM0s/xf8zpvucRU7qqysnD59+tixY995551333133Lhx48ePnzlz5ub Nm3/hOiHmmIq6xKJSvLjH9a9+f/1RTNP0PK+ysvLJJ5+8/PLLr7zyyvvvv7+2ttbzvEwm47quuJJVVlaOHj36nnvuyWQymqZ tVYL/vzkPUvGS9oGQdTKZTKfTDz744AknnHDkkUdedNFFt99++1VXXT V69Gjbtj/77LMzzjjjggsuOO+885555hlFUTjnBQUF995774ABA3r06HHGG Wfceuuto0aNWrdu3ZgxY44//vjDDz988ODBw4YNGz58+KhRoxoaGoRJOedjxozp0KFD4aakwmK heJvzQJQ2C0PP83jke67FqMEji4dWpm5j7qI5Hfbcp+NenQcOO Hnw4DOefnrU0qXLgyBasSKrf/++48a9GcdhdXXlkqULrhx22f49u/Tt17d///4nn3zyc889d8stt/Tv379Pnz6HH374SSedNHr06MWLF2OMRYbE9/3mu0xbI4oi0fOvv/5aHNGQIUOGXXntpImf8JhXbq675+4Hrrh8+C03j3juP6Orq5LM 8nnM4yj23BYplV+jOYqnlG7evDkrKysrK2vlypXLli1buXJlSU mJqqrN15vWtrCV4v/qN1cboGmaKIJfWFiYl5eXn5+/fPly3/cty8pkMuKGXtu2XdfNzs7OyspSVVXXdXEGmotKSsVL/v8CAMhkMrquc84BAEEQuK4bhqEY+RROESWc4jiOoqj5cdd1t7w HlYs/2bbd/LjneS2tJCqoXHDBBXfddRcJuM2519TELHXPCziPeBxx7nPHokZ 67vQpV154zn577nTTjbd99OFnGLGC/LWzZs2ZNWuOqqqcc8dxGGMzZ343aNBJO+2c6Npt3xkzp8Xct21 7/fr1dXV1zeVf4qZaXdv04y9Ex3Eci0uCOKKmF3CCbR7zKOQ283n MxRwhIfQ44p4buU7YHMj/cgAex7HneZ7niYuNCOpd1xXffsTdv83PbG0jQRAIxTevetEOLK +qajqdppSqqmpZVhRFqVSKMSYKbziOo6oqxjiKIlVVfd8Xi34I p/+hMyAVL2kfiMKECCHOuWVZQl9BEDT/3Gy35jqIURSJ+0dEkkH82lyLWOimZVGtlmZECA0fPnz69OkieK eeZ4ehULwfxyIXjyBwXcojnxrpJx8aedXF5340/k3TwBgxHvN0StN1U6zH5DiOCHvvv//ec84ZOmv2zM2V5U2TLLlhGFVVVcLsWwk9bCIIgqD1Setx01R9S qk49ubblHjMhdDjqFHiYvRYzBEKg0g8HgY88IMobLXWZMsCZOI 2qOYLkvj20NyHIAic1nP6zYpvubBRO1C867q6rluWpWlaJpMRS yE2F0kWfxW5GpFvbD5k2MR/uWOpeEn7QITwCCEREbf0oMhgiAdbxu9bBebih61eK5Khwp6MMf EqcbUQSfnGsD3i4ZaZDGEr12HJ+trYd36qbel4tu1yzglpvPaI 7TTZMPB9N45Dx2GcR7quit42P5NSKr6diJI44ktJs0l56zRf4Z rPibgqNEfrlDgiVKfEcZ0wjn5KwYsntJz7/3O26kDclP1vnibfOD7xGxD1HtqZ4hljhmGIOsBiJFnUwRcVZkQ 1YJFzVxRF/EkcdUvF/zfnQSpe0j4QEwxM02we7hN30jcPkMYtRgL***ZliQVCedOEP0q peILInG6lsLjFbavi+ZZleWHohqEf85DzMIpczxMBbJOaI84jH geUQAQNUZdYbKa5fpnjOFEUGYYhni+qHURRQCkWlyexo5YXJLH 3ll1qWe5xmzS/kDHWslYaRrgpZm+SeGMsHwZ+HIVRHMWBH7iO53shj1vdvojcxb E3R+4t+7zVNaC17YgeivVam+vF/9VvrrZBURQxgiqidYyxoiiimiZCCEIobmWCEIr6Ylsd+395KqT iJe0DCKGYVKPrushri5U/gyAQt3ojhBhjdXV1tm1HUSTCIt/3RUglhrxc100mk4QQER2LFzY0NIil5iilyWRSJPpN08xkMlEUY QSYRRzbYhZpuX6FaZpiQpuqqoYJHddntqvpJoTYcTxKKWPMNE1 VVR3HEc5Np9PifhZN0zDGvu/W1laLi5DjOOl0WnzH13VdBH3CAgAAwzDEotjCF9tEnB9xTsTae xBC0zQhxBBiTTMAQIw5tu0iROrqkpQyy7IpZeIJGFNKGaWste0 3r80kvCxW+2v54FaZ5da2wBgTIbxhGGKwETUt/7RDI25T0nVdrD/ePOtRmF14X6SnWk4SxT/jd+9YKl7SPhD19kSKU5QXN00TISSEKG7yjqJIhOeZTEYYxLbtV ColqnyIxYbEv+LzJubPoKaFYRFCjDHLsqqqqoIg8DwvnU7rmoI REGv6NE9PFjsVu7AsS1S0h4iomgEhZsxRFEWM2eq67rpuOp0Wv VVV1XVdUSqd8yiTSRFC0um0uIlRhPOapokXClEKTYjv+OLnbSJ ulhEaFWnfpgl5NkIEQmzbrmGATEYVom8aJ0DiB8uyCbE0zWht+ +IeemHnZkmJOoioydHNld/FXJFtIo5IqBA1pSbageLFGw8hJCZBNqehxOPi2CmlzRn55sthy +ufVLxE8n+NKG7cVOL4p4VKBMLsTYXSLBNbCImPz2+BINRma5b +2l5+e5PsUEjFSyR/BKl4yXaNVLxE8kdoudBga4pv2ZoU37K1RCpV0qZIxUskfwSpeM l2jVS8RPJHaBL3r9N4AcDGT601xUPrpyaR/BGk4iWSP4JUvGS7RipeIvkjtBxK/bnuhdZbDskirCOsb6n4xg/UT63R7wxB+fmS/DGk4iWSP4JUvGS7RipeIpFI2isEGxCoOvFfnfD1mjq+rMxeXuH k1fM7Hn/+4AFS8RKJRLIjIxUvkUgk7RapeIlEImm3SMVLJBJJu0UqXiKRS NotUvESiUTSbpGKl0gkknaLVLxEIpG0W6TiJRKJpN0iFS+RSCT tFql4iUQiabdIxUskEkm7RSpeIpFI2i1S8RKJRNJukYqXSCSSd otUvEQi+R0AaGk60jQDAGRZxLYtgg1DTwNTcWxsmIphGBhjYBI ALcMkCAEKGxdFsaDe3AjULAQtigllJmEGdnTiGtSzbRtCyBjLZ DK2bRuGYds2AODXe/bbULCrEs/2I0opNhRiqlBXGGMmQDqyRB8wsQiGDCiWmdF002IONEFDfRJg1 w14fUUlD2JCfIRcrb7GMtTAdzECBKQcqrVVP9sKqXiJRPI7gIj ZThgEEWOOrqvpdINpZJgFCTY495mNdV0nhGDEDJPoBv4FxVMIC IYIU5Mwk7gG9QzqAQCE1g3D8DwPAGBZlmmabdV/g4UZ5FTVNaiq6hDgWSh0GQAAYWoSWyeuTlyEKcHQQZqDNMOE1L ItQhm1VINqJrZ0QABGyLXt2EWmi0xmEUoQwwoBqbbqZ1shFS+R SH4HJiCGiQ0D***wTR0AAwINAg0jY1PFBkVtCMMQIWToyGKexT zxqpYLHDZaHhsEmBAYAGKTMEA9oXhKKcbYdV2MseM4AABKaRv2 XwWEuqFuAJtRm0BDSTELGZoOqQ0IM7FlIAogxggwZNjYRKZiKB lNhxbzYKqBqooX8Yxuo3SKqgrArmZaerregjqzEYRtdilqK6Ti JRLJ74DZPkSWaUKEiG1bjsMoAYaecR2KkWExZFkWYwwCWp/M6Ebjq36ueEZMCgEwdRMgA1smcXXiatjRNE1RFF3XNU0zTdMwD Eqp53lt1X8VEGi5zHYtioGWUVP1hp7BEBmIGojqkOiQmABBYFC gUaAFLgWaCiBFmPkIcsduUDQd+jzwzWQ9JB5zOdTSxFQh0gxDJ mokEsmODDAJJQ5jDsZU05RMJqUbGUzM6ppNnAeez9avX48x5jF PNai+F7dcsnwL0VNMCRImAYRC4ogkied5tm0zxjzPo5QCADRNa 8NcPGMsnU5DCFVVxQhwHolcEAAAQtjymRBCAIBnJB2tDrtxTdq Ikutxee4DL0xaUJjatHzuF68+M2XR2irCPZh2QUqBzLT8tupnW yEVL5FIfge6BjUV6LoJIbYswhglFECkI2xkZ6+0HcI5Lysrq62 phYASbLem+G+mTvl22tTvvvt2xoxZ02bM/Gb67K9nzPtm1vfTpk2bPXv20qVLa2pqVFW1LAsh5DhOW/UfY2yapm3bpmlqagYAQ1VVQghuovlpApquirHCQp4BFtmYl/Pdxzv3OP6NT38c9/jd5/Y76O5R76xNkdjSA6ykTYqcqK362VZIxUskkt+B5/gYEmgCh9l+GGRUZenyJR9+PPn6G6478OBen3z2qQHMaVO/Wbp4CaO2RZiJLRNbPxd99uqsosL8DRvWlZdXlJaVl27YtL6iam NVXWVl5ebNmysqKhhjlFLHcTKZjKa1WQKEGmkbqksWfP/555+/9vqbr73+Zun6ddAEFoUWNJCeAWpK1xTdACa2kOVwmuSkvrxOsz nndTkl099J7HHUi5+vmPLCfRcf1fmu0V9usDh3EQfpzRmahEFb 9bOtkIqXSCS/A1MHBFFGLV3VVudkj37l5TPOGrLX3h2OPf6YW267eXNVJbHopo 0VmqKqGQ1D0priZ86Yvmjhj9nZq9asKViVm7cqpyC3sKRoXfnG jRtLS0vz8vIymYyqqmLE1bbttup/7OCajaV/O2tI9+7d9+zQsc9RfVeuyjI0nRKADVVL1aVqK+vralJpRQMYUp upFZuLlr7z4Vd1mmZvXFr63bsdu5wgFH/uoR1u/c/H+RqjRkNkNNSZnuHytupnWyEVL5FItgFjzDAMCKFlWRBCCCHGW Nd1qKpI04TiX3p5dO+j+nTcb7+RDz305rvv5hQWpjUVITRr1qx XR79sAeBg3KBjDTsqtrDlqSZQVd11XQDAzBnTc3NWL1myqLR0f fG69StW5VXVpzdsqi4pKSkvLy8sLDRNEwAgUihteFy+UVdZlNV t3w4XXXDh2xMmvTbu3dqGTF1dnZFJRpa5aW3O7ddd8epLzy1av LTeYNDjvrrBrMydsyQrQ9y4YumGWe8ldu/z2je5X794/1m9dr3x6UkbLM6xGmj1KcxVJhUvkUh2EDKZDIQwDEPGGITQtu0 gCHgUZerqTN1I1tWffMqgw4884va77y7esAHZNnYczCxFUR5++ OGhQ84YdumlKxcvNi2feDxlIgNakFoAIMaYUPzqVSsXL164YUP 5puqadWWbDczqM/rmzZvLy8tXr16dyWR0XRdDoG04bxLWlS2e8UWv7vvOmjGzqj49 +/uFa4pKXNflsb+5NP/0gUcPPOrgbvt2POTQw1cVldcbBNcW6Juyv1+RU5kxg7JF5XPe7 9T1xOc+WTp9zCN/P7zjiBc/32BxV6v3lNoM5SksEzUSiWRHQIgYQmiapsiZ6LpeX1+v1FbzKH AI1BQ1Jy/3hVdeO/KY486+8OJx70/Myi80CMHEyl6dNeGtt/odfujfzxyyMr80De00tHRkE8c3TIwQIoQsXLgwPz8/Ozu7pqYmo4NkRmNeqAGsaVp1dXVBQYFlWWJSjaZpbZiL9xrWKe tWnnLcUcOuvOLUsy/oeXjfa26+raqqJlO7sXDZ97277TH7s/FPPHx/j/0PmPzNPNXheUu++9cNl/Q+9vhVBUUcbl63cEpiz4Pf/PyHCU8/dEKPjiOeeqtc5yiVtNQMsrmGwrbqZ1shFS+RSLaBuEmVMabrum macRxbllVUVHTOaaf2Par3yiULeRQTi9Y0ZNZtrrr5rruP6H/sRVdeZRASc64qaaRptRvLBhzd5+F/P1+woRI4IaAeoLaimgAAxtj8+fNzcnIKCgqSyaQOSUYH1PE1gJ PJZElJyeLFi3Vdt22bEGKaJiGkrY4Lbspb+NX4Lh12PuLwQyd8 MiWrYN36yhrfD41U1bLZUw/smHj/lX9//tHEU0497YyLry5rMJbN/eLeW6448pjjiso21q5dvOrb9zv3PO6z7/OnvP7cWUf2fOCFSfU2DzF0TV3HfoPWZmMGbYVUvEQi2Qa6rou7 TCmlomiMYRjFxcVnDz6lz8EHTv3i01SygTl2XVoFtjt93vddDz z4bxdfqiFUn0zFUeBRmtxcMXjg8VfceOfywjIccg17GUg0k0Bq IUS+++67lStXrl+/XtM0TCyEqRPEth8FQVBfX5+VlaUoiihmYJqm67ptdVz1OXOeve PyE3of+M7b45KmDT2uEscExIOpzXlLbrjwtItOOXrkHTed8/cLTzjvqk1m+NbY508+sU+Pnl1nzPo2d9mPb740asBJZ6zOKx3z 7H/6HnLogw8/m1ZYaLs2IqZBENzufCgVL5FItoHnebquG4aBEFJVVUxRD8PwP0 8+vl+HPQYNPO7VV8a8MfbN9z/85J1JH95x7/1HHT/w3Esua9C0GTNnP/efUR9OmPD6i8+fdsKA58e+X1KdMd0gZVgKotQObD/IZNQffvghNzd38+bNmUxGUfWMoqkmMhCtq6urqKjIy8sT3yEwx qIPbUXpD5/fdv4Jl519KoLmxnq9WgFpaCHMbKPeVyqz535511XnnXP6yXvts 19i166JXbvusVvi6D49B516YmKnxGaWm6MAACAASURBVB6JxCH d93n48Wcra9U3Xnjx/DPOHPWfNyo2KzYiNiKqAmwmc/ESiWRHgBCiKIqqqgghy7Jc1zUMo7S09NZrhnfcKbFPh92P6t0n sVNiz06dux586J5duj075rWFq7IramquGn7NXh326LL33gfs2+ nqSy5aXbo5ibw0DVQS6MRFlmP7gaJoX3zxxdSpU+fMmTNnzpyZ s+bMmDl72ozZM+bMnzFjxsKFC5cuXSpuOhWWb8Ph1rA6e9zD1x/Zo9Onn3y0tiqNIr4wa82bY98KUQOqKm4oXvrQDRfvt2di1906P P7a5I/nrpo+Z+qq1Utqa8tmzZoye/73X30zraasPLJYWVntzJkLNhaXWjqwsMuIl6lLWm12E26bIRUv kUi2gaqqtm2LWo+maVZXVz///PMdO3bcb4/dRt56S3lpcboh5Qe+BkkKYtPxgOubjqdjrKg6s4hSX89tyza0j BVlrKgBezTkBvVSqkFsB0IskuziXlMTIEKZgSiyHNM0KaWpVMr 3fTHYK6ZOttVx8VQhxxW3XnXx7rvtkujYLbHLbnvu13P0y2Mmv Pbs4fskDuuYOLPv/s88eu+XX31T7/BNkANLw0TT9TpKVR0iSC3bBA6AEHrpNOK2hxVdV6BnR0gzIqfN aum0FVLxEolkGziOk06ngyDQNM227R9//PHwww8/6KCDrrzyykmTJtXW1lJKhX8tyxJlBnYINE1zHGf27NnDhw8//vjj+/bte/PNN69cuXLy5MkXXXTRgAEDnnvuubKyMl3XFUVp2yn5fwlS8RKJ ZBs4jiPGOZPJpGEY5eXl48ePnzVrllipIwxDQohY/UO4/q/u728llUoFQSBu4xLThFKplOu6YRg21ibD2HVd27ZFmuiv7u8fR SpeIpFsA9M0IYSifoB4JJ1OR1Hk+75I06dSKQCA4zhinaa/tre/HQghIUTMtXddV1zJEEJ1dXWEEM/zIISiKo6u6+l0+q/u7x9FKl4ikWwDTdNE0QLHcRhjIqRVVTWTySiKYpomY0zMW/9f9s47vsrqfvxpv7XWn1URrYiKs1YtrYMqqGxCCIQhIo5qHbTi qlUrFlBUEBSMzDDDkLAJUzaEEBJCAmTe7J2bcdez916f3x8H0q gghoIaPO/X58Xryc3DzXMz3s/nfs45n4OK9T/29X5fVFVFVy6KIlrSJcuyYRhobynUnh5l8Wgo4se+3v8VrHgMB nMaZFmWZRnNjkfNamzbDofDSJG6rqMGvwRBUBTVjmrxDMO0vP9 AL0TTNIIgLMsSBAH1aRAEobm5ORQKtaPXdSaw4jEYzGkQRVFRF EmSJEkiSRKVNWRZRiV49AjDMBzHiaLYjmrWANAibjSlB+XvJEm iqTvo3qac4se92v8drHgMBnMaUIMatAGTKIpo9yVBEFDyi9SPs mBBEAiC+LGv9/sSDodpmkbHaPUsz/NoBa8gCDzPMwwjSRK6n0UikR/1Ys8DWPEYDOY06LqO8nTUK8YwjHA4jDJ6ZH+09hW5vh3V4iVJQ tv4ob2fUBNNQRDQtuDo5TAME4lEGIY5j7tN/VhgxWMwGMxFiyQyAk8xsh2/eGNeMxypMjJrzbwgVjwGg8G0f7DiMRgM5qIFKx6DwWAuWrDiMR gM5qIFKx6DwWAuWrDiMRgM5qIFKx6DwWAuWrDiMRgM5qKFFwWW 50jZiV+8oTBoHq0Wj9UpvpD7yrhPb/1zH6x4DAaDacdgxWMwGMxFC1Y8BoPBXLRgxWMwGMxFC1Y8BoPB XLRgxWMwGMxFC1Y8BoPBXLScRfGfLkqiFZMWRV7ksOIx***mfS HKUovifSHrWJ1yvF4tDDpY8RgMBtPuwYrHYDCYixaseAwGg7lo OYvipy1ciRWPwWAw7RSseAwGg7lowYrHYDCYi5bvq3g8Lx6DwW DaHWdR/NQFXyLFcwKLFY/B/O+IvCTyksgLIi/IJ4NrCfS4IEiCIAm8IvCKztI6S2scrXG0wnEK13KyIH/9GdBnRaF9ByOqjKiyotISvCC1xI/902t/fF/F40INBnNewIrHiv8hOYviP5m/AisegzmPIImfKVrLnRcUXlC+fQM4dZNoHa2foX2DFX9+wYrHYH 5QsOK/G6z488v3UjwjSVjxGMx54dtCRypHwQrqaaP1OWeK1lpsv4EVf3 7BisdgflCw4rHif0jOovgpCcux4jGY8wgquaC/IFaUWEFlRJURTEpsHXpLEJJNSDYpmaRkkpLOiPpJ7yMDCiorqI yoM6fOR4ps74EVf77AisdgflCw4rHif0jOPmkSbwmCwZxHZJ5h iJChq6KkRGiOVSzJhgZGDStuWHEjihtRXFJ2SNmhZIuSrZAKTa JH2cBaUBviRMML0CwnqShYSWUllZY1WrLQ+ayktevgZD3CCKYL YYpVTScQoWRFk2T1QiteURRBEDiO43me53mGYRiG4XmeoijP88 LhMMMwqqqGw2FRFDVNO9PzsCwrCIIkSaIo8jzPsizLshzH0TTN 87xlWZFIRNM0URR1XY9EIgzD0DQtCIKmabIsow9FUZQkiSAIRV E4jkNfFAACgUBbXxdWPAbzg2JpMkdFBJ5lOYGT1BAjHT6el7h+ ++TZiyfPXjxl9uIpsxdPnbVo6qxF02YtmDZrwScJy6fM+3L8jJ mzlyUtSkpet2Xnoi+Tlq1cnbgiKXFF0pIVSUtWJC36ctWiFesW frlu4ZfrlqxY1a5jzoIliV+uTk0/Ut8U1G2P5iWOFymavdCKV1VVEASWZSVJMgxD13VJknieF0XRMA ye52VZNgwDnUOS5JmeRzyFIAjoboEeRNK3LIthGKRvVVVVVTVN U9d1pHKSJDmOU1VV0zSO40RR9DzPNE2O41iW5Xke3QzaBFY8Bv ODooiMyJEMQ9G8oLoQ4JTlm3ZNmr10Z1bJzqySndlFu48W7c4q 3JdZuO9o3r6jeZszCrdmFn22ZO3+7EJCNjUPFMuyHc/xXMdzLc+1PNABdA80AA3A8tp32ACMqOb5SgRFlzQTKd4w7Qute FEUZVlWFAWZFMkUmbe5uZkkyUgkQlEU0jEy+GmRJEkQBI7j0Bu CFuPruk5RFE3TFEUhgyPpEwSBbE5RFMuyrusahlFfX49cX1dXh x5E/8VxnDa/rrPOqMGKx2DOIzQR0GROkgRGECXLCXDK0o07lm9LqWasasaqZo 1a2qhlND+l+WnZT8vVvFvFOTOWrj94olgHMABsAA/gYlW84TjFFTWzExb6m0NBgqY4kSBpVTMutOJJkkSpuiRJsizru o7yegBg***ATNOkaVrXdZRTn+l5eJ7nOI5hGHQOuhkgX7fcRXR db3mcYZiW9wfolnDo0KGxY8eWlJRUVla++eab27ZtQ3cahmG+4 9ZyJrDiMZgfFjZsG6IkCSTLEaJWR4pzV29JPpxXrwCKRhkaFWi WICjZQcluNiBowaeL1+zLKjAAeEVXdQXABbBPBTgAJoABYEC7x wLILy5/d/z7EZqTNFPWrVCYiBDUhVY8kjvLsqjmrmma3+9PT08/ePDgzp07GxoaOI6jKAql+d9Ri2+dv7euyDc0NLAsqyiKJEmRSA S9S0BmR+pnGAZ5fP78+ZdffnlqampeXl6nTp3i4+MVRYlEIoqi UBTV1tf1fRUvygJWPAbzv6PJjCrRqFBDyUZYtmetTN5wKKdasF HU8XadYPs5u5HTGzm9jBJrBPWLFcnpBRWnUnj34lb8sTzf08+9 UONvYgRZVA1F1XXDutCK53keFWFIkkSldpIkKysrm5ubi4uLA4 GAruu6rvM8TxCELMvf8VSSJCmKgmyOnlkQBABwHIdlWVmWUVJP 0zSqyyO5oy9qmuaXX3556aWXpqSkVFdX//a3v124cKHrujRNm6Z5Dq/r7JMmseIxmPOIJtIcGWAYStYNUjEoE2av3rrxcH4p65WyXinrV NBOBWNW02oNLdfQcjljldFmwtptqbnFkuNpjiNJgiZz4KjgqK6 ruo5hu5bheZoHmgeuY7XrsAFKKmtffu2fFCeqphMk6AhBNTUHL 7Tim5ub0UAryqlN06QoyufzzZs3b8qUKdOmTcvIyBBFEQ172rb 9HU+FqjGCIJAkSRAEGsKtr6/Pzc3NzMxEWkf3EsMw0G3ANE305JIkLV++/JJLLtm7d29JSUmHDh0SEhLQDJ9IJMJxXFtfF1Y8BvODghSvqrL lQT3B+Fl5xvINyekFRZRdRNlFlFlKmKWkVkFIlYRQSQiVnOMLK ws37DiYUyTarg0A4AJYp7J2A8D2wLUBTADz5GfbcUia5iurGjP 2tRDJyLoViFCm5ZiWc6EVj+YsosxaluXKyspJkybdcsstV199d YcOHW699db58+ejwguaT3mm5+F5Hp1GkmRjY2NDQwNBEMjpwWC wuro6EAgsW7Zs5MiR99133xNPPJGdnV1WVobuK2jEddmyZZddd llmZmZBQUHnzp1nz55NkqTneYFA4BwS+bMVahJWUbJD8bIgyoL IyPzJOKV4hReU/+0bi8G0DUY6Gbwo8OJ/W/K2NOFiRYGRBFIRCEUgFEEQmdMGL3K8yLESx0ocJXOUzJEKRypt zpLaiqIQEhcQmbApqxwjsqy5YHnyltTc3LDi4yCHdY/TdrEIvrBRFjCCMpSEvTIC5q3ckp5bZKHxSJAckCxQLTAt8Czww PXA8sC0wLS8do4FkFNYMmbsax***wSZEWRRUjhePG+K51WBV1G jt5NN3wROEDiKDvMCbZiiKFE021zgy7qxS4e7/9hlwoQJc+fOvfLKKxctWoRKNKqqyrJMEIRt24ZhNDQ0uK6LcnB RFF1FlylWIplwfePMqZ+9/NwLfJhUGV6IUK6i82FSiFD/efPtrrffeWnUL6769WVDhgyZMmWK3++vr68vLS0tKSlJSkq67L LLUlNTKyoqOnbsOH/+fHSTQMO/bQUrHtPOaO+Kl+WIxAUEOoQUz3HWwhWbNh/MKeVdHweZYa3chEN1VBnt+vxyfm2koMksbDZnLt1w6HiB6ZlI8 R4oWPHnyBkUb5iKKLEMG5IVpjlYPTdh+g03XbV7b7JlWdu3b7/pppvWr1+vKApBEPHx8Z06daqrq6uurqYoimGYbdu29e/f/5VXXuF5/u9//dvD93XbmbyFbAw8cv9fOl72W395lUyx29ZtjO3T/5XnXwLTYYMRqinYXFu3e/O2vn37dunSJSoq6vbbb1+yZAnP8ytXroyKijpw4EBxcfGvf/3rRYsWSZKEBngvwHArVjzmJ8a3Fd860IPoBFIRSEVgvzXN7HQt fH9AJJbhSIZhFNlgGI0RnPnLN2/YfzzTz6Q3MG/NW/bo316Jfum1v/5r4otv/mfW0jVHQ15m0J26dMv+E0UqeC6YrisDaC6YLjg2eDZ4nueB64F tgY0VfzaQ3L+leF6gWY7keNK0FEGKrNuwvOO1lw1/bOBLL700YsSIK664YtasWRRFiaI4ffr0m266qaioiKIox3F4np 81a9b999//wgsvsCw75vkXfvuby5YsWEgEQ4881L3TNdeWFPosTV88f0Fs9M C4QbG1lVWqKJGhMB0hwIP09PSYmJg//OEP69evr6ur43k+Pj7++uuvz87O9vv9V1xxRVJSEqrso/k8bX25WPGYdkZ7Vzwn0EjxsqQzjMaK7vzlm9fsPno8IPo92JRX fuX9j0b9pkPUJR1GPPfyiXJ/dgSywjBt2daU3BIdwPEMyxI8T8WKP0fOoHhVEyk6LMksw0YIqs G0hU+nT7r3/jujo6PHjx/fq1evJ554YvPmzbt27XrkkUeioqImTJiwatWq1NTU/fv3Dx06NCoq6tZbb125cuWf7r7n/6KiXvrb819Mn9Hxyqv+Lypq/LvjDuzZ+8RjIy+75NddOt+wZmVSeuqh40eztiZvevOfb3bv3r1 Lly7du3dPSUnZuXPnnj17Xn755R49etTU1NTV1V166aULFixA9 X2apr9jsuaZwIrHtDO+W/EIVmwVX2vJq/LCyTfp4smQFO5rTVIu9PXTIk/xEsVKvGSTrEmJ8MXyLUt2Zu6rIb6qDBzl9JGTPo26unPU5ddOX 5l8opHaFYIdAXgvcfuu/GoVwHY811DBtcC1wPE8DzwPXPBc8E4uHmrn/BiKFwRBUBSJZWnTUgSR9jdUu57R2FSdcnDXoUOHysrKJkyYcNN NN9177719+/a99tprb7zxxo4dO/7lL3/p1atX7969O3Xq1KFDh6uuuuqee+7p1KnTJZdccs8993Tr1u3KK 6/s3Llz165d77vvvs6dO//ud7+74oorHnjgge7du/fr169fv3733Xff9OnTp02bduuttz7wwAM9e/YcMGDAdddd9/rrrwcCgYKCgmuuuWbWrFk8z7uuixrdtPXlYsVj2hkXgeJpQaY5 mZdsgjFoCT5fumne5tR9NcSa3Iq1hZWLj+S+O23mgpUbd5wo2Z lTurqMW10mvDFn3fYT5SqA44JrqODZWPHnyBkUHw4HDUOTFU6S Wd2QKDpUW1cmyTRa8VReXj5nzpwXX3xxzJgxc+bM2b9//xtvvPHvf/97zJgxL7300meffXbw4MHVq1ePHTs2ISEBzcYZNWrUsWPHsrKy Ro8e/d57773zzjv79+9fuHDha6+9Nnbs2Oeee27GjBloZk5FRcXbb7/997///dVXXx07duyrr75aWVkZDoebmpo++OCDtLQ0tOD2O6bxfAdY8Zh 2BhI33ypa8+3Cy6l2u9+OkztpINcr7Mm48K+AE0We40VRtMOME ZZhcuLWaRvTFx+rX12vzikiEmukGccbl5Syc7L8a6qk2YXMHB/7/Ox1m3JrJQDXA8+wwD7VqcAF1wM06GqBZYHletCu4wdS/Em5/1fxPM86jhUMNgcCTR5YaPTVsjVZlkmSBABN06qqqrZu3ZqcnDx//nxd1xsbG0OhkCRJqLcBmrSumoZqGjTPSZraHA6ZrqPbVnM4JGk qyTIEQ2uWyctSiCRCJJGdc2Lnzp01NTW6rguCEAwGhVNz5NFap 0AggFZLkSTJMAw6rU1gxWPaGe1d8aLIS5LAC1KL4j9esmXKukN fFgSnZ9bE5wUWlLPzisgFPjKxkJiT5UeKf2HO+q0FfqR4Vzex4 s+dMyheEDiWpXmeNU2dZiJNzfWGqTAsgVaiSpLU2NgIAGjWPGp Ew3Gc53ktPYeR6FlRoDi2MRhwACiODZEEzXO8LIUpUrNMmuciN CUoMiPwkqYyAo/aFMuyHAqFXNdFrcpQ/2GO43RdJ0kSTatH3m/z79tZFU9KNsXLvCBhxWN+CvDi6QPlUIam8yzH04wmyaooeaohE 4wjqjonhpsDweaAKEuyqTOSQIgng5IlTtZYSSU5kSBZ1OkJNRh BfUuEU03AzwsqF3RUWmRIWdQIRicNmLx8539WH56TQ04rECYVK 5N89vtF9vs+b5LPm5LvTc3nFxWzz89etyW/XgQwbADTA+dU84KTikdLoSyj/SveBsjIznntzbcJhtdtjxWVUJg4r23IpDNEa7hW0Ta+ViT8HnG hwVk8pp1xJsWjZq0MRYu8oIqSIogcRQsRyhYULhApycnfmrwpY e68hYsX7U1NqayvFUyDURVSEglRYESFkzVBNWTFaGkj1XJwzqt OTovKBXUhzFMRTTEpzgxI5sfLdoxfkz79SNOkbGJcDjPuuPzvE/K/j2vjjmsTs7RxaY3T0mtHTV26/lgl77qa6YIF4IBneZ7leY7nuJ7peabn6Z6pe6bjeu06DMc5lud 7d/z7xeVVNC+JqnGes3is+K/1i5+/mlZcWlBEScGKx/wUaK311kUb3TTICEGEI7ooa4KkUpxKcVqEgbr6wM5dB+fM3TT9 01XTJi+a8tHKuV/s3LShsOBEnb+W4klGlUIC00QzQY6nFFU41UYK7QiB3hx8d9upN qHSDRrTKBIBS9F4Xm9i3anLd767dN/U/ZUTUv1vpze/fZj812HyX4fZt9O49w5ys04w8zLr/z4zaXdRowSgO2CbFnioZAO2B/apLB5NoLRb9Sdrp6HZkHksh+YlTlJJVlA1g6SYC6/476P+s9MuFc+IqiSrWPGYnwJnUjwvChzDChxvyqpAMQrJgmZpE ebAosWr3no7/vkXlk8cv2tRwqaFCYumfzJj8ocLF8xJ3rzxWF52IxlmDYUzzIg oNTMs6jOFCjUtzWDPof3TmZDJepMPKHRYEySO05o574u1Kf/4YuOHO4v/vbfq9ZS61w8EXj0QePVA5PX9xFt7iPG7Kt7bcGT0Rwlbc6olVJ uxnYtY8bKu2wDNYZIVFUaQm0KE7XiCKGPFnxtnL9RgxWN+grRW PAqSpmRRkgRRF2UxTDmsBJLuO5S5e9jwzdED1w0atOmZp3f989 XdE9/7asoHm6ZPWfbJhwumT0lanJB26EAoEnQ9MF2Pk2TU1Y8kSbTZJ irHn8NWDGeCpZpMjVUllqc4llEYCTbsPvr61MWfb8uY+lXWlB3 Hp+w4/slXxz/dfjx+y7H4Lce++Cr/47UZb8xYmuKrUwFsANMzDFe3wLFa9SHzXAAHwPnxHf2/h6Tb5dV1dY0BRpCDBG2Y9nnd2O87hd56SuXJgdm2caZC4pniQn O2TpPzkijZwYrH/NT4tuIZjlVlhaFolRdVigNJF4Nk4mczdwyJ2zvise0jRyaNGL5 01IiV/3hx48R3N02fsmH25yvmxi+dN3Np4sLkzRszj2bVNzULiuq6Ltq UB81qEAQBpfPn7cqZgG3wusJzJMsyCq9CRkH9tBU7Rv7n87gJs wZPnDt44twhE+YOGz/38XFzHh83Z/T7ix8fv2DEPz9auHn/iZKSxmCwvrnOH6iv9tdW+/2Vfn+l319T76+v8/tr/f5af42/fUdTKFTbGCyrqiVZQTUdguF5QfrhCjU/N8VPnruSlGxci8f81Pi24nlZUhSFjhC2pKoU57CSGqaXTv0it0//nN790nv33dO775boAeuGxa148vH5zz21duK766d/sm7urCXxn8dP/nhu/Mwtm7aeOJYTCAQoimqZpoYGXc/jlTMiyyuCJEkCr/CCKghWY0Q8kld5uKjmcFHN4eKqw8XlWb7SnIKiotz8otz8AyXs gRJ2a3rR0TJ/drHveFFeavahA5kpmb4TmYX5mQW+zALfsTxf3glf8bHC4mOFx/J87ToOpB3Jzi0sLq/iJJWXNYoTBVHWdPN8NxP+HnJHDcvaOWdR/MdzvkSTJvGMGsxPitMqXlVVnmbAdIQQKQUIUMz05B25ffrn9ul/bOCgI3HDdg+NWz0kdsnIYfOfe2rG356a8do/5rw/fvHnM5bOnbMkYUHC3PlzZs3duHHjkSNHmpqaWjZrRpNqzteVcz JPchTP85pqSbJBUYpkAqWAAP8NDcAGAMcDxwt6QAGwABIAb5sG OAaYJlgymDK4sgeyB7oDjgmgA+igO+07bAALIEjQnKQSDC8oOs sJDMtjxZ8bZ1H8h7OXEKJGCQLeuxVzgdBJTSc1mhEFywlYSr3C RTyjjqcJSeR4UeBkgdUYXouIVqNqNaqWIBCnDVEkJYmSZVqWaV E***5M0wGSbNr+5r/2PPts8vBhO2NiMgZF+2Kii/v3K+jdK7t379TomF2Pjf7qH//a/uGMDTOXLZm3av7M5fNmfLFm6YoT6VkiwYIOFq/LEVElZSHEKqRo0JJBSzrNahSjM5TJtXlNOdogFO3uht4lhEIh2 7Z/7MYB/yto4zoAMAwDAGzbRo94AB6AqhkegG5Y3te38bMtA8AFzwFwGZo EcC3LAgCKoiKRSMsWHOdxLOTnxlkUP2nWYlLSKUHgRQ4rHnMhs BjTE1yOVwhJqWAjpVSQBItyTUqRBVGWBFXiDU40SNlp1p1m3ZE k6rQhy7SiMKrKqiqrKIwokjwfYdkQFPqsVaty3vrXgWHD0qL75 fTtfbxH98P3/vlYnz6p0THb4h5b/eSLia/8e/6E6XNmLFkwa8WqJcsWzpyzcOa87es3+4776EbCZHVQPFBdUBxX 0G1ONRjOYDiDpbHiWzAMQ9d1JG6016iqqgCAFG/ZriTL6BgAkMdN0/Rc23EsVZHQlk88z7quCwAsywYCAbTrKdru7gL86v0s+L6KZ3kG Kx5zISAoUpBERRM9sBubandsS96wdtnmtcu3rFuxZd2KrWtXbF 2zasvaVVvWrN20bvWmtevXbNh0pli7cfO65C3rN21dl7xl7cbN q9cnr1q3ceeuPTt3bP8qKWndJ5MXj3l+6ci4bU8MPfbck/uiex2I6XMgtu+uQb02D+67eeTgfS8+deCtsWtnTFs2Y9riT6cs +OzTxHmzt21KzivIbYpEmjkmwLPNIhOQ2KDMhFWONETWaLN6Ll bFtyTmKJdHGIahaRqc0rrjOGjsGgB0XW85E41vo2P0VBzHlZeX o3ER1KX9Qvzu/Rw4u+Ip2cCKx1w4dNNgODYQapRkvqzctzBh1szPJ29IWpKYEJ+ YEL90XvzSubMT581OnDtvccKcxfPmz12w+Dti3sIlCYsSUcxbu GTugsWfx8+cNTN+aXz8pumf7v74gz3/HLvjqRFfDeyzd0DPlEF9U+MG7Ivrtym2z5rB/daPiFn99Ihpr/5j4ScfbVg4Lylh3qxPP5kxberixEXJ27dXhwLNHENbKu+ZtCWH FLZZpEJCm3fhuVgVr6qqaZoAoCiKZVnoGGXrLaJHeT3aBRsJHb VhQTcGTdOQ9D3PoygqLS3N5/M1NDSEQiGUzmPOAZzFY35kRDFi67QbrIdAE+TklM5JODx+QsbE 91M/fj9lyvt7pr6/Z+r7+6dMSvtoUtYHk7I+mLR7ymenjZ0fT9v58bRdkz/dNflT9Ag6Xj9v5upZMzbM+HTX9GmHPpty5IPxh17/R+ozT+wePOBQTN8jg/pkx/bMGtgjc8BDGf27pfd7YE3ckKRnntr2+it7PvpgV/xnyTNnJMZ/Wl0TQwAAIABJREFU+sWMqRu2rDt4PKMi0hQxJEKXAhIbkFhKbX N2ebEqHgBEUfQ8D1VaWpJ3W5PAs8CzwTHR2izXMcCDUCTsAei2 5wAYDjgAhguq5aE6PkEQGzduPHz4cEVFBeq/iDk3zqL4j+Yk4lo85oLC8yFNCh9JXv3x31+aNnz4/OEjlz8xetHwEfOfHDnv6ZEz/zpy5l9Hznl61MLRo5Y/Pmr546O+ePpvp434p547bbz97JP/eem5T/7+4oznnokfNXzBsMFrHhuyd9TwfUNjUgf2OdT/kYwB3bNjHj4e++jxwY9kD+qxedTjC4cPXfDYsBVj/75u0oR1M6Z9OSd+6eKE2fNnrt+15VhlcT1HBCS2WWTCqsBbbd6 F5yJWPALJXdM013VVVQXP8lyTpiJPj348KioqKirq7bfeaPA3e AC6YaimQzLMuuQtW7ZvP1HgM72TJR2GYZYvX753797y8vJwOHw eG0j83DjbpMm5SyOCSgmCpIhY8ZgLgRSuArq55ssV6x8btb/v0PzBT5bEjc7uHZsaO3j30MHbHovd9ljsvrjYw4Ni8/sOzu87OHtg39PGsZh+x2L6ZQ/smxXdBwV6vHjEwKz+PQ48fN/h3g/nxsUWjngsY0D0rgcfzogektZv0MG+A1P7xRyKHpw+aOjh2CFpg wYX94/LeWTAkT6DDg59fMtjo1c+9det/5l4JGllqMjHNjToHO/IhimoKsFrEc4g2/56L1LFI6cjv6PaC0rnDZ5Q6ODzT4388x9u3bw+aXHCnNtuvWn9 2nWqrqma1RgiRv/1xcs7Xh/1i0u7Pthz+/7DqLAjiuLixYt3795dUVERiUSw4s+Zs61uTViOFK9oMlY85kIA asQhGooXLtj0xFMHB4xIe2TQ0Z4xOf2HpsQM2jlk0JbhMVuGx+ wZHHNoYExu70G5vQcdHdD7tNHi9288ntH7L1n9e2TH9Do6oPfh Pj3T+/bLHBhzIm5Eap+Baf0GpQ8ckhETlzZwyMH+g/b17b+nd9/8XjHZD/XJ7BubNmL0+iEj5gwasvLVNw4tW+qRhEnTKsMqtKDQgkFLDquA 0OYtGi5WxTMM8+GHHz744IMZGRlI8VlZWfn5+XWl+a+/9NcH/vj7ppoycDTXUOOGxPzt2edEWfIA9qUe7tipy+HsvMamyGPPvHh 71262bSuKIsvywoULkeLD4fCF+MX7mXC2NmQLviREjUTLDrDiM RcAlW8AtqF8zcoVI0du6zs4I3ZkWr9Bh/vH7o6L3TIidv3jg9Y/Pmj78EH7hgw6OiD26IDYQ7F9ThuHh/RLG9wX/Zs6qPeB6EdTBvZMHdQ7b3Cfo/26Z/R+6NiAPscGRWcOiD7cr3/GgEGp/WLSBsQeihlyKGbIgYGxBwbGpsYOThsSl9s75tgj/bNihh0a9dTKmCFfDIrdOXkKnXMCKNJiGI3l0P5/Bi1ZtGTRP7sZNa2nwaBjNAVe1/Xdu3dfc801a9ascV3X87zXX3998uTJSYvn9rj3rpeff9rVBIUn qVDzo4889OrYV1ie8wC27dp7yf/rcKyglODV96fG33DHH3VdtyyLoqjExMS9e/f6fD6***5jv/6fG2dR/KeLklAtXpQFrHjMhUBi6vRQZemqFeueeWbPoMcyh4w63D/2yMC4HbEDk4cOXDMies2I6C1x0bsHRWf0HZjRd2DKwJ6njUOxf Q7G9DoY06tF94di+6QO6p3eq1tW/x65sX3zYqOPRvdL79vvSPTAE3Ejch8bnRETt6d3/719BhwaPPTI8JGHBg/Z069/8cBhOb0G7u3ee/eQ4SXvf2Tt2w81tRBoxopHoEKKoiit5zi2rHi6/PLL//KXv7z33nsTJ07s3r37Lbfc8mDX3197+a/+8benVi9bOO3jiY88+MCv/i+q2/0PzIj/fM7cubHDHov6xaUxw0ZNnj6rV8ywBx7tbxiGZVk0TWPFnxfOov jpS1bTikmLIlY85gIRNoiIFS4tOnJww5cnVi8rWrUif9mC4qTE vPWJJzYmZicnZicnntiwrHDtsvJVy8pXLcvasO60cWTt6ow1q9 JXJ2WsWXV0/drsjesz1605vGrloXWrMjdvyNu0MW/l8uyZMw6//17KKy/te/rx5P6P7h/YOz2uX2Zcr8ODuh8a+GDa4O5Hhj26atSIhNGP7Xl/nHAkFTgCeFKhg5LKkSodVrmQJqAgFIFQBKrtJeL2rnjP81pq7i 3TIiVJKi4uLikpiYqKuuGGGx544IHbbrute/fuDz300C03XHftVZc/8Oc//uZXv7ix07VvvfHqvr07+/Tqfcedv7/8tx3+eO8D77w3oUfPPr/rfFPX+x/MKyozTdO27W8o/vy2CfpZcXbFo3nxuFCDuUBETJIFRhaazFAdEE0QbIS6cmiqgWA lhCshUgmRSghVQ3M1NFRDQzWEAqcPMgIUAWQEwkEIBYAIAxGGc NAONAAVhuZGMetI+fIlhya8u+3Z0esH9dsxZMC+6F4Hoh9Ji+m RMfjh9Nge+wfcv6t314x33wpuXAPlPgj65eY6PdKksWGGJ7DiE Whu+8mhVMNwXZfn+U8++eTqq6++/PLL4+LiKIoCAJ7n0Tx3XeJOTpr0bPBsiaPBs8D1TNsyTNcBcAA YQUY7FfKKgVZIIcXv2bPH5/O17HyNOQfOovjPFq8iJZ3gODxpEnOBCIlsROYjCs3qvOTIgsrR YkiUCVmlZJVSFEqROVnhZFmUFF5SZFLXTxsRVWUsi7GskCw3C0 JYUWjTpE1TEGWd5aiqqvwN65PHvb3s8aFrhvTfMTR639D+Bx+L 2f94zObBPZcM7J44rO+mMU/snvhGdfExgQl4lshzZDDSSHAUa0iUqYVUKaRKYVUIqwKhcigou c3qae+Kb6m8tyxfysnJueuuu+6666577rln9erVpmnKsvz1VjS AFkOxLIs+RAuj0L/oboHMjtZAua7LMExrxeOlT+fM2WvxhKgRHMcJLFY85kJAaVJY4 oIiERaIEB+OMCFKCApSBIUoRkSBFkRaEDheZHhRCCvKaaOepoO SFFaURo7zMww6D***x4tFx46vX7Ag4Z9vzPnrk8tHDdv8+JCU0 cO29Ou+PfqRbbE9tw3ts/OFkXmT35W3fAmF***YpsL1HNXkuYYHFsnTTUyY0BWseARSPMrf ka9DodDs2bNTUlICgUBrgwOALMstnQkikQg6aGpqalG/oijeqWo+wzAtxX2s+PPF98riSZ7HWTzmAgGMA6SpC4Yo6UFZIA 2V92zBMjlelFlRpWWV1iRGYzgrJFkhydJY4rRh8JSnCp4qWCLj KjwYsinQdHM9syG54O13NgyMSX605+EB/XIG9D3R+9HjvR7JHTzoq/79VsUN3Tfxo8a0oxZnCC6EZScssppjyabZEArVN4dESTN0V6Al mVM0RtEZNMrKWTRn07RN0219ve1d8YZheKekjDLulgk2SNCe5z mOY1kWOs0DkBUNdSJDzSZd1zVNEw3YypKAGpABuKeakQEAsCyb mJi4e/fuwsJCrPj/he9bi8fDrZgLhNosmQHZEE1ZMQMSH1YlQleaaEoQZZWXdVbVWU PhDE5wIooTURyDp04bKhPROVKhwxIZNAXaEJlwfVVBVvrKZ55d Hzt4y5C4zNFP5gwfmvFI98weDxbFDDjSt3fNm/90NmyE4goIUiopBwQpJNm8pREcQ/K8atuyYZMUR1OCrblY8YiWRNs7JXpZllGNhWEYZHxUr3ccxzAM 07I8ANfzHBdUTbNst+X2AACea5umbtum69oAruvap1X8hfjF+5 lwtkLNwrVo71a8JchPFpqmdV1Hsw4URUH6QItHRFGkKIphGLS1 BcMwuq7LFwWSIkuKLLQKkmUEQUBbgqgUB4Lq8cqSKZ8f7dHPFz 0svXdM2uCR2wbFffXXv82JGxr/1JPbZ3xemXbYphlDUQVBEmSDVawwe8FXUbZ/xbuuY9mWAR7oqoWaBZu64zlg6g544DkugO3YOoDlOrpmeg6A6h IO8I4HogweGA5oli3bjoIyeI6vB+BdCxwTDMc2XYekqUVLFu/as7uwyMeybEunSZH/b8i8IOPk/qzIDMMThGx+vmhDYTNkV1vHaq2CZnjlvU9uvbcnVnw7gGEYTdM oiuJ5XlEUJA6KogKBAEmS4XA4EAgQBBEMBpuamtDBRUAgFAyEg k2tIkhEGIYJNjZxBB2ubaBqG6naxmXTZpbGjjzec2BKj76pg0a s7dVv7fCRX/3zzeavthvFJUCQoKgCw4bDBMVKvObwmnOhf17tXfGWZaiK5Lk2 eGCbnuu4ruOe7ArvgWVa4HoAtqHLSPEOgGoYSPEkzTgeeGCQTA BtLS4Jkmu7ALwoNlERxjHBBs8BYDh2ydLE3Xv3FBb5GOa/Tfmx4tsMVnx7B81OQ/VKlK1zHFdbW7t06dItW7Zs375948aNmzdv3rJlS3Jy8uaLhU1b Nm/asnljq0jevGn3zl3r167buWXbzg2bd61NPrBp++wPpqwYFLNiU EzS44+tevbZHePfFdJToaYSiDCIHMiSLQoyywucKAu6LOgid8E Lj+1d8QC255oANnK654BluJ4DmmKCB67tgQemoemaAmAD2KYHN oANYkSoX7thb8bREoINO2B5YJmOqirg2BChqo9k7d63N+3A/nQ0jZLlucRlS/fs21tY9LXhVqz4NoMV394RRVFVVVSvlGVZFEWapvPz81ERU1VV hmFQDQdtnfPjFljOF98u1BAUqasaTVKaIIFiOKwEiumQPDE/YePjI/e+OpZatw6KC4AlIdAIFCGHmoVgQIyENUEydUuTLYFVmLa3FWsr 7V3xssxbpmpZmqZqju3YptPievDg5Icnx05tv7+GFkQbgBUDik vxEtgeCCp3PDd71BMjBsT0SVq5yXNBNSIAoiLb4RBrua7teQzH YsWfH7Di2zuiKKISPDK4JEkMw2RkZBQUFHAcZ1kWOsc0zYujEI/k3lrx6JgXBdu0RF4wJMXVTYVkUUXebK5ZOWNy2ua1UrDWkQiZC Yabq1WF13SR4xiaJkVGkDlJoQWVlk2+zW3F2kp7V7xp8gAagIG SdE1RwQOa5MAF1wLwAFxwLLBNz3Ng5Yqk7XvTDADOJA9m733j7 albd2bZ4K7bvKHj9df+vw6/ffChIXX1ogeKB8ru3WkTJ05VDF23LYIiFycuwYWa8wBW/EVAS3re4o6DBw+WlZUJgmCaJjpHVVVRFHmeF9s5gvTf4CSRa/WhpqiyKOmibEiKFKH5IOFyshOq37xgZs3xDDXil8kGW2EMhdY1 UVF5SRJEkVd4WWJFmeKx4r8PAJokkV99lWwYCoDtOa4syYmLlw 8dMjRx0TKKpCZ/NPm1V/65d/eB6sqaB+7r9s6EydWNjSYoi1bNi4rq+Mzz7zQGm2+8rcuLY8cs +XLpbbd3//CjBN1gbUecMOGT3/ymo6gqiqFHSGLRksW79+7xFRdhxf9PYMW3d5C1JUlSFIWiKFmW JUlKSUmpqqriOA55H73PRRWbtj6/KHBtigvwEr8GL54+BEGgaVrg+JY/fpnlDUmxwf587ueZ+Vk6mBqYQT5SE2kkVK6JCVMCw6uyrCqSJC mCKLO8SF/wdlftXfEU5V+zZvEf/3hzXt5RAAvANTT932+/1/Gq68a9MwFc+PuLrzz8UK/k9VtVyRzQd9Dzr7x9orjGAO3zhdOvvOauf4//gpT4a27qPH3WF9UN9U//9a1+A56mhKAD2lvvfHjnXX+RdU2zTJKmlixN3LNvr6+4CBdq/iew4ts7aEqZoiiqqpIkqSiKoigpKSl1dXUo/UEnSJKExmPb+vztRfG6rtM0LQmiyAs8zaiipHCCwgk0TyckJpT 5K5qpYG3Qz5mi4GrNPMHoomQogqbQLEPTtCKImiDJ7AV3RntXP ICyfv3Sjh1/XVVVBGCZpg4efDp1Rqdrb+x07Y27d+7u/pdHO1513fC4x5cnJnW86ro/d+87a9HK1MyUoU8PeaTPqKR1B2THfP6Vf9x42y3RQ2KjY5697v o/H8rcdyIv8977ew1/7DnNMk3XoVlm6fJle/fvQ4pv6TSJFd9mvlvx0xevZ1SPFhSs+J84qBbPcRwyyKFDhyoq KliWRdMoeZ7neR79nXBthCIjosDJkkASYUUWZUlo8NfxHKMqEs tQmipLIi/wbDgUsEydiIQikYiu6+grhsNhgiA8z0PT9imKQkMCHMc1NTVZl iVJEkEQ6N6DbkiSJFEU1XIrQhOEEOg5aZ6jeY5tFa3hWY5nv/aILKurV6/NL/CxnMDLCsXxnKKwskzJAiULjCQwksCKAisKvMjx4gW/RbV3xZsmu2PHul/8IioQqAWwdE0BD96f8OElv7zsiv93dZ+eAzpde+Mvo379+9vu7 t8n5v+iLu3Q6bY7/9Q9dtTAy6799biJs47lNVACl7R+becuN918+23XdfrTb6+4ve+ AHqOejOvc+c533vnQcGzLcymGbpk02boNGVZ8W+ElmhVISrXjF 28saIKjlUZ2jVkYwIpvb3xb8ZWVld9QPHJoWxUv8KzAs5LIswz Fc0zW0SP/evONwbExLENFwkGWocKhgCTyksgzNCmJPHJ0c3Mzakfl9/t5nldV1bZtJP1IJKKqKho/CAQCuq6j5ewoWeM4jmEYNErMn45zU3xefiFW/HnBdcW8vPRu3R5YvXqpqgoA7onjJx7s1uPp0c99MWPO+HEfJMx ZlLI/7e03xz0x8ukDew99Pnfp6OfGjnnzhVlL4huChmqBCa4FXk5B/tTpn916W/eHug8d9tjAJ58ZvmTJWs8Dy3Nt8GiWaa14XKg5Z7DiLxK+rfiy sjKSJHmeJ0mSpmmapgmCYBiGbiMcFWGIEEdFRJaydSXveNaY55/tetfvm/21VDigCCxLhnVZ0GXBX1OpCGwoFBJFkaZpiqIoiqJpWpblcDhc X1+PcjGGYSKRSCQSoWnadd3GxsZwOBwOhzmO0zSNZdlwOPyN62 RaEWFpFBRDUwzNUF+Lk6+U+W8YrLxxxZqSnEKFFjRBEWleEmSR l1B5B8mdkThG4ij5XNqKtZX2rngALRKp/9vfRne46vLYQQNefP6F3j17dfrdDdu37OJoSeDkljmUmqLDyUn xoNqsA4rjgmHC/IUJ/aP7XXLprzp1vq5vr8dPZNfYruB4IrjAUurJ9sIcu2Rp4q49uwt 8X2tggBXfVr6h+MwKPavawIWa9sdpCzUkSXIcRxAEUi1BEG31O 03TIkvxNMFRESoc4GkiKyPtjVf+MaBPz1CTX2QpiaN5miBDzQJ D8jShSTxKz9HdRZIkkiRbSjEtlxoOh3meR+tU0fgBz/MURfl8vjVr1ixcuHD58uUtd4jWfqdpuq2K1xlpw/LVWPHnC0kiATRd5z+cNOHpp0YNiR386thXigpLUSsCVTZ0TRd4 AYnesR2keN3lHVBkRZNkc+HiBU8+PXr+woSj2ZmuBeCAopEAJ5 sZYMWfZ2SmRfH5jV5mhX60Ss9v8rDi2xnfVnx1dTXDMDzPo+Sd ZdlvG/N7QYQ4KiIwJEOEGCKUlrLv7y8898hD3QINdRwViQQaqXAg2FhP R4IiSx3YszMlJSU3N7eqqioQCKBWOZFIBJVfGhoaBEFATRTQXH 501+F5vrm5WRRFlmXz8/OLi4sbGhpIkkQNdthWMAxDcCeDZhmaZVj6a4EeRCeEBCYkMCLL rf5yZWFunsTxmiQLDIuGZFEgUImGlThWwoo/C7alAdiaKoYCwUBTs7+uqaSoHAld5JWTBwJnW4Zj6wC254Gqum hxk2eDY0JNdVl5mS/QXM+xhMx4YIPnsACizluednrF40LNuSMznEiRivX5og35jXCkX Mus1PIacRbf3jhtoSYUCoXD4cbGxmAwGA6Hm5ubA4FAW7vBRAK Nwcb6YGN9JNAocfSJrCOvvTzm4QcfqC4vERjSNTUi2CQwZG1l2 dJF86/tcMVvf/vbP/zhDy+99FJSUpLP58vPz09LS6uvrw+FQs3NzWgHOLQbZ2NjI8Mw JEnu2bNn0qRJO3bsoGm6rKxs8+bN77//fkNDQ1NTE7rgUCgUCoWCwWAgEGgMB1GgNjWhwNcCPYhOqCeC9U RQYNhVK778huLR3Eqs+HPBNQFs29LAA1mULMNFzchURQUPTMOk SAo1BzZ0WddlnhdsGwBEzxNO+hu1J1MFAIsnLM/yAERdJ1FNx7Bty8XDreePVorPa/AyytQjFWpuA87i2xvfVnxhYWF9fb3f76+srKyrq/P7/bXnBBlsbK6vrqssrS4raqqrOrD7q+eeGnXvPXdWlhQW5R3ftW3 Tow89EP/pFH91ub+6fPf2zVu3bh0zZszdd999/fXX33333d26dXvttdeampr8fn92dnZCQsLw4cMPHz68bdu2F19 88YUXXigpKRk/fvxtt902bty42tra7Ozst9566ze/+U15eXllZWV1dXXdKWpra2tqairra1HU1NXW1NXW1dT6a2r9Nb V1NbV1NbW1tbVVdbWV9bVlDbWlDbWlDbUhgVi0KvFo4TFaonmN ZziSk3meZ78217OVOC407V3xAK5paKahoYWsKG1HllckHTwA14 sZ2C96QJ/KimIAC1ywDfCA9YDVeNB4kHgCwDAVDjzD4AEsAODBor5csOLe3/+5ZV58SwOD1ttzY8W3ma8pHpDic/wuVnw749uKLyoqamhoaGhoqK6u9vv9jY2NLaJsE1WlvvqqsoC/pqmuKuCv2b9r+0vPPd2ze7fSwty6ytK8Y5lXXnbJf955s7m+ur woP+CvKS8vl2V5z549Xbt2vffee5ctW3bs2LHy8vKysjKfzzdl ypSbb775yJEjK1eufPjhh0ePHp2bmzt+/Pg77rhj3LhxxcXF+/fvf+utt6677rqKiorKysqampq6urr6+vr6+np08W1VfJCPYMWf RwBcQ1cBXNdxPcdzHdfQjZYsXtd0z3E7X39t5+uvLS/zeZ5pGRY4AMAD8LYCYINtiAAGeAbPEWCBZ3qqGgLgPxr3YZdrb hIUWTF0giITly1F8+JRvQ5997Di28zXFZ9eqmSUK/9V/IwlG2jFpQWFFySs+J8y31Z8SUlJVVUVynyrq6tra2vr6upq2k5 ycvLevXszMzNR5WTHjh0vv/xyly5dUM09NTX1kksuefHFF4PBYGlpaVVVVXV19apVqyZOnHjb bbe9/PLL+fn59fX11dXVDQ0NWVlZzzzzzB133LFp06bJkyf36NEjJib mxIkTY8aMueaaa1566aWqqqo9e/YMHTq0W7du53CppyUcDq9YsSI/Px8N//I8L8vyj7iLUHtXvOc5nud4YHlgeaB7oAOoAKpty6e24YZrrrz2 5utvry9vBhvAs3WJBxvAAcsLAVDggK6A6TUChMAAMABMGUxl8h sfdfnNjUFFFgECEp+wfNnOgyk5BYXBcOi/K5Z5riVEgREF5uzf8Z85MsOJ1Knh1m/V4rHi2wvfofjq6mp0gI7PpMKqM9C1a9c33nhj165dZWVl1dXVB w4cGDNmzFVXXRUdHT106NBOnTr9+te/7tChQ2xsbFxc3KhRo2JiYvr06dO3b9+uXbt27dr12WefjYuLGz Zs2JNPPnn//fdfccUVV1111Z/+9Ke77767Q4cOv/jFL/r06dOlS5eoqKgOHTr07t37/vvvv+uuux5//HGs+J8qp1c8gOG5pm3psiRfd3WnP9z6x7yjRaZqgmeDY3qWBw4 AULYdBgdsAwDChuHXBd0QDVcXwVTi35tx+xW3IsU3ixxSfG6hL xQJS4KIFX+OYMVfHHxb8cXFxajQUVVVhYra1dXVlZWVZ1J5xRm 4/fbbR48evX///mAwiDL0/v3733DDDdHR0UOGDImLi0tKSho7dmx0dHSvXr2io6OnTp1aWFj o9/tTU1P79OkTExPTu3fvgQMH9uzZc9SoUZ999tmqVatiY2OfeOKJ KVOmrFy5sm/fvh9++GFSUtK0adOGDx/es2fPSZMmlZeXn+k62wpW/IUBid70wATQAXTLkmxLA8+2dePWm7p0/cOfCo/7wAHP1DxT8wzQRReA1a2QY4PnggkhAMozASwAz3Bk7oM3P7ruN 50jsiwDBDl2wdKlu1NSCgqLwkREFqWT9ZmTTTI4QeAEkRFErPi zICosUnzrWvx/h1ux4tsLp63FV1RUVFdXV1RUoKHLqqoqdHBays/As88+27lz527duo0cOTI2NvbOO++89dZbJ0yYEIlE4uPj4+PjV 6xYsWfPnoKCAvQVCwsLV61a9dFHH1VVVeXk5NTU1BQXF6NP5ef np6enNzQ05OXlBQKB8vLykpKS4uLikpKSsrKykpKS0tJS9G6jq KjoTNfZVrDiLwzfVLzrqq5jgGeD495wXadrrrz2xJEcVVL37dw +7q1/7tq6GxzQ9dDOPUlvvP4viqRNCClKw4cTPtqweoNlyuAan4z79M YrbiZVVQYIsMz8xMQ9Bw8W+oojJKFIMlb8ufENxeNafHvl24r3 +XxI6GioE/m6tLT0TCo/E7Nmzbr55pujoqJ++ctfXnrppR07doyOjk5PTy8rK5s7d+6GDR s+//zz7OzscDhcUlKSn5/v8/lWrlw5bdo09HULCgrQMKnf729ubm65l5SWlubl5aF3GBUVFfX1 9bW1tT6fD1m+rRf5HWDFn2dc8FzwPBSO5zngmeCZAJZja4Yq2I Z8xy03X3/tNUG/H2x72kcfXXvllZ9NmQEu1Nb75i+cfvXVN0YioubSjNx0ww1/eP31/8gKD2D/643//K5jF17RDRciNLNgSeLelINFRSUUQbZk8UjuaHorIzOMjBV/FlorPtd/UvEn6h2s+HbGaSdNlpWVVVRUoAS5rKystLS0uLi4rI1UV1fv27 dvx44da9euTU5OTk1NTU9P9/v9paWljY2NTU1NxcXFhYWFSO4wh63+AAAcsElEQVTI1M3NzeXl 5SijLy8vDwQC6F1FdnY2uoyqqqqysrJAIFBVVVVfX19UVITkXl JSgt55oNvDeQEr/jxzBsV7qObiGrYh93q4x21dbirJz9ck6cPx46+54oqJ4z5wLKf Ad2TWnCk33PB7v5+wQYhwdXfccd+4cZNtRwew33j13b/c31PSLQsgQjPzFy9BiicjRMtqNaz4tvINxR8ukdPL5ON1NlZ8O +Pbii8oKEA5e0sxpKSkxOfzlbSR48ePl5SUlJeX5+XlIYlXVlb m5uaeOHGivLwczbSprKwsLS2trKzMycnJy8tDn62qqiouLj5x4 kRpaanf70fGRxk6yu4rKipyc3MrKyuLi4sLCgqKi4tR9by4uDg 3N7et13kmsOLPM0jxJ0XveZ4HngOeA54FYANYli6NH/fWI90fePHZpz5+/z/33XPPr6J+ecPvOi+YM3/cuH/ecceNUb+IGjZi+IzZ0555YXTUL351wy23vztxYvzcuX2ih4x55 U3Nch0AkmIWLlpy4MDBoqISIhxpmSiJFqmdbDihMJSCFX8WkOJ JxZqxcD1S/OFS6VithRXfzjit4pGaS0pKioqKiouLUbp9JhUWnYGKigpUVEH vBo4fP44GcpHQi4uLq6ur8/Ly0Eqr/Pz8/Pz8mpoa9BXz8/Pr6uqQ9AsKCmpra/Pz87Ozs9EIQU5ODrpzoOpNYWGhz+dD11lZWYkV/xPlzIo3TRUl8vU15Yvmz77r9ptvu+n6IdHRyxYnxsUMublzl2u uubx//0fmJcy7sctNV3e64vd/vPXjyVNHPvnMLXfeeXWnTt169K5tDBsOfFvxLauRseLbSmvF59 R7acXSNxVPyQ7Fy3jp008WJHfUxktVVdd1g8Fgenp6Tk5OZWWl 3++vqqry+XwFBQWFhYVIoxclxWegtrZ248aNGRkZaAMslmUty6 Io6sf6ebV7xXvwjQDXAxftz+0CWK6lqhLdUFe+d2fyrM8npx04 VF5Utm/vzhXLl8yfl5CWeqixuXLBoi/mL1i0Zu36wtKCA2n75yUuT1i6Yuue/bLt2QAeAEWzi5cs3bt3f3FxKUPRLM1gxZ8bnEihNmSfL9qQU++ l+oRDxcKxWmvsuCm3/PlRrPh2AFK8KIoMw0iSZBgGRVFlZWVbt25NSUnJyso6duzY8eP HW+o2hT8zUlJSduzYUVFRoes6am1mmibO4v8HTq94y9Q9zwGww DMBDHBUIlhbmHtk9/Zd+3bu9RXmAti11TUb1q2v85cCaGmHM5YuW7F155aK2nLVBROA 1y0ToEXxSxKXtSieY1is+HMDK77dg+oPqIWvcGqrboZhMjIysr KysrOzMzIy0tLSDh06lJqampKScugi5eAZyM7OrqyslGXZMAzU 0EpV1dY7Pv/AtHvFo0VPaNIkesAFcMFzXPAAXAdsC8ACsMAzTIVTFdOxwbZlA MMzQBdtAF7Xgo4GYAOA4oFsmuB5YANwsob+M8Gwi5Yu27Vvf1F RSWvF4+HWtoIV3+5pLXdRFJHxdV1XVVVRlJbPiqIoCALX9u252 wun3SIKbWdoGAbaTVAQBFVVRVHEhZpz5wyKR/3IwHVsXTNNxfNM8AywVfS4aYquq1mK7WioXw0HDsi8LEkRAMVx wDStk53lHcdwXYJhFy9b3qJ4nuWw4s8NrPh2D9q6D5VrWrbdQA ZhGKalS58kSbIsy7Is/szQNE1VVYqiIpEI+g6g79WP9fNq/4pXPVA90E+53gPXAxccCzzUK9jywLbAc8GzwbNV0xEUXbMYAAU ckEjLc0IAFCgABgDwthqqryBsBcADMkIJjoNWty5avnzn/v2FvmKKoVuGW/HSp7aCFd/uQbJgWVYURWRwtKW1YRiyLAun8neWZdF+IOxFypn2nkVldzTXC LmeIAhN036sn9fFqnjLcF27JaN3WxSPtO+BYtsCOKh1MMXzNRq tgQF+//9v776DmzjzPoAzN/PmLtfv3subXMpdOoRiisEYUxJISAKBkITk0nu7owRIck4gBLBN 6M2W1SUXTDXd4ILBvRe5yL3KTW1X27XaVdvf+8caxSFyiBISmz t95zOMrLE11rPP85XYlXdrXvvH44sWPH85PV8SJ7n5l7/GnE5aEIwELtNofBX/9QkmgxUfYIIVf8PHd+RQ3C9BXdkhI76FF4/BitUv7o9m/ssiHqhwOBzicxevZCWO0ojkxq94WgBaAEYATgCnIHjEih88fbz 4sRqvILjcAs+D08m6BJJ1Mi7E7SWABxcOXmc3gAk4AA7cdO97r y4On7jguPb8rq07Jj443sJzuODto3CJVnMmK7O6rh7FbMHTkP3 gBCv+hg+KouIuGgzDxKtcMgxDUZS4L0J868pc+byg2Cz/VRFHRvzvC47jHMc5nU585I5J/CdXvACCWxA8wpX98l7wesU97B5gPAIJbgAnCC6Dy9UrOAQn5RT YgdeWL5gz5fHirJo923bd8of/NXMOzOsJVvz1yrUrXvzTp2DFBxPMdYmT7rNjXQ67BScQjGEQgu k1IS43DH4uRQBBAB7AAUACkACDZ4AZPQg78F6BaQGPwQDQDcAi QHSYwN0FRD0NQAPAgAtYF7hMwPa4BMzBM8CDy+omASEBAYwBB+ AAJnACZln74nMzZz6bkpKTsFNz181/6eFRHJyoDY+XqtLT82pr29pteA9tt9hJkrKB1QpWq4CgvA3vd9 D9jhE7pnLDhLHZCIuFce6UHa3oErJriEt1RHmXJ1jxwQTzk+SG r3je63W4gW0D6DcANLJsl97cXdnkdXaA1zBY8TTYEcLF9mafVW/YtHr9F5HHko8BD1a+v4doB87rYTztKIoDAGb58OlFkycvOn26P GVf8t2/vfXbFd+BEb0MG6z4H5hgxQcTzM8ZhkFx3ETbKQwncZpFCXrAaP a4vOB1gYcDNwtuFrwseFkQWBCcbgFGFY5iwe0GsJXWZWaZoANA 8ABnI8HdBdB7uqSpAXEBD8B48rNPzgi9/9b7bx8XOmPqhEerS7v7AesHbKDdOG3szCMl5a2cizAOvL78uZm PvH34dO3uGNVtf767mydQ8CAoJpOoMi9c0tc2GzDMxJJWO07QK CBWQKxeFHWhwYr/fglWfDDB/Jy50Ste4D3g9RJE56xHxz+9UZpaU+Pi3eD04kh1fv7BMb+5IzG jFHhwYo7Ite/ceftvMBdZpm8Mn7b4rVc+7vEgJiDry/R//J9b/h0vrycZJ4H/Y8lTTzyz7uCJ6v3bE+6+fVw3T9jAi6CYNE4pVnwPjpsdVLDif2 CCFR9MMD9nCMaOYDTJ8CjO4JQDxxjjgFVwAngEcIstz4CbBI8N PCh40MGPIY4idhAoG9bxlwd///4OdVqTBbwAHgK4RsZYOObm3+xQaQQ38Kzng3++cs99t/RYOtoMhoWPPD/23rCClnwaqIwzmb/+xR8+3b5bb7SS1v7Fj8796OO9WZdblLGa39/0p06XywpgwShFrDInLbtVVz+Am1AWszEoQaNeFPWiqBu18TbSy NJGNljx10qw4oMJ5ufMf0bF29n+uybf+voWyen6ARfvovBeFqv sazz3yz/++abbbl/+zPPLliz/6x2/u+lXY+YuDH9i6dK//mXcn357912hdy5YNn/SgyG/GvO73/79vr9NnTE/YvqDf//rsZNlrZ2cJj7xb/93j8HrRQCsOO2r+H7MGKz4H55gxQcTzM8ZiuZsGM3QHI7RFOnA bVzfAMm6wQ5AXTnESgHYAezi3wmNfKd/k30AODNCWCIWLx6/4GnZ6WzwesFLUH263Rs//PNdf3906Yuvf/jJwmWvrljzcX5hwSuvvbx02ZK9uxIb6ox7lDuefnXx2++trm/o+Xjjtn+8teK1N1/ae2AnywLHwcnjZ9es+qQFoAdggBSUsQl5ZzPbq6vMiIGgzRhjx mjUjdrcCMmjtAOjTSxtClb8NROs+GCC+Tlzw1e8FwPO7AGX7Mi RMX+66+Z7Ji1buvTZZfMfnnLHg7f+4vk33+7HOMoNHIDd6REAB PCSNAEeAA/wYK9oLjl24kLK4bQmg5UDcHkdXnDyPHg8wNnd4IW2b1Z8W1WlG THglClY8T8w313xX0kPIYzHRrE0w1I0ZicHURRBUQxJsSTFjtC pR4IJ5obMQF8/eAQHSZOIjWV4DHMOkNDGgAGgEUB3RS1APUAzgGGEdF650XXlRj tANwDlBRagFeBCPyzeeOqXs1aM+dX4MTc9NOaW2WMf+0hRQNQD VADUAnQCdAB0ALQK0AnQCdACkNnvUeq88eV8DQfNAK0ArQBdAB 0AnQBdAHqAUoABJxxMSr+UeqFTV4nbDIitG7dbcMbGYxSPsSIr S1mD9XOtkIyNZGyow7NNcqi03Z1dQ1yuJ4vb+MFLgmyTHbZQLr ONRG148F18MMH8+NgQlGc5zGwlrKiT8zAM6LuxhKziDSrVGpXq n1esUKlWqVTrVKoNIyRSqfxSq12vVEYqFF+o1euVyki1+guNZk e8bHts7CqJ5POjRW/GFr66N3f1v+Ur18V/uPHgK58lRybqIg8delepXJOYuDExMerw4ajDhzckJX8ql6/XaDYeOvRZyuU1KQ2fHmv9RHMoMjExUquN1Go/V6kiVarPVKr1avVarXZdauqpwvK9u5Mun0jvb6znWAvnRMV38Z yN5Gx2kcVOWoL1c61YbUYEM/mu+iReu/Xry3PvVqfaWAEl7RRtx3AraRuEYSiGETaMsmHUSJ12KphgbsTg mJXGENtAH2U10yRrYyCvlXs3tvA5SdN8ORKm4sNUfJiaC1Nz85 TIPCUSruRHRGg8M0vlnCFjp0nomQouTO6YIWPnJQqRB2s/UpVNOQCz1TBdan842ROmIsM19IIECI+H2WoIlbjuVsLYJJizz/6IhJqvZiIUxOR4CJFAhNQ0W2Z+UOW9X+GeEw+zJfBQonlcgmlm LITHwXQlG6a1zFO1vSCvkl0y7449n3cuv71WZzW3Ilinme4zU1 YSpRkrzVgpxkqZSdRMoiO9PUd7CBolaBTjhT3KVF3vt67dulN5 DGE8KGm3sxxjJxz0IIahGIalGY5muJE8xVQwwdxooSnMQeEeO+ 2x0zaEwFmoR2C1uvoFWetjKmyW1j1L656V4JqV4JqvweZrsNka 94gIV/JztJ6ZCm6GjI1Qu8KV/GyN+8njkDUAx5vgqRPwSBJMjaOmy6jJEmuoHAvZhYbHw1wtzNX CpCMwLhlm72Xmx9OzJOhsJTlTA2FqWKDFFyZRk1NgfAI8LIe5U hifZBmfZJkjg3kKiEh0z0pCH03sFiv+gCyrKL24raYasbQxDiP GWzCOcFC8k+CdBOckOMxBYQ5qpLfnaA/N4gSNog7PbsXxKoNX3Bf/dcV/JT00gDmMCE5SDE4gFDYIx204TmI4jeH0yJ5kKphgbqxYcNxKEK ydtjNUd69pgAQdCu+qGhbsN4TE8/fK4V453CeHh6QwVWKfKrHfL4ORMlYJ98bDPRJ4QA73SWGsEsJT oQOgCIGHD8M0BUxXu+YegoeOwP2J8IAaJiXCRBk8JIHbEuEWDc w/wD0pF6bF8ZNVMFYF90ph8n5HqMR1x0G46xCExsG0WLg12Xlrsj MkHkLi4X413KdhQzTUvLjWmHRyS+zli2dL6iorLdYOhws1M2Yz jWMYSyOsHWHsCIOSVpS0jvT2HPWhEKvNaCQd2ySHyju9F3V4jp 6q7oWvd9RYaTdK2nmnO3i4NZhgfnxIhwMhSZLA7AxlsuKIAyrM 7lfjqp5SWGZqYUISTEiCiUkwLQEiNN4IjXdSIoyIkCSYchAmJs DEBJicDBO0MOUgPJYBrR5PDQsLjsFkqSdEap8so+5J4O5Wu8dq YbzGMy7OHaKAO1Pg1gR4TOIK346HyTxTNTAhAcZrIUzmDZW4bt E4b9FwEUqIUMLdqfC3YzBNAVPlMC4RxiW7piQwjym69+Q6tyuK ctMrG3Q6i7WD4SyIA0FYiiR5FuM5zMFhDpyx4YxtpLfnaI/DSRM0irBucUeNeLj1GxVvxLk+M4oTVPBwazDB/PhYOFc/zZoxzEbTZpJDnFBuhQ+SuxZIjCEK4QEVPKCCsUqYJIeIeDYinp 0pHTGz5NwMCSPeCI2lwmWOpSfAilpQDHkpBRbFOxfJOp+Ibw9N MU5P4kOkECqDhyXokiR+UgL+kApZpTG9tqd5qcQ6ay8Rsk8IV8 ByBfuMlJ6QCBOTYOEO7+M7hbFa4wPq/jnbXfN2emYpkFlJxENycrLWsS0PNkkrMs/p6mv1FqSLYM0Wh9ViJzHSyWBOh41z2OwEbSVo60hvz9EeG2ExW ftMFLdXdaK2H7JriOxavKLbO1jxm/cn1LT0FFfoqqprKipLqssHVVSUVVRUlVfoyit0FcEEE8z3zuWq mlxdXWF5eUlVVV55bWF9y0ld/1vqloUyy1Q1jNPCOC2M18AUFcyV83PlfIRixMxWOmfJuQgFP0f lmiFhIhT8M6eBd3EYYVsiZ56U8G+ftr+fxs8/x0xUkFMVECqDR+Jti7TsAzLTvDOQjUCVG3bUwGtnYYYUpsbyT+ 5FFu4y36/gJyQKi/fCkv0w+TA2KQVdeACeksGSE95ns2BqIj8jxRN9yb0qJlMVf/bs6XNFJVklVTkFtYUFuorSCn11qb62pK62RFdeVVheVTjS23PU p7qkrLKotr1ny96Eym7X1e/iNdn6DYoLUYmXPpelfaE8/4Xy/EbF2U2ys5vkp6Kkp6LlqdHy1Bjlab82S1O3yE6IouQnRdGKU1t kp7fITkfJz0TJz0QrzvqI9/jujFGeE0UrTgVkuN9n5JwLjOL89RUtT4uWp0XJzomGDOzVI+9X tDzjJ5YWEN9c+t6GeV5D5t435uGVgbrKFunZgAz9WfE3FzfHdv WFr6RnomOPRccei5GnbUsqSap0vaM1PCYdCFM4J6phohpC1DBF CTMVzpkK5wyFMCLC1RAq84TKPOFqCFPC1HhXhBYWnQSUg14Mnj/hflyLpZcK+n5YndEfntJ2R4rzzkOuFbtb399Z8sGB/PXHmot4qAPIokBRj7+yp+yNPQMLkmDyXnhdXf1usn6Oumu6pOl TTduq+Ppl+00vK0l1rXC8C0ITYJzEu/d8zxuf7n4/ctMnW/d8LD3xZVLGV7IjO6RHdsqO75Se+kKVuVGdFaNKjVGlblam+bVF dd6v6zU/h11xP1c/fL0ihpmxog3q3Eh59npZhjKtrrCFLmkh8mv7mnqptZHRE6bOHV NlhaJeby0GlRYoM0LpgFDa5yozOEu67eWd9vIusryLLO2k/CrvZkQVBruosoet7GGrep0+1X0uka7fLf4rqhnwiGqN3lqjy69 6s8cvvcU7ykBgzP7VmwJTZxxUOzCopl+o6Rd8YysOtW8TDEfXB z8xb0Cq+7gA+X9eQ+fhUJUGl18V3c6AlHY4RGWdnKi8iy/v4vMbscp2e0Ofs80CzQgUdkJGD7wc3zzKK36a1D1LIzyR6u0nu OY++1MH6WVHHI1GwARYl20eL60adxbCciE2DT5VNMac6rrQD3l 292dHjpQBnDLBv9TNL23rnh5HzZJDXB1ksvDMGWp+Ut/JRsjohjcTHU/uMBztgGqAEKVrnMSryEU/33d4X+LRkzklF1qwQqO7rpdq6KEaepjGHr7UCGUmqDGyNUa22g R+6cz++ZbDjzTcurte/VBv9m/ouhZX9OC66PX4VTQAOd1wqZUv7HAWt9mzKvsyS9sqm03PvfTeu JCIMblteE4LmdfBnNMZsxuxLD2aUW/K1A1cqOrKKO9ML2+7UNZ6odLgV3pVT3pVT0Z1ryhT1ye6WGvKr jOLLtVbRJf11pwGRJTbiOY2onlNNlFBi38lHaRfw73kjBwmQHa/itvpgBS2kj4FLURBC5HfjOc347mNqG+oL+ut15Sjx35aDWhALu vNAfHNsatcrDX5lVUTmIzqgWvK1BkzdUbx+wuasIJ65HJVX3ZF T34jltfmybXAKHwXP1MFoTLPdLl3pmqw4sPV8OgRMAO0OuDlI8 jypIHyDuhj4Z+53Lyj1tmnhbcaoImG+HPMv1L7DpsgHYPIo3Ud AHon7L/QvXJPw+yvTI/uxZP1rhqAN88MLFLWFA9AswNWJ9te2NmY1gV5CIQmwEQ5KPNsk XtS9mgPH7tYcLLWmNFG5Nf3FtX1FtX1FtUaM5rojCY6p3Egt8k ozu1vGzr/v7EWmqnADPP4w62769UPxe2UX74Vnd+M5zVhuY223EZbTgN6qd 7q1/k6MrPRfrnFfqkBy9UjFe14YU338XO5r7zx4fIX3xpzucWW384U Gbj0emt2I3axwZapN2fqBtKruzMrujIq2jMq2n0lPhyx2bNq+k VX9buvSobWen4zJipowYva/BtuyMq66FHGHiDWr0ArvridLmqjREO7XnwFFQ0tel/vX22UVXxOgyUgw1W8bx5e5WJtYMT6/rahLwPid2bXWbLrLLl6pLgRK9Jb82tNRS1kTosr3eB4bm/taKv4MKUwXe71VXyozDNTJTx80J3X0tLpgv2dsK8DWlGo7DIvO dgRIm+7bXfHw2ndfQCHCuAFWU1UYUc6BlUeKEWQVoDzrZBSDF+ WweYKKGRAD6CwQEwDtDmhlYfEBjjaAY0AiZWGsXHMffsccVnGt du0O1UHUy8VndFbfBVfXN9XXGfKbGYym5ncJmNuk9E3ya8y7KJ oZQIT4ONfr34YruJ9K3poy39Hxafr6UutfG6bI11nzmtAWyyeM 5eqXnpr9YcrP13/5bYxxW1IWSdV3cdVGOwlHWRxO1HUbitpQYtbTKXNptJmY2mzMb/J4ldhC1LYghS1oqLiNtsVSEk7KirtsInKOrGKbsKn0kCKqnqoq h7Gr+peu1+6PnaUYQLk/3GGG4fvHh/fl5UGWlTehfuUdWKi0g7b0Pu/+T3UT4wIiLh78PvzzbHvqaQdC4hvhl8lv8lS0GwViWtBXA6X60 0VbWSdwV7bzVQZuIIOTx4C7yf3jLaKn6EYrPgwJYi3w5QQoYVd +QNFTigGqAToJiG7Guak0BHJ5IIk04sH+zsJOJELj2jMz57id1 Ww1Q6wCQIN0MuAgYI6gCov9ABU0aAHKAfo94LODNUcdAA0e2BP WtvMJJiuheRyZsOBw3HJx9IKyjNb8Jwue2U7UtOG1rShNW1EQb enoNtT1o1XduE6A+NXTY/dr6oeNkCBrbvr1Q9VPdQwBpdzRTdV3kWKi6K0Ax9OmcFd3MmXd bH5ektmaVtGof6AImXps698uSlGKlOP2bA/aVWU7MMv41ZGyVZGyVZska6IkqzaFLdq8741m/ev3bJ/7Zb9K7dI/FqxOW7F5jjfl6ui4kUrt8SKVkXFrYqKWx0tGeqjmHjRmq1S0Uc xsoCs2SofZaQB8v84q6OlAfH9oDgsvvvF4fUNuLgVvr0hhpD/xAJ7XoHyPcGrDPd8fRP1KsM9/nfP/28vgY9iFB9HK9dujl+5Yf+KTbK1u07E5ehfljaOtooX+3263Pv N+11vyy/FXMyLzsmJycrapji6fnfu+NieiGQyygA7G6HfAQnn6AhZ74IE6 8rU5mP6DqvbbaTpMwW6QxnF0uLiPbn5B86cWSVJ2nb+/M78fOmZc1tUaZLc0tj09M2Hj72x9cQkGTsultl5tmPZ+xuWv/OvD/698Z1o5Xtb1Wu3HPhk04FPNh34dLP0g5jkD2KSV2+NXxsTvzZa 5te6GLlfH8UoAuS/Z6657n5kPwy/HofObf9zdaiVMYnvfiFftz1x475D76zb+sTyd5956d2Vaz6XK7 THU8/8P6Hp2iHxW0B3AAAAAElFTkSuQmCC

انا عايزها بجملة for next فقططططططططططططططط ممكن يااستاذ

نريد من السادة الاعضاء ومشرفى المنتدى وضع نماذج امتحانات فى شكل ملزمة حتى يستطيع الطالب حلها والتدريب على اسئلة الامتحانات على ان تكون شاملة المنهج كاملا مطلوب للاهمية

حل المسائل الاتية
( 2 + 4) - 2 / 4+ 6/2

4-(4+2)*2+6

المتغير من النوع integer ياخذ قيم عددية صحيحة من 0:255( )
صح ولا خطأ

المتغير من النوع integer ياخذ قيم عددية صحيحة من 0:255( )
صح ولا خطأ
الإجابة خطأ

نريد من السادة الاعضاء ومشرفى المنتدى وضع نماذج امتحانات فى شكل ملزمة حتى يستطيع الطالب حلها والتدريب على اسئلة الامتحانات على ان تكون شاملة المنهج كاملا مطلوب للاهمية
حضرتك الطلب ده موجود بالفعل بس الاجابة موجود بالأسئلة

6/2+4/2-(4+2)
6/2+4/2-6
3+4/2-6
3+2-6
5-6=-1
[

6+2*(2+4)-4
6+2*6-4
6+12-4
18-4=14

:022yb4:

ارجو من سيادتكم اضافة الفصل الرابع وورد ويا ريت يكون شرح للمدرسين مش للطلبة لاني مش فاهمة ومش عارف اشرحة
ويا ريت السرعة لو سمحتم :bosyht9::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3 ::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056 bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3:: av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb 7jp3::av4056bb7jp3::av4056bb7jp3::av4056bb7jp3::02 2yb4::022yb4::022yb4::022yb4::friendsxs3::friendsx s3::friendsxs3::friendsxs3::friendsxs3::friendsxs3 ::friendsxs3::friendsxs3::friendsxs3::friendsxs3:: friendsxs3::friendsxs3:

حل المسائل الاتية
( 2 + 4) - 2 / 4+ 6/2

4-(4+2)*2+6

حل المسائل الاتية
( 2 + 4) - 2 / 4+ 6/2

4-(4+2)*2+6

الحل
( 2 + 4) - 2 / 4+ 6/2
6 - 4/2 +3
6- 2 +3
6 - 5
-1

4-(4+2)*2+6
4 - 6 *6 + 2
4 -36 +2
4 - 38
34

حل المسائل الاتية
( 2 + 4) - 2 / 4+ 6/2

4-(4+2)*2+6

حل المسائل الاتية
( 2 + 4) - 2 / 4+ 6/2
-1
4-(4+2)*2+6
34

بالتوفيق إن شاء الله

المتغير من النوع integer ياخذ قيم عددية صحيحة من 0:255( )
صح ولا خطأ
الإجابة صح
أما إذا جاء السؤال بصيغة أخرى مثل
المتغير من النوع integer ياخذ قيم عددية صحيحة من 0:255 فقط ( )
الإجابة خطأ

الفصل الرابع مشروح بالتفصيل فى مذكرة الحاوى بأقل جزئياته

:022yb4:

ارجو من سيادتكم اضافة الفصل الرابع وورد ويا ريت يكون شرح للمدرسين مش للطلبة لاني مش فاهمة ومش عارف اشرحة
ويا ريت السرعة لو سمحتم
الفصل الرابع مشروح بالتفصيل فى مذكرة الحاوى بأقل جزئياته

ياريت اعرف ايه الاجزاء الملغية فى حاسب ثالثه اعدادى بمدارس بورسعيد

ياريت اعرف ايه الاجزاء الملغية فى حاسب ثالثه اعدادى بمدارس بورسعيد
يا بختكوا يا بختكوا يا بختكوا يا بختكوا يا بختكووووووووووووووووووووووووووووا

انا عايزها بجملة for next فقططططططططططططططط ممكن يااستاذ

انا عايزها بجملة for next فقططططططططططططططط ممكن يااستاذ
ما ينفعش بجملة for next لوحدها لأن حضرتك بتشرط أن العدد الأول قد يكون 0 أو زوجى
فقبل جملة for nextيجب أن يكون هناك شرط بجملة If يحقق مطلبك وهو كما يلى :
كود الفردى بدأ بجملة شرطية لإختبار هل باقى قسمة العدد الأول على 2 يساوى 0 فهذا معناه أن العدد زوجى لذا يتم إضافة 1 للعدد الأول حتى يصبح العدد فردى ثم يتم إجراء الكود بطريقة طبيعية
و كود الزوجى بدأ بجملة شرطية لإختبار هل باقى قسمة العدد الأول على 2 لا يساوى 0 فهذا معناه أن العدد فردى لذا يتم إضافة 1 للعدد الأول حتى يصبح العدد زوجى ثم يتم إجراء الكود بطريقة طبيعية

بعد تنفيذ الامر التالى for x =2 to 10 step 3
ما هى آخر قيمة للمتغير X هل هى 8 ام 11؟؟
فالقيمه 8 هى اخر قيمه لاخر حلقه تكراريه... والقيمه 11 هى القيمه التى بسبها تم الخروج من الحلقه التكراريه فايهما يتم تخزينه فى المتغير × ؟؟؟؟
و هل الامر سيتختلف اذا كان الناتج سيظهر داخل الحلقه التكراريه اى قبل next ? او كان الناتج سيظهر خارج الحلقه التكراريه بعد next ?كما هو الحال فى الامرين التاليين

الاول :

for x =2 to 10 step 3

Msgbox (x )
next
الامر الثانى :


for x =2 to 10 step 3
next

Msgbox (x )

انا عايزها بجملة for next فقططططططططططططططط ممكن يااستاذ


Dim a , b , c as integer
If a mod b = 0 then
For c = a to b step2
Msgbox ( c )
Next
End if
بس ده لو زوجى

بعد تنفيذ الامر التالى for x =2 to 10 step 3
ما هى آخر قيمة للمتغير X هل هى 8 ام 11؟؟
فالقيمه 8 هى اخر قيمه لاخر حلقه تكراريه... والقيمه 11 هى القيمه التى بسبها تم الخروج من الحلقه التكراريه فايهما يتم تخزينه فى المتغير × ؟؟؟؟
و هل الامر سيتختلف اذا كان الناتج سيظهر داخل الحلقه التكراريه اى قبل next ? او كان الناتج سيظهر خارج الحلقه التكراريه بعد next ?كما هو الحال فى الامرين التاليين

الاول :

for x =2 to 10 step 3

Msgbox (x )
next
الامر الثانى :


for x =2 to 10 step 3
next

Msgbox (x )
قيمة x فى الذاكرة تغيرت كما يلى 2 ثم 5 ثم 8 ثم 11
فى الكود الأول
سيظهر ثلاث صناديق رسالة متتابعة بالقيم 2 ثم 5 ثم 8
فى الكود الثانى
سيظهر صندوق رسالة وحيد بالقيمة 11

قيمة x فى الذاكرة تغيرت كما يلى 2 ثم 5 ثم 8 ثم 11
فى الكود الأول
سيظهر ثلاث صناديق رسالة متتابعة بالقيم 2 ثم 5 ثم 8
فى الكود الثانى
سيظهر صندوق رسالة وحيد بالقيمة 11

تمام الكلام
بس المشكلة فى الكود الاول يأتى بالنوايا
قيمة x بعد انتهاء التكرار تخضع لنية واضع الامتحان هل القيمة الاخيرة التى تم عرضها داخل مربع الرسالة ام القيمة الفعلية التى انتهى عندها التكرار x = 11 ومن هنا يأتى الخلاف الدائم
اما الكود الثانى فلا خلاف اطلاقا فالناتج بالتأكيد x = 11

تمام الكلام
بس المشكلة فى الكود الاول يأتى بالنوايا
قيمة x بعد انتهاء التكرار تخضع لنية واضع الامتحان هل القيمة الاخيرة التى تم عرضها داخل مربع الرسالة ام القيمة الفعلية التى انتهى عندها التكرار x = 11 ومن هنا يأتى الخلاف الدائم
اما الكود الثانى فلا خلاف اطلاقا فالناتج بالتأكيد x = 11


حضرتك بتعبر فعلاً عن مشكلة حدثت وسوف تحدث فى كل امتحان
لأن واضع الإمتحان غالباً يأخذ سؤال من هنا أو هناك ويعجبه وبدون تفكير يضعه فى الإمتحان
فيحدث القيل والقال كالعادة بعد كل امتحان لأى محافظة

Try ...Catch تستخدم للتعامل مع الاخطاء - الاملائيه- المنطقيه - عند التشغيل
ايهما اصح

Try ...Catch تستخدم للتعامل مع الاخطاء - الاملائيه- المنطقيه - عند التشغيل
ايهما اصح


عند التشغيل

ملحوظة هامة :
1 - لإكتشاف الأخطاء التى تحدث أثناء تنفيذ البرنامج والتعامل معها نستخدم الأمر Try Catch فقط
2 - لتفادى الأخطاء التى تحدث أثناء تنفيذ البرنامج والتعامل معها نستخدم الأمر Try Catch و IsNumeric

كلمة me هل هى من الكلمات المحجوزة أأم أنها هى تعبر عن اسم النافذة ويمكن أين يعبر عن النافذة أى كلمة أخرى ولو هى تعبر عن النافذة بإذا كان البرنامج يحتوى على أكثر من نافذة فما هو الكلمات الآخرى التى تعبر عن النوافذ الآخرى

Me هى كلمة محجوزة تشير لنافذة النموذج Form الحالى الذى تكتب فيه الكود
بمعنى أنك لو بتكتب الكود داخل الـ Class التالى Public Class Form5
فإن Me تشير لنافذة النموذج Form5
بمعنى أنك لو بتكتب الكود داخل الـ Class التالى Public Class Form3
فإن Me تشير لنافذة النموذج Form3

كلمة me هل هى من الكلمات المحجوزة أأم أنها هى تعبر عن اسم النافذة ويمكن أين يعبر عن النافذة أى كلمة أخرى ولو هى تعبر عن النافذة بإذا كان البرنامج يحتوى على أكثر من نافذة فما هو الكلمات الآخرى التى تعبر عن النوافذ الآخرى
نعم أخي الفاضل كلمة Me هي كلمة من الكلمات المحجوزة وتشير الي النموذج الحالي

في كتاب الوزارة وفي اسئلة الفصل الثاني الخاص بالتفرع وفي أسئلة صح أم خطا الجملة رقم 5 غير مفهومة وهي ...تستخدم جملة select case في حالة اختبار اكثر من تعبير شرطي بجملة شرطية واحدة ...للعلم اجاب عنها بانها جملة صحيحة وهي بالنسبة لي غير مفهومة وارى انه كان من الأولى ان يقول ..تستخدم المعاملات المنطقية في حالة اختبار اكثر من تعبير شرطي بجملة شرطية واحدة . ثم في السؤال الثالث اعلن عن المتغير من النوع single وبالتالي فانه سيقبل الاعداد العشرية وفي الشروط ترك فجوة بين كل تعبير وآخر مثلا في السؤال 64.4 هي قيمة غير موجودة لأنه حدد نهاية ما بعده ب 64 وما قبلها كان يبدأ ب 65 والمدهش انه اجاب عنها بانه " مقبول " بمعنى انه لغى الكسر ...أفيدونا يرحمكم الله ..وأشكركم .

ارجو شرح الفصل الثالث

بنسبة للسؤال الثالث في الفصل الثاني تم تعديل النهايات لتصبح 65 بدل من 64 و 75 بدل من 74 وهكذا فتصبح اجابة مقبول صحيحة في حالة 64.4
في الفصل الثاني بداخل الكتاب نجد أن If ...then .....Elseif تستخدم في حالة وجود أكثر من تعبير شرطي وفي الكتاب أيضا أن جملة Select Case تعمل مثل جملة If ...then .....elseif
أم المعاملات المنطقية فتستخدم للربط بين التعبيرات الشرطية لتكوين الشروط المركبة

بنسبة للسؤال الثالث في الفصل الثاني تم تعديل النهايات لتصبح 65 بدل من 64 و 75 بدل من 74 وهكذا فتصبح اجابة مقبول صحيحة في حالة 64.4
في الفصل الثاني بداخل الكتاب نجد أن if ...then .....elseif تستخدم في حالة وجود أكثر من تعبير شرطي وفي الكتاب أيضا أن جملة select case تعمل مثل جملة if ...then .....elseif
أم المعاملات المنطقية فتستخدم للربط بين التعبيرات الشرطية لتكوين الشروط المركبة


جزاكم الله خيراً كلام سليم تماماً

لو سمحتم حد يشرح السؤال السادس
عند كتابة الكود يحتاج المبرمج لوضع تعليق معين لا يتم تنفيذه لا بد ان يسبقه :
1- علامة ! او 2- Rem
ما معني هذا ولا يوجد له شرح بالكتاب

1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
ارجو توضيح كيفيه الحصول على المتفير K

لو سمحتم حد يشرح السؤال السادس
عند كتابة الكود يحتاج المبرمج لوضع تعليق معين لا يتم تنفيذه لا بد ان يسبقه :
1- علامة ! او 2- rem
ما معني هذا ولا يوجد له شرح بالكتاب
الشرح موجود بالكتاب ص 14 بالفصل الأول

طلب زميل حل التدريب رقم 1 فى التدريبات العملية على الفصل الثانى ص 50 الخاص بعناصر الكيمياء فى مادة العلوم .
وقد طلب كتابة الكود بالستخدام جملة Select Case وتم تلبية طلبه ولكن كان الكود طويلاٍ بعض الشئ
وقد وجدت كود بسيط لحل هذه المشكلة وذلك باستخدام أكثر من متغير مع جملة Select Case
كما يلى :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim o As Boolean = Me.RadioButton1.Checked
Dim na As Boolean = Me.RadioButton2.Checked
Dim mg As Boolean = Me.RadioButton3.Checked
Dim al As Boolean = Me.RadioButton4.Checked
Select Case True
Case o = True
Me.Label4.Text = "O"
Me.Label5.Text = "8"
Me.Label6.Text = "16"
Case na = True
Me.Label4.Text = "Na"
Me.Label5.Text = "11"
Me.Label6.Text = "23"
Case mg = True
Me.Label4.Text = "Mg"
Me.Label5.Text = "12"
Me.Label6.Text = "24"
Case al = True
Me.Label4.Text = "Al"
Me.Label5.Text = "13"
Me.Label6.Text = "27"
Case Else
MsgBox("يرجى اختيار أحد العناصر")
End Select

End Sub
End Class

شكرا جزيلا للأستاذ / السيد شعبان .....
شكرا جزيلا للأستاذ / أحمد قرني .....
شكرا جزيلا للأستاذ / حسن الحاوي ..... جزيتم عنا كل خير ولكن في تمرين التقديرات الأستاذ سيد شعبان قال نغير النهايات لتصبح 85 بدلا من 84 وهكذا 75 بدلا من 74 و65 بدلا من 64 ما رايك لو غيرنا النهايات لتصبح 84.9 و75.9 و64.9 حتى لا يتم تكرار قيمة معينة مثل 65 مثلا التي اصبحت بداية التقدير جيد ونفس القيمة نهاية للتقدير مقبول ...صحيح انه سيختاره جيد وذلك لأنها ستقابله اولا في الشروط ...أشكركم جميعا وشكر خاص للاستاذ / حسن الحاوي على حل مثال عناصر العلوم باستخدام Select case ...

محتاج ملخص للمنهج

محتاج ملخص للمنهج

الكتاب المدرسى هو أفضل ملخص
هوا فيه ملخص زى الكتاب

كيف احل السؤال الثالث فى الاختبار الاول بالكتاب المالسؤال الثالث : أجب عما يلى :
1 – حدد قيمة كل متغير بعد تنفيذ الكود Code التالى
درسىDim N, K, C As IntegerC = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End

1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
ارجو توضيح كيفيه الحصول على المتفير K


لايجاد قيمة K لابد من معرفة عدد مرات التكرار اولا من N

11 , 6 , 1 N
7 , 1 K

عدد مرات التكرار 2
اذن 11 = N
7 = K
1 +C =C
11 =C

1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
ارجو توضيح كيفيه الحصول على المتفير K


لايجاد قيمة K لابد من معرفة عدد مرات التكرار اولا من N

11 , 6 , 1 N
7 , 1 K

عدد مرات التكرار 2
اذن 11 = N
7 = K
1 +C =C
11 =C

كيف احل السؤال الثالث فى الاختبار الاول بالكتاب المالسؤال الثالث : أجب عما يلى :
1 – حدد قيمة كل متغير بعد تنفيذ الكود code التالى
درسىdim n, k, c as integerc = 10
for n = 1 to 10 step 5
k = k + n
next
if n >= c then
c = c + 1
end
.....C.....k.....N
.....0.....0.....10
-------------------
.....1.....1.....10
.....6.....7.....10
....11....7.....10
....11....7.....11

1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
ارجو توضيح كيفيه الحصول على المتفير K

.....C.....k.....N
_____________
.....0.....0.....0
.....0.....0.....10
-------------------
.....1.....1.....10
.....6.....7.....10
....11....7.....10
_____________
....11....7.....11

هام وضروري

س : إقرأ التعليمات الآتية : وبعد تنفيذها اجب
Dim First As Integer = 20 , Second As Integer = 40
Dim Third As Integer = First + Second
Dim Total As Integer
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third

وبعد تنفيذها اوجد قيمة المتغير First و قيمة المتغير Second ناتج الشرط Third <= 50
قيمة المتغير Total



الاجابة الاتية صحيح لا لا
1 ) قيمة المتغير First = 30
2 ) قيمة المتغير Second = 50
3 ) ناتج الشرط Third <= 50 = False
4 ) قيمة المتغير Total = 140

هام وضروري

س : إقرأ التعليمات الآتية : وبعد تنفيذها اجب
Dim First As Integer = 20 , Second As Integer = 40
Dim Third As Integer = First + Second
Dim Total As Integer
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third

وبعد تنفيذها اوجد قيمة المتغير First و قيمة المتغير Second ناتج الشرط Third <= 50
قيمة المتغير Total



الاجابة الاتية صحيح لا لا
1 ) قيمة المتغير First = 30
2 ) قيمة المتغير Second = 50
3 ) ناتج الشرط Third <= 50 = False
4 ) قيمة المتغير Total = 140




.....Total ..... Third ....Second ...First
_____________
.......20.........40............---.........---
.......20.........40............60.........---
.......20.........40............60..........0
------------------
ناتج الشرط Third <= 50 = False و بالتالى ينفذ ما بعد Else
.......30.........40............60..........0
.......30.........50............60..........0
.......30.........50............60..........140

جزاكم الله خيراً كلام سليم
ولكن مش المفروض المتغير الثالث = الاول + الثانى بعد else وهى 30 + 50 = 80 اذن المجموع 160
وشكرا

جزاكم الله خيراً كلام سليم
ولكن مش المفروض المتغير الثالث = الاول + الثانى بعد else وهى 30 + 50 = 80 اذن المجموع 160
وشكرا

حضرتك ما كملتيش قراءة للأمر Total = First + Second + Third
30+50+60 = 140

جزاكم الله خيراً كلام سليم
الله يبارك في حضرتك

السلام عليكم
اخى الفاضل الاستاذ عاطف حسان
انا محتار فى اجابة هذا السالسؤال
الرجاء من حضرتك الاجابة علية مع الشرح
for i = 0 to 7
if (i mod 2 =0) thne
1- msgbox i+1
else if(i mod 3 =0) thne
2- msgbox i*1
else if(i mod 5 =0) thne
3- msgbox 2*1
else
4- msgbox i
end if
end sub

الشرط الاول اذا كان i يقبل القسمة على 2 والباقى 0 اذا الشوط تتحقق فى 2 , 4 , 6 ويكون ناتج الشرط 2 , 4 , 6
الشرط الثانى اذا كان i يقبل على3 والباقى 0 يتحقق فى 3,6 ويكون ناتج الشرط 1,4
الشرط الثالث يقبل على 5 يتحقق فى 5 ويكون ناتج الشرط -1
الشرط الرابع 1 , 7 ويكون ناتج الشرط -3, 3

بس حضرتك فى كتاب الفائز غير كدة

الشرط الاول اذا كان i يقبل القسمة على 2 والباقى 0 اذا الشوط تتحقق فى 2 , 4 , 6 ويكون ناتج الشرط 2 , 4 , 6
الشرط الثانى اذا كان i يقبل على3 والباقى 0 يتحقق فى 3,6 ويكون ناتج الشرط 1,4
ويكون ناتج الشرط -1
الشرط الرابع 1 , 7 ويكون ناتج الشرط -3, 3
الشرط الاول اذا كان i يقبل القسمة على 2 والباقى 0 اذا الشرط يتحقق فى 0, 2 , 4 , 6
الشرط الثانى اذا كان i يقبل القسمة على3 والباقى 0 اذا الشرط يتحقق فى 3 فقط
الشرط الثالث اذا كان i يقبل القسمة على 5 والباقى اذا الشرط 0 يتحقق فى 5
والخيار الإفتراضى الرابع ما بعد Else يتحقق فى 1 , 7

http://www.thanwya.com/vb/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAREAAABdCAIAAAA NG8V6AAAG+klEQVR4nO2d65GsIBCFiYuAiIdoSIZg2B8qdPNQW sXF8Xx1q+7qMAjIoYEBWgUAgAT13wkA4GVAMwDIgGYAkAHNACA DmgFAxrFmrA5KpX/G5QGMCtpeT4kzSmnru0MHpYLSofcLNbKs9cTmbVDmwiMfwlutl FJKaeus7i/Wbr5c/l12xkSpuKDuUchlfNA6GB2uVwdnBK9BFPi/IM2Pt1rSFPXz4fIXaiasslkuvd1aiJgNH/RijkxQOvjl8qj9iK2iKq1YA2eCtkWrsz09T9VRVDTkmimTcher hVG8XSTfoh+lPJD0WB5bNbzZol1bcXWuRnqry5Lcytg4Z5SKxb 3eNmaR2XLZobEvl79cM8VlLv1NVM6sajG1Hl2JMwLNmCU/Pmie5xiBt709h7LpWlJubCWeSjvng86eS9IWbbKJr6cVPsa/hTzfD0myYNWflXC8cGZprDbr1PUevlz+ozTjyP3bNUPL0epULq x/fMHcR7WHkLLTCpyMLR/15ZXGkTdRC5/ipy3leZLxjsJpa8a48v+9qD9d/pf6ZvVsjNfM/tgxNhWX2rl4p++dlenef2etfN7fX/dWb6K5SzMfL/8b5gCe1ozL87zGz/sJZbD2cwXvjNrrtYldOs08fExPq29QCd9ITKR7OM8Kkg5uyAeL FTqlma+Wf+TqXDMdS8VO5NLGWLMKbAmzCxmXHlWL+rhNBW34AL RjAF1tL9nEBslOjMzw8GU5pPtkDOpcPdksvEs3y8nJbjvszDKm r5RnLGdtLSlyciP93yi9z5Z/KoGDbIGbYH30cxEMmTP+CpfLPwHNjITPvV4a2TvTP6kIVm4sfw I0A4AMaAYAGdAMADKgGQBkQDMAyIBmAJABzQAgo0Mzjv9Ye/Qr6Vlke85ORS9Ym9Naw3fmoWTp/alYwFz02Rm+7oAuZX0DZIWvZD2bdL1cLSrJ9gbwEmSaWWpPffl 3ufine+/UiT1nJ5CuAa1qpprf3Ud2LqMDr0GgmbKXYsj60GzjwYm9U511O hkNvsSwY2uhTJPlEted/B4+cnDXEzzHGTuT3YyYa3unRndkrmpmN7/3Px7MypnxTOtmrhnh3qnZ7cxFzXiroZmf4IJmDvtmYzRzmqf7Z mSDZEDf7IcQzzVntY5uG3K1r/TNsA0dLPvcNHVtdqynv57fngdDML8CftMEQAY0A4AMaAYAGdAM ADKgGQBkQDMAyIBmAJABzQAgA5oBQMYkmhnul+vl6QlYfDMPU2 jmCb9c86UHC51fygyaecIv14TpkfjbeWJPHuhkBs3QJZr3++U6 s3dgvJ+wPLYOYJcmYQ7NhDDUL9dc6ckO1ui2H9DMJMyjmY27/XKd3qM2KD0R2JmXMoNmBvvlmjU90MxLmUQzA/1yTZseiQZwgM1EzKAZAN4ENAOADGgGABnQDAAyoBkAZEAzAMiA ZgCQAc0AIAOaAUDGsWYMOYI1esjo8r5So9OvBgDT0mVnDPW71D jvvJMTZ58DMBW9mtF6q+tcM0blZ357m04Hp39ngZWCeMAr6dXM 4hLQOKIZHzRxE7DIY7VFPmiiGb5tC1IB70agmeCC0sFvmok2pO 5pY/NFkS3ChWbA25FoJgRngtZMM62BjbdB6dXaUKAZ8HZkmlk6XbRv lgTgiJ2JfztufPi82dt8pgMQQo9mkmcvE0JhXtiwXgdPwtM5gI on9AsT1gD8I/hNEwAZ0AwAMqAZAGRAMwDIgGYAkAHNACADmgFABjQDgAxoBgAZ XZqp+D9J7lj6wneynrFKv3aDf6+x/lvOnvNfxVs98lDmCf23vQ+BnSnOFz44cPjkmdzDjvIeFfGtZ64 PPch8Nn9yL+W6ZkjTlS/7l5/hra0vDt+vtNueO8gwjti9+Fn+7DI9zEIsyU8xa+tpiPZi7D3N0 CfkmYpu0cqHjbGKs/mTeytXNcMdGrW9gh1FTJu/I3NW+Log7mG0Nq2GdDc9JBqek/6uYR4/r6IsPduFMJGMaf23/Tw39s1otauGr3P4teIGtzJkmxuv3h3p4S17ChyD5nHsUSmOAp7 YSh0fXzFn8yf3Pu4cz2TXwzRD7rN3L9QwswNZ4OUzW+vMNKlpZ t+u6XJMMdbOFCkY4b/t57ncN2t3YnrLuKi7B5rJppbSx4uI6FBiNz3FuKMIXa2DzdFzV ZO8LlKHabEetjInsXFdzOZP7q30aKacTNXWbUNHm9q72sC3r/WjI29LK2vNv1fe6WGqJUNZdr+aHjLC37KRKkWryjY0Q2YxmkWn reeTDNmMQ/6Vm8fc9/hvuzNF7+SXftO8syHc71mBL/MrmmHG50pdb00LALDyK5oB4Cme00w+pth4LAEA3AKqLAAyoBkA ZEAzAMiAZgCQAc0AIAOaAUAGNAOAjD+RLJruMFi1LgAAAABJRU 5ErkJggg==

السؤال هو ما يتم عرضه في lbl_display هو 15 كيف ؟؟؟؟؟

dim i as integer , sum as integer

for i = 1 to 5

sum = sum + i
next
lbl_display . text = sum


السؤال هو ما يتم عرضه في lbl_display هو 15 كيف ؟؟؟؟؟

اتمني الرد

dim i as integer , sum as integer

for i = 1 to 5

sum = sum + i
next
lbl_display . text = sum


السؤال هو ما يتم عرضه في lbl_display هو 15 كيف ؟؟؟؟؟

قيمة المتغير i = 1 , 2 , 3 , 4 , 5 , 6 ولكن عند القيمة i = 6 لن يكرر بل يخرج من التكرار
المرة الاولى
قيمة المتغير sum = sum + i وقيمة sum الابتدائية هى sum = 0 نقوم بجمعها على قيمة المتغير i = 1 ومنها تكون sum = 1

المرة الثانية
قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 1 نقوم بجمعها على قيمة المتغير i = 2 ومنها تكون sum = 3

المرة الثالثة
قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 3 نقوم بجمعها على قيمة المتغير i = 3 ومنها تكون sum = 6

المرة الرابعة
قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 6 نقوم بجمعها على قيمة المتغير i = 4 ومنها تكون sum = 10

المرة الخامسة
قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 10 نقوم بجمعها على قيمة المتغير i = 5 ومنها تكون sum = 15

وعند القيمة i = 6 لن يقوم بالتكرار
ومنها تكون قيمة المتغير sum = 15

اتمنى ان اكون قد وفقت فى شرح المثال

جزاك الله خير والحمد لله الشرح تمام
تسلم الايادي

2*2^(1+1)2/3+2-1*4+2

MsgBox(2 + 4 * 1 - 2 + 3 / 2 * (1 + 1) ^ 2 * 2)

الناتج 16

صح او خطأ
لا يجوز ان يحتوي الاسم علي الشرطي السفلي(_)

أكمل
علامة ...................... توضع في نهاية سطر الكود لكتابة الكود علي اكثر من سطر

تخير
يبدأ اسم المتغير بــ
( الشرطة السفلي - كلمة محجوزة - حرف - كل من الاختيار الاول والثالث صحيح )

الاسطر التي تبدأ بــ ......... او ...... تسمي ملاحظات او تعليقات ويهملها المترجم عند ترجمة كود البرنامج
أ - Dim أو As ب - Const أو Dim ج - (‘) أو Rem د - Rem أو Dim

0.7 الاجابة

2*2^(1+1)2/3+2-1*4+2
-⅔
أو الأصح

-0.6666666666666

أسئلة جميلة وخصوصاً السؤال الأخير أستاذ أحمد
بس لو تسمح لى تعليق على السؤال الثالث
ألا توحى الإختيارات على أن الإجابة الصحيحة هى ( كل من الاختيار الاول والثالث صحيح )

الاجابة هي 0.66

2*2^(1+1)2/3+2-1*4+2
=================================
التيجة 5.333333333
ملاحظة لا يوجد معامل الضرب * بعد القوس (1+1)*3
و ممكن اختلاف النتائج راجع لتنسيق الفقرة المختلف عند حفظه فى صفحة الموقع او نسخة الى الجهاز او رؤيته فى الصفحة
عاطف حسان

الاجابة هي ( سالب 0.67 )

=================================
التيجة 5.333333333
ملاحظة لا يوجد معامل الضرب * بعد القوس (1+1)*3
و ممكن اختلاف النتائج راجع لتنسيق الفقرة المختلف عند حفظه فى صفحة الموقع او نسخة الى الجهاز او رؤيته فى الصفحة
عاطف حسان


(1+1)*3 تصحيحها
(1+1)*1

تستخدم جملة Select Case فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة ( )

2*2^(1+1)*2/3+2-1*4+2
2*2^ 2 *2/3+2-1*4+2
2* 4 -2/3+2* 2 +4
8 -3+2/ 4 +4
2 - 3/ 4
-2/3
-0.666666666666666

الاجابة هتكون صح

من انواع البيانات التى تقبل قيم صحيحة وعشرية) string ـــ ـobject ــــshort)

الاجابة

صح او خطأ
لا يجوز ان يحتوي الاسم علي الشرطي السفلي(_) -------------------------------(خطأ )

أكمل
علامة .......الشرطي السفلي(_) ............... توضع في نهاية سطر الكود لكتابة الكود علي اكثر من سطر

تخير
يبدأ اسم المتغير بــ
( الشرطة السفلي - كلمة محجوزة - حرف - كل من الاختيار الاول والثالث صحيح )

الاسطر التي تبدأ بــ ......... او ...... تسمي ملاحظات او تعليقات ويهملها المترجم عند ترجمة كود البرنامج
أ - Dim أو As ب - Const أو Dim ج - (‘) أو Rem د - Rem أو Dim

في جملة For ... Next يمكن أن نكتب اسم متغير بعد كلمة Next أو لا نكتبه وإذا لم يتم كتابته يكون افتراضيا هو العداد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ما المقصود بذلك؟
وهل يمكن استخدام متغير آخر؟ وما الفائدة؟ وكيف؟

أسئلة مشابهة للسؤال الثالث رقم 3 فى الفصل الثالث بالكتاب
Dim r, sum As Integer
For r = 5 To 10 Step -1
sum = sum + r
Next
MsgBox(r)
MsgBox(sum)
الإجابة : r=5 و sum=0
Dim r, sum As Integer
For r = 10 To 5 Step 1
sum = sum + r
Next
MsgBox(r)
MsgBox(sum)
الإجابة : r=10 و sum=0
Dim r, sum As Integer
For r = 5 To 10 Step 0
sum = sum + r
Next
MsgBox(r)
MsgBox(sum)
الإجابة : يحدث خطأ من نوع Overflow بسبب السطر sum = sum + r حيث يتم تكرار الحلقة إلى مالا نهاية
Dim r, sum As Integer
For r = 10 To 5 Step 0
sum = sum + r
Next
MsgBox(r)
MsgBox(sum)
الإجابة : r=10 و sum=0
Dim r, sum As Integer
For r = 5 To 10 Step 0
MsgBox(r)
Next
MsgBox(r)
MsgBox(sum)
الإجابة : يحدث تكرار للحلقة التكرارية إلى مالا نهاية وسيتم تكرار الأمر MsgBox( r ) الأولى بقيمة 5 إلى مالا نهاية
Dim r, sum As Integer
For r = 10 To 5 Step 0
MsgBox(r)
Next
MsgBox(r)
MsgBox(sum)
الإجابة : r=10 و sum=0 حيث لن يتم تنفيذ الأوامر التى بداخل الحلقة التكرارية بتاتاً وسيتم الإنتقال إلى الأوامر التى تلى Next فيظهر صندوقى رسالة بـ r=10 و sum=0

لو سمحت وضح لنا المقصود بـــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــــــــــــ

يحدث خطأ من نوع Overflow بسبب السطر sum = sum + r حيث يتم تكرار الحلقة إلى مالا نهاية


وجزاك الله خيرا

السؤال الاول فى الفصل الثانى ال هو صح وخطأ
رقم (4) صح ولا خطأ ولو صح ازاى يقول معامل المقارنة or مع ان or معامل منطقى وليس معامل مقارنة

لو سمحتوا عايزة مذكرة عربى 3 ع عام و تجريبى انجليزى فيها اسئلة و اجاباتها موثوق فيها 100% علشان اعمل منها اختبارات لااوائل الطلبة و لكم جزيل الشكر

ممكن من حضراتكم ملخص لمنهج الترم الثاني يكون على الأكثر 7 ورقات

لو سمحت انا محتاج المنهج

فى مسائل حساب المجموع النهائى الترتيب يبدأ من اليسار ام من اليمين
2*(2+7 ) -2 =
علامة ............ تستخدم كمعامل لجملة التخصيص
فى حالة وجود اكثر من عملية لها نفس الاوليه كالضرب والقسمة فان ترتيب تنفيذها يكون ......
التعبير الشرطى يتكون من طرفين ؟
تستخدم جملة ........ الاكتشاف الاخطاء
degree>= 50 المتغير ........ والقيمة .........
يستخد الامر ........... لجعل السطر تعليق او ملاحظة
تستخدم select case عند استخدام اكثر من تعبير شرطى بجملة شرطية واحدة

[QUOTE=Smile To Live;5201974]فى مسائل حساب المجموع النهائى الترتيب يبدأ من اليسار ام من اليمين
2*(2+7 ) -2 = الاقواس ثم الضرب ثم الطرح حسب لاولوية يعنى الناتج -16
علامة = تستخدم كمعامل لجملة التخصيص
فى حالة وجود اكثر من عملية لها نفس الاوليه كالضرب والقسمة فان ترتيب تنفيذها يكون من اليسار لليمين
التعبير الشرطى يتكون من طرفين ؟ كلام سليم
تستخدم جملة Try/ Catchالاكتشاف الاخطاء
degree>= 50 المتغير degree والقيمة 50
يستخد الامر Rem لجعل السطر تعليق او ملاحظة
تستخدم select case عند استخدام اكثر من تعبير شرطى بجملة شرطية واحدة كلام سليم

اكتب ناتج الكود التالى:
username=username & "alhawy"

اكتب ناتج الكود التالى:
username=username & "alhawy"



الاجابة

username alhawy

for i = 1 to 15 step x
ماذا يحدث اذا
اذا كان المتغير x اكبر من صفر
بالشرح من فضلك

degree<=50
القيمة تساوى 50 ام القيمة اكبر من او تساوى 50
وهل rem تعتبر امر وفى السؤال ده كمان ممكن نجاوب ب علامة ؛ كما ذكرت بالكتاب وجزاك الله خيرا ا\ احمد قرنى على الاجابات الف شكر

degree<=50
القيمة تساوى 50 ام القيمة اكبر من او تساوى 50
وهل rem تعتبر امر وفى السؤال ده كمان ممكن نجاوب ب علامة ؛ كما ذكرت بالكتاب وجزاك الله خيرا ا\ احمد قرنى على الاجابات الف شكر


القيمة أقل من أو تساوى 50

أما rem تعتبر أمر من أوامر vb.net

ممكن نجاوب بالعلامه ' وهى على مفتاح ال ط

اكتب ناتج الكود التالى:
username=username & "alhawy"


إضافة أو ربط السلسلة الحرفية "alhawy" بقيمة المتغير username وتخزينة فى المتغير username

for i = 1 to 15 step x
ماذا يحدث اذا
اذا كان المتغير x اكبر من صفر
بالشرح من فضلك

سيتم التكرار لان قيمة البداية 1 والنهاية 15 يعنى اقل وبالتالى العداد فى وضع زيادة
اما لو كانت x اقل من صفر لن يكرر
اما لو كانت تساوى صفر سبنفذ دائما ويعطى رسالة بقيمة x = 1 دون تغيير

]ن اجابات الكتاب المدرسي علي موقع الوزارة[

ما اهمية اسم المتغير بعد كلمة Next ؟

كان فى الأصدرات السابقة لابد من كتابته

أم الأن ليس له تأثير يمكن كتابته أو نستغنى عنه

اريد تحضير 3ع

ما قيمة المتغير a النهائية بعد تنفيذ هذه الاكواد مع الشرح:
Dim a . sum as integer
a=1
Do while a<=3
a=a + 1
sum = sum + a
loop
(msgbox(sum

قيمة المتغير a = 4




قيمة المتغير sum = 6

ورد فى الفصل الثال هذا الجزء
أنه يجب كتابة كلمة انهاء في صندوق الإدخال بنفس التهجي المكتوب في الكود Code )
وفي حالة كتابة إنهاء أي بهمزة على الألف لن يخرج من الحلقة ويمكن تفادى ذلك بكتابة
الشرط بهذه الطريقة
"انهاء " < >And X إنهاء"< >" Do While X
 كما يمكنك لإضافة أي كلمات أخرى تريد استخدامها للخروج من الحلقة بنفس الأسلوب كمثال
"نهايه" < >And X "نهاية" < > And X "انهاء "< > And X " إنهاء"< > Do While X
 واستخدام المعامل المنطقي ) And ( هنا يعنى تنفيذ ما بداخل الحلقة طالما قيمة X لا تسا وى
كلمة "انهاء" و لا تسا وى كلمة "إنهاء" و لا تسا وى كلمة "نهاية" و لا تسا وى كلمة "نهايه"
و السؤال هو هل هنا استخدام معمل المقارنه and صحيح ؟؟؟؟؟؟؟؟؟ ام الافضل استخدام معامل المقارنه or ???
لان باستخدام and حتى يكون ناتج الشرط المركب صحيح لابد ان يكون كل الشروط صحيحه و هنا حتى يتم الخروج من الحلقه التكراريه لابد ان يقوم المستخدم بادخال كل هذه الاشكال لكلمه انهاء
ارجو التوضيح ....

ورد فى الفصل الثال هذا الجزء
أنه يجب كتابة كلمة انهاء في صندوق الإدخال بنفس التهجي المكتوب في الكود code )
وفي حالة كتابة إنهاء أي بهمزة على الألف لن يخرج من الحلقة ويمكن تفادى ذلك بكتابة
الشرط بهذه الطريقة
"انهاء " < >and x إنهاء"< >" do while x
 كما يمكنك لإضافة أي كلمات أخرى تريد استخدامها للخروج من الحلقة بنفس الأسلوب كمثال
"نهايه" < >and x "نهاية" < > and x "انهاء "< > and x " إنهاء"< > do while x
 واستخدام المعامل المنطقي ) and ( هنا يعنى تنفيذ ما بداخل الحلقة طالما قيمة x لا تسا وى
كلمة "انهاء" و لا تسا وى كلمة "إنهاء" و لا تسا وى كلمة "نهاية" و لا تسا وى كلمة "نهايه"
و السؤال هو هل هنا استخدام معمل المقارنه and صحيح ؟؟؟؟؟؟؟؟؟ ام الافضل استخدام معامل المقارنه or ???
لان باستخدام and حتى يكون ناتج الشرط المركب صحيح لابد ان يكون كل الشروط صحيحه و هنا حتى يتم الخروج من الحلقه التكراريه لابد ان يقوم المستخدم بادخال كل هذه الاشكال لكلمه انهاء
ارجو التوضيح ....
للخروج لابد ان يكون الشرط خطأ وليس صحيح

للخروج لابد ان يكون الشرط خطأ وليس صحيح
بارك الله فيك استاذ سيف وفعلاً للخروج من التكرار لابد ان يكون ناتج الشرط False وللإستمرار يكون ناتج الشرط True

السؤال الثالث في الفصل الثالث ص:bosyht9:فحة 79
سؤال اجابته Overflow انا مش فاهمه اصلاً

بصى overflow دى بتيجى لما انتى تكونى دخلتى قيمة اكبر او اصغر من المدى المحدد عندك

overflow رسالة تظهر عند ادخال قيمة اكبر من المدى المحدد لها عند التشغبل

السؤال الثالث في الفصل الثالث ص:bosyht9:فحة 79
سؤال اجابته Overflow انا مش فاهمه اصلاً
المفروض ان طالب كان عرف من قبل ان مدي integer موجب وسالب 2 مليار اولا
بس الاسئلة دي ما لم يتم تدريسها

هذا السؤال عن حلقة تكرارية لن تتوقف فلذلك كانت الاجابة overflow
لان الشرط كان 1>=R
وداخل الحلقة R=R-2
ومعنى ذلك أن الحلقة لن تتوقف لا قيمة R الاولى كانت 1

هذا السؤال عن حلقة تكرارية لن تتوقف فلذلك كانت الاجابة overflow
لان الشرط كان 1>=R
وداخل الحلقة R=R-2
ومعنى ذلك أن الحلقة لن تتوقف لا قيمة R الاولى كانت 1
ليس السبب ان لن تتوقف ولكن السبب ان المتغير من النوع integer
ولو كان من النوع single ستتوقف ويكون الناتج - ما لا نهاية

اريد شرح التحويل الضمني
واذا كان هناك تحويل ضمني لماذا يحدث خطأ عند ادخال نوع مختلف طالما هناك تحويل ضمني

يتم التحويل في حالة التخصيص غالبا
على أساس ان القيمة لابد أن تكون أو تحول إلي نوع المتغير أو الثابت أو الخاصية ... الخ

السبب طريقة تمثيل كل نوع تختلف عن الآخر وان تم تخزين قيمة واحدة
مثال
dim x as integer=5
dim y as single=5
طريقة تخزين 5 في x تختلف عن y

التحويل إما ان يكون صريح
أو يكون ضمني

التحويل الصريح
1- نسنخدم فيه دالة مثل
dim x as integer=Cint(textbox1.text
2- نسنخدم الدالة Parese
dim x as integer=integer.Parse(textbox1.text
3- استخدام التصنيف convert
dim x as Single=Convert.ToSingle(textbox1.text

وغيرها
إذا لم نستخدم أي مما سبق يقوم مترجم اللغة بعملية التحويل ضمنيا
وشكرا

عزيزى الاستاذ الفاضل قيمة العداد تتحقق فى كل مرة حيث لا يتوقف البرنامج و overflow رسالة تظهر عند ادخال قيمة اكبر من المدى المحدد لها عند التشغبل و المدى المخصص للنوع integer هو 10 خانات و بما ان التكرار يقل بمقدار 2 فإن القيم التى سوف تتحقق سوف تزيد عن الـ 10 خانات المسموح بها للبيان integer و هذا هو التفسير الصحيح لذلك

over flow /رسالة تأتى عندما يتحقق الشرط وان الناتج هنا -1 وسالب واحد اصغر من الصفر وهذا هو الشرط

جملة select case فعالة بشكل اكترعندما يكون التفرع معتمداً على قيمة متغير واحد فقط( )

الاجابة خطأ
عندما يكون أكثر مم متغير

جملة select case فعالة بشكل اكترعندما يكون التفرع معتمداً على قيمة متغير واحد فقط( )

اجابة صحيحة

صمم برنامج يعرض جدول ضرب ال3,4,6,9 باستخدام الاجراء sub

جملة select case فعالة بشكل اكثر عندما يكون التفرع معتمدا على قيمة متغير واحد فقط ( ) صح ولا خطأ

http://img404.imageshack.us/img404/3461/685957333.gif

جملة select case فعالة بشكل اكثر عندما يكون التفرع معتمدا على قيمة متغير واحد فقط ( ) صح ولا خطأ

جملة select case فعالة بشكل اكثر عندما يكون التفرع معتمدا على قيمة متغير واحد فقط ( ) صح

dim n,c,k as integer
c=10
for n=1 to 10 step 5
k=k+n
next
if n >= c then
c=c+1
end if
المطلوب تحديد قيمة كلا من c , k , n ???
ارجو حل هذا السؤال مع الشرح ؟؟

ارجو نشر خطة لعلاج الضعاف في مادة الحاسي مطلوبة مني ضروري جداً

صمم برنامج يعرض جدول ضرب ال3,4,6,9 باستخدام الاجراء sub

إن كنت فهمتك صح .... خد الكود ده ....

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
() ali
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــ
() Sub ali
Dim x As Integer = 1
"" = Me.Label1.Text
"" = Me.Label2.Text
"" = Me.Label3.Text
"" = Me.Label4.Text
For x = 1 To 12
Me.Label1.Text = Me.Label1.Text & x & "x" & 3 & "=" & 3 * x & vbCrLf
Me.Label2.Text = Me.Label2.Text & x & "x" & 4 & "=" & 4 * x & vbCrLf
Me.Label3.Text = Me.Label3.Text & x & "x" & 6 & "=" & 6 * x & vbCrLf
Me.Label4.Text = Me.Label4.Text & x & "x" & 9 & "=" & 9 * x & vbCrLf
Next
End Sub
End Class

صح ام خطأ مع التوضيح
يشترط عند الاعلان الاجراءات procedures ان تستخدم وسيط واحد على الاقل

صح ام خطأ مع التوضيح
يشترط عند الاعلان الاجراءات procedures ان تستخدم وسيط واحد على الاقل
لا يشترط استخدام وسائط داخل الاجراء

مثال كتاب المدرسة الخاص بعرض الاعداد الفردية والزوجية بس هنا لو استخدمنا الاجراء لعرض الاعداد الفردية فقط لا يشترط استخدام وسيط او الزوجية فقط

ولكن فى حالة عرض الاعداد الفردية والزوجية يشترط استخدام وسيط لتحديد رقم البداية للعدد الفردى ورقم البداية للعدد الزوجى

عندي سؤال يا جماعة عايزة اعرف الاجابة عليه

كلمة Else في جملة ( If..... then ........else)
افتراضية / اجبارية / افتراضية اختيارية / افتراضية اجبارية
والسبب

والسؤال : استخدام Else اختياري في جملة IF

[quote=أحـمد قرنى;5209150]لا يشترط استخدام وسائط داخل الاجراء

مثال كتاب المدرسة الخاص بعرض الاعداد الفردية والزوجية بس هنا لو استخدمنا الاجراء لعرض الاعداد الفردية فقط لا يشترط استخدام وسيط او الزوجية فقط

ولكن فى حالة عرض الاعداد الفردية والزوجية يشترط استخدام وسيط لتحديد رقم البداية للعدد الفردى ورقم البداية للعدد الزوجى

[/quote
شكراااااااااااااااااااااااااااااااااااااااااااا جزيلا

عندي سؤال يا جماعة عايزة اعرف الاجابة عليه

كلمة Else في جملة ( If..... then ........else)
افتراضية / اجبارية / افتراضية اختيارية / افتراضية اجبارية
والسبب

والسؤال : استخدام Else اختياري في جملة IF

dim n,c,k as integer
c=10
for n=1 to 10 step 5
k=k+n
next
if n >= c then
c=c+1
end if
المطلوب تحديد قيمة كلا من c , k , n ???
ارجو حل هذا السؤال مع الشرح ؟؟

قيمة كلا من c , k , n


n هى العداد يبدء ب 1 ويزيد بقدار 5 اذن قمته 1 --------- 6 ---------- 13 وبهذه الحالة نجد ان عدد مرات التكرار 2

وسوف نقوم بتكرار k=k+n لايجاد قيمة ال k

وبالتخصيص k=0+1 --------------------اول التكرار

k=1+6 اذن = 7



لايجاد c يوجد شرط n >= c وهذا الشرط حقيقى
اذن

1 + 10= c
11 = c
7 = k
11 = n
وبالتوفبق

الاجاية صح
جملة else اختيارى وليس اجبارى

من فضلك أريد الاجابة على هذا السؤال
الخصائص مكان لتخزين (البيانات - المعلومات - كلاهما )

الخصائص مكان لتخزين البيانات

اريد حل المسئلة
5+2-3 *20/2

5+2-3 *20/2
3 - 2 * 10
3 - 20
17

الناتج هو (1) حيث ان الضرب قبل القسمة

5+2-3 *20/2
3 - 2 * 10
3 - 20
17
5+2-3 *20/2
3 - 2+ 5* 10
3 -2+ 50
3 - 52
49

فى اسئلة الفصل التانى ورد السؤال :
باستخدام معامل المقارنة Or يجب أن يكون كافة نواتج الشروط المستخدمة False لكي يكون الناتج False
والاجابة فى حلول اسئلة الكتاب المدرسى صحيحة
السؤال هنا هى or اصلا معامل مقارنة والا هى معامل منطقى

من فضلك أريد الاجابة على هذا السؤال
) عرض قيمة المتغير FirstName فى سطر و المتغير UserAge فى سطر جديد داخل الأداة LblUserData

(1 يتحقق الحدث [ SelectedIndex – SelectedIndexChanged – Items ] عند إختيار عنصر من عناصر الأداة ListBox

LblUserData.Text = FirstName & vbCrLf & UserAge

(1 يتحقق الحدث [ SelectedIndex – SelectedIndexChanged – Items ] عند إختيار عنصر من عناصر الأداة ListBox
SelectedIndexChanged

فى اسئلة الفصل التانى ورد السؤال :
باستخدام معامل المقارنة Or يجب أن يكون كافة نواتج الشروط المستخدمة False لكي يكون الناتج False
والاجابة فى حلول اسئلة الكتاب المدرسى صحيحة
السؤال هنا هى or اصلا معامل مقارنة والا هى معامل منطقى

or منطقي
بس الوزارة ستقول لك مش مشكلة منطقى او مقارنة المهم اصل الموضع
وتحفظ هكذا الاجابة صح حسب موقع الوزارة
مفيش مجاهد الكتروني يخلصلنا بقى منه

اجابة حضرتك خطأ لان انت كدة قسمت قبل الضرب وذلك غير صحيح والصح الضرب اولا ثم القسمة
وبالتالى الناتج هيطلع 1

القاعدة العامة أنه إذا تساوت أولويات تنفيذ العمليات الحسابية مثل الضرب/القسمة أو الجمع/الطرح ، فإن أسبقية تنفيذ العمليات الحسابية تكون من اليسار إلى اليمين
بمعنى أن تنفيذ عملية الضرب ليست قبل عملية القسمة
وأيضاً أن تنفيذ عملية القسمة ليست قبل عملية الضرب
وفى مثالنا هذا جاءت عملية القسمة قبل عملية الضرب أى سبقتها من اليسار

ربط المتغيرين الحرفيين FName , Lname ثم تخصيص القيمة للمتغير FullName

LblUserData.Text = FirstName & vbCrLf & UserAge
من فضلك أريد الاجابة على هذا السؤال
) عرض قيمة المتغير FirstName فى سطر و المتغير UserAge فى سطر جديد داخل الأداة LblUserData


شكرا جزيلا

SelectedIndexChanged
شكرا جزيلا

FullName = LName & FName
أو
FullName = LName + FName

FullName = LName & FName
أو
FullName = LName + FName
شكرا جزيلا

فى اسئلة الفصل التانى ورد السؤال :
باستخدام معامل المقارنة or يجب أن يكون كافة نواتج الشروط المستخدمة false لكي يكون الناتج false
والاجابة فى حلول اسئلة الكتاب المدرسى صحيحة
السؤال هنا هى or اصلا معامل مقارنة والا هى معامل منطقى

or معامل منطقي
والإجابة هنا صحيحة

أرجو الاجابة
صح أم خطأ
تستخدم جملة ( select case) فى حالة وجود أكثر من احتمالين للتفرع

أرجو الاجابة
صح أم خطأ تستخدم جملة ( select case) فى حالة وجود أكثر من احتمال للتفرع

خطأ
بل تستخدم جملة ( select case) فى حالة وجود احتمال أو أكثر للتفرع

أريد اجابة هذا السؤال
فى كتاب المدرسة صفحة 79 السؤال الثالث رقم 2 لماذا الناتج overflow ؟ارجو التوضيح والكود كالتالى


dim r as integer=1
do while r<=1
r=r-2
loop
msgbox(r

أريد اجابة هذا السؤال
فى كتاب المدرسة صفحة 79 السؤال الثالث رقم 2 لماذا الناتج overflow ؟ارجو التوضيح والكود كالتالى


dim r as integer=1
do while r<=1
r=r-2
loop
msgbox(r




حيث سيتم تكرار الحلقة إلى مالا نهاية . و أثناء هذا التكرار ستقل قيمة r بالعدد 2 إلى أن يتعدى قيمة r سالب - 2147483647 وعندها تظهر رسالة خطأ من نوع Over Flow

جزاكم الله خيراً

اضافه العنصر مصر الى الاداه List Box

اضافه العنصر مصر الى الاداه List Box

ListBox1.Items.Add("مصر")

ممكن حد يشرحلى الاجراءات والدوال

وما معنى ان الاجراء لا يعود بقيمه والداله تعود بقيمه

ممكن حد يشرحلى الاجراءات والدوال

وما معنى ان الاجراء لا يعود بقيمه والداله تعود بقيمه




انا كمان محتاج شرح للفصل الرابع ضروررررررررررررررررري وفي اقرب وقت
ارجوكم المساعدة

عرض قيمة المتغير FirstName فى سطر و المتغير UserAge فى سطر جديد داخل الأداة LblUserData

عرض قيمة المتغير FirstName فى سطر و المتغير UserAge فى سطر جديد داخل الأداة LblUserData
LblUserData = FirstName & vbCrLf & UserAge
أو
LblUserData = FirstName & vbCrLf
LblUserData = LblUserData & UserAge

هل الداله لها وسيط زى الاجراء؟
هل الداله يمكن الاعلان عنها بدون وسيط؟
هل يمكن استخدام أكثر من وسيط عند الاعلان عن الداله ؟
هل الاجراء ليس له ناتج ؟
هل يمكن الاعلان عن الداله مره واستدعاؤها أكثر من مره ؟
هل لا يمكن التخصيص للاجراء ؟
هل الداله Input Box والداله Time of Day من الدوال المعرفه ؟
هل دالة الجمع Sum ودالة المضروب Factorial من الدوال الغير معرفه ؟

هل الداله لها وسيط زى الاجراء؟ نعم
هل الداله يمكن الاعلان عنها بدون وسيط؟نعم
هل يمكن استخدام أكثر من وسيط عند الاعلان عن الداله ؟نعم
هل الاجراء ليس له ناتج ؟نعم
هل يمكن الاعلان عن الداله مره واستدعاؤها أكثر من مره ؟نعم
هل لا يمكن التخصيص للاجراء ؟ نعم
هل الداله Input Box والداله Time of Day من الدوال المعرفه ؟الداله Input Box من الدوال المعرفه و Time of Day ليست دالة بل خاصية من النوع Read Only
هل دالة الجمع Sum ودالة المضروب Factorial من الدوال الغير معرفه ؟ نعم

الإجابة فى الأعلى

السلام عليكم ورحمة الله وبركاتة
برجاء توضيح في الفصل الرابع معني الدالة ( Factorial ) وما معني تعود بقيمة ؟ وما معني return ؟
أتمني أن يشرح لي أحد الأساتذة هذة الأكواد و التدريبات مشكوراً
أخوكم في الله
سمير صبري

السلام عليكم ورحمة الله وبركاتة
برجاء توضيح في الفصل الرابع معني الدالة ( Factorial ) وما معني تعود بقيمة ؟ وما معني return ؟
أتمني أن يشرح لي أحد الأساتذة هذة الأكواد و التدريبات مشكوراً
أخوكم في الله
سمير صبري
الدالة Factorialهو اسم للدالة قد يكون أى اسم آخر معبر عن وظيقتها أو مضمونها قد يكون مثلاً Mdroup . ومضروب العدد 5 مثلاً هو 5*4*3*2*1
Public Class Form1
Function Factorial(ByVal Number As Integer) As Integer
Dim i As Integer
Dim res As Integer = 1
For i = 1 To Number
res = res * i
Next
Return res
End Function
Private Sub Button1_Click(ByVal ...
MessageBox.Show(Factorial(8))
End Sub
End Class
1 الإعلان عن الدالة Factorialمن النوع العددى Integer وتستقبل قيمة ( معامل أو وسيط ) واحدة هى Number.
2 الإعلان عن معامل ( وسيط ) واحد للدالة Factorialهو Numberمن النوع العددى Integer.
3 الإعلان عن المتغيرi كعداد لعملية التكرار من النوع العددى Integer.
4الإعلان عن المتغير res لتخزين ناتج حساب مضروب العدد من النوع العددى Integer الذى يوافق نوع بيان الدالة Sum ، وهو يمثل القيمة الراجعة ( العائدة ) من الدالة Factorialعند استدعائها.
5 تم إظهار القيمة الراجعة ( العائدة ) من الدالة Factorialفى صندوق رسالة MessageBox بعد استدعاء الدالة ، وذلك بعد استقبال القيمة 8 كـ Argument للدالة Factorial.
6تم استخدام الدالة المعرفة Show( ) المعلنة داخل التصنيف MessageBox والتى من خلالها يمكن إظهار صندوق رسالة MessageBox يتحدد محتوياته حسب الوسائط المعطاه للدالة Show( ).
7 يمكن كتابة الأمر For i = 1 To Number بهذه الطريقة وستؤدى لنفس النتائج For i = Number To 1 step -1 .

أشكرك أستاذ حسان الحاوي أستاذي العزيز علي ردك وشرحك
أرجو أن يتسع صدرك لي
ما معني return ؟ القيمة الراجعة لماذا وأين استخدمها
أخوك
سمير صبري

القيمة الراجعة res فى التمرين السابق تمثل ناتج الدالة Factorial
وهذه الدالة تعود بالقيمة res بسبب الأمر return
حيث نستطيع عند استدعاء الدالة Factorial فى أى إجراء آخر استخدام هذه القيمة الراجعة res أو هذا الناتج فى أى إجراء آخر وذلك بوضع الدالة Factorial فى الطرف الأيمن من أمر التخصيص أو بوضعها فى أى خاصية أخرى أو دالة أخرى أو وسيلة أو متغير
مثل Label1.Text=Factorial(8)
أو MessageBox.Show(Factorial(8))
أو ListBox1.Items.Add(Factorial(8))

أشكرك أستاذ حسن علي ردك و اهتمامك
بارك الله لك
أخوك سمير صبري

ياريت حد يضيف تحضير الفصل الدراسي الثاني للصف الثالث الإعدادي ويكون تحضير معتمد

صح او خطأ
لا يجوز ان يحتوي الاسم علي الشرطي السفلي(خطأ)

أكمل
علامة .الشرطة السفلي.. توضع في نهاية سطر الكود لكتابة الكود علي اكثر من سطر

تخير
يبدأ اسم المتغير بــ
( الشرطة السفلي - كلمة محجوزة - حرف - كل من الاختيار الاول والثالث صحيح )

الاسطر التي تبدأ بــ ......... او ...... تسمي ملاحظات او تعليقات ويهملها المترجم عند ترجمة كود البرنامج
أ - Dim أو As ب - Const أو Dim ج - (‘) أو Rem د - Rem أو Dim
__________________

C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
أنا فاهم قيمة c,k لكن مشفاهم n=11 أزاى المفروض تساوى 13 والتى هى نهاية التكرار فلى العداد ارجو شرح المثال بالتفصيل ولكن سريعا جدا من فضلكم

اذا ذكرت قيمة العداد بعد الحلقة التكرارية فأنها تأخذ القيمة الأعلى من End
و هنا العداد N بعد Next أى بعد نهاية الحلقة فكانت القيم داخل الحلقة ( 1 , 6 )
و قيمته بعد Next ستكون بزيادة 5 و هى (11)
و بالتالى فى الشرط (N > = C) ستكون N تساوى 11 و C تساوى 10 فيكون قيمة الشرط (True)
و سيتم تنفيذ ما بعد (Then) أى (C= C + 1) و ستكون c تساوى 11
و هذا المثال الوحيد الذى تم فيه ذكر العداد بعد Next

في البداية عند For ثيمة العداد تساوي واحد فيبدأ التكرار حتى نصل إلي Next فنويد قية N بمقدار 5 فتصبح 6 ونقارن هل هي أكبر من قيمة النهاية فالاجابة خطأ فيتم تنفيذ التكرار مرة أخرى حتي نصل إلي Next فنويد N بمقدار 5 فتصبح 11 ونقارن هل هي أكبر من قيمة النهاية فالاجابة صحيحة فينتهي التكرار ويبدأ بتنفيذ الاوامر التي تلي Next وبذلك تصبح n تساوي 11

قيمة كلا من c , k , n


n هى العداد يبدء ب 1 ويزيد بقدار 5 اذن قمته 1 --------- 6 ---------- 13 وبهذه الحالة نجد ان عدد مرات التكرار 2

وسوف نقوم بتكرار k=k+n لايجاد قيمة ال k

وبالتخصيص k=0+1 --------------------اول التكرار

k=1+6 اذن = 7



لايجاد c يوجد شرط n >= c وهذا الشرط حقيقى
اذن

1 + 10= c
11 = c
7 = k
11 = n
وبالتوفبق

ليه مكملناش التكرار فى المعادله k=k+n لحد القيمه 11 ل n ليه وقفنا لحد قيمه n ب 6 يعنى تبقي المعادله كده k=7+11= 18?????????????????????????????????????

لا ن 11 اكبر من قيمة نهايه العداد وهى 10 وايضا عدد مرات التكرار 2 فقط
وبالتوفبق

علمنا ان الدالة Isnumeric من الدوال المعرفة والتى لها ناتج True او False حسب محتوى مربع الكتابة سواء اذا كان عددى ام حرفى
واذا كان عددى تاخذ الدالة القيمة True غير ذلك تأخذ القيمة False

ولكن بتنفيذى لهذ الكود
Dim a As Boolean
MsgBox(IsNumeric(a))
أعطى ناتج True مع العلم ان المتغير a ليس له ناتج عددى بل ناتجه منطقى فما تفسير ذلك

وجزاكم الله خيراً

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا

الخير كل الخير لكم ان شاء الله

الخير كل الخير لك ان شاء الله ولكل اعضاء المنتدى

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا
==============================
أستاذنا العزيز شكرا لحضرتك لكن لى تعليق و هو خاص بالعبارة

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

و الأدق هو من وجهة نظرى
حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية False

Dim x as Boolean
MsgBox(x)0
قيمة المتغير x التى تظهر فى مربع الرسالة هى False


===============================================
عاطف حسان / ميت موسى

Dim sum, x As Integer
sum = 0
x = 6
Do While x < 10
s um= s um+ x
x = x + 1
Loop
عدد مرات التكرار وياريت الشرح بشء من التفصيل

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا
انا لله وانا اليه راجعون
IsNumeric returns True if the data type of Expression is Boolean, Byte, Decimal, Double, Integer, Long, SByte, Short, Single, UInteger, ULong, or UShort, or an Object that contains one of those numeric types. It also returns True if Expression is a Char or String that can be successfully converted to a number.
IsNumeric returns False if Expression is of data type Date or of data type Object and it does not contain a numeric type. IsNumeric returns False if Expression is a Char or String that cannot be converted to a number.
هذه هي الدالة
بدون تغليف او فلسفة لانتصار لرأي

==============================
أستاذنا العزيز شكرا لحضرتك لكن لى تعليق و هو خاص بالعبارة

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

و الأدق هو من وجهة نظرى
حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية False

Dim x as Boolean
MsgBox(x)0
قيمة المتغير x التى تظهر فى مربع الرسالة هى False


===============================================
عاطف حسان / ميت موسى


استاذ عاطف الموضوع باختصار ان
IsNumeric لها حالات true وحالات false من بين حالات ال true هي boolean
وخير الكلام ما قل ودل
بس الان على رأي اخوك الاستاذ حسن.
سمك لبن تمر هندي

نلجأ للإعلان عن دالة Function فى حالة إذا ما كان لدينا Code سينتج ( تعود ) منه قيمة نحتاجها

يعني اية ينتج منه قيمة نحتاجها

الإجراء Sub
لا يمكن تخصيص قيمة لها ، وإنما تستدعى باسمها فتنفذ الأوامر التى بها ،
ليس لها قيمة مخزنة فى الذاكرة لأنها لا تعود بقيمة وليس لها ناتج
ليس لها نوع بيان Data Type لأنها لا تعود بقيمة
لا يجوز أن تكتب فى أى جمل تخصيص نهائياً
قد يكون لها وسائط ومعاملات قد تكون قيم مجردة أو متغيرات أو ثوابت أو دوال
تكتب فى سطر أوامر بحد ذاتها

الدالة Function
لا يمكن تخصيص قيمة لها ، وإنما تستدعى باسمها فتنتج قيمة تخزن بها
يمكن استخدام القيم المخزنة بها فى الذاكرة و لها ناتج
لها نوع بيان Data Type هو نفس نوع بيان القيمة الراجعة
تكتب فى جمل التخصيص على يمين معامل التخصيص فقط ، لأنها لا يخصص لها قيمة
قد يكون لها وسائط ومعاملات قد تكون قيم مجردة أو متغيرات أو ثوابت
لا يجوز أن تكتب كما هى فى سطر أوامر بحد ذاتها

انا مش فاهم الكلام دا ارجوكم محتاج شرح ضروري

علمنا ان الدالة Isnumeric من الدوال المعرفة والتى لها ناتج True او False حسب محتوى مربع الكتابة سواء اذا كان عددى ام حرفى
واذا كان عددى تاخذ الدالة القيمة True غير ذلك تأخذ القيمة False

ولكن بتنفيذى لهذ الكود
Dim a As Boolean
MsgBox(IsNumeric(a))
أعطى ناتج True مع العلم ان المتغير a ليس له ناتج عددى بل ناتجه منطقى فما تفسير ذلك

وجزاكم الله خيراً


عزيزي الأستاذ أحمد: أنا لست مثل حضراتكم في لغة Vb ولكن معلوماتي هي
- إذا تم الإعلان عن متغير من النوع Boolean ولم يخصص له قيمة فإن قيمته الافتراضية تكون False
- إذا تم اختبار متغير من النوع Boolean باستخدام الدالة IsNumeric فإن الناتج في حالة قيمته True أو False يكون True
وذلك لأن القيمة True أو القيمة False تعتبر قيمة عددية مع هذه الدالة.
وللجميع وافر التقدير والاحترام

تستخدم جملة Select Case فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة. (صح )
لو سمحتوا حد يوضح لى هذه العبارة
وللجميع وافر التقدير والاحترام

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل


Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا

كتب true بالخطأ
تصحيح القيمة الأفتراضية false

==============================
أستاذنا العزيز شكرا لحضرتك لكن لى تعليق و هو خاص بالعبارة

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

و الأدق هو من وجهة نظرى
حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية False

Dim x as Boolean
MsgBox(x)0
قيمة المتغير x التى تظهر فى مربع الرسالة هى False


===============================================
عاطف حسان / ميت موسى


كتبت بالخطأ معذرة

تستخدم جملة Select Case فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة. (صح )
لو سمحتوا حد يوضح لى هذه العبارة
وللجميع وافر التقدير والاحترام


سبق لي الرد على أحد الزملاء بما يلي

الجملة الشرطية Conditional Statement يقصد بها جملة Select Case أو جملة If التي من خلالها يحدث التفرع.
Conditional Statements
Conditional statements allow conditional execution of statements based on expressions evaluated at run time.
ConditionalStatement ::= IfStatement | SelectStatement
من كتاب "Visual Basic Language Specification 10.0"

التي تحتوى على تعبير expression أو أكثر الذي يلي كل كلمة Case والذي يتم اختباره حتى ينفذ الكود الذي يليه او لا ينفذ ثم ينتقل للتعبير التالي في حالة لا وفي حالة نعم ينفذ الكود الذي يلية ثم يتفرع إلى ما بعد جملة select case موضع السؤال

اذا السؤال : تستخدم جملة (Select Case) فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة إجابتة تكون صح

من يريد المزيد من التفاصيل
استخدم العبارة "Conditional statements" في عملية البحث وشكرا

:av4056bb7jp3:كلمة else اجبارية افتراضية حيث:
1- اجبارية : حيث الجملة If ..then ..else.. وليست if ..then حتى تكون اختيارية
2- افتراضية : حيث تفترض شرط غير مكتوت بعد كلمة else عكس الشرط الذى بعد if
ولذلك كلمة elseاحبارية افتراضية فى جملة If ..then ..else

السلام عليكم
أرجوا الجواب علي السؤال الآتي وتوضيحه بارك الله فيكم وهو في كتاب المدرسة في الفصل الرابع

القيمة الراجعة للدالة (Area) هى (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer.
هل هي صح أم خطأ مع التوضيح
بوركتم

:av4056bb7jp3:كلمة else اجبارية افتراضية حيث:
1- اجبارية : حيث الجملة If ..then ..else.. وليست if ..then حتى تكون اختيارية
2- افتراضية : حيث تفترض شرط غير مكتوت بعد كلمة else عكس الشرط الذى بعد if
ولذلك كلمة elseاحبارية افتراضية فى جملة If ..then ..else:av4056bb7jp3:

:av4056bb7jp3:كلمة else اجبارية افتراضية حيث:
1- اجبارية : حيث الجملة If ..then ..else.. وليست if ..then حتى تكون اختيارية
2- افتراضية : حيث تفترض شرط غير مكتوت بعد كلمة else عكس الشرط الذى بعد if
ولذلك كلمة elseاحبارية افتراضية فى جملة If ..then ..else:av4056bb7jp3:

عندي سؤال يا جماعة عايزة اعرف الاجابة عليه

كلمة Else في جملة ( If..... then ........else)
افتراضية / اجبارية / افتراضية اختيارية / افتراضية اجبارية
والسبب

والسؤال : استخدام Else اختياري في جملة IF
:av4056bb7jp3:كلمة else اجبارية افتراضية حيث:
1- اجبارية : حيث الجملة If ..then ..else.. وليست if ..then حتى تكون اختيارية
2- افتراضية : حيث تفترض شرط غير مكتوت بعد كلمة else عكس الشرط الذى بعد if
ولذلك كلمة elseاحبارية افتراضية فى جملة If ..then ..else:av4056bb7jp3:

السلام عليكم
أرجوا الجواب علي السؤال الآتي وتوضيحه بارك الله فيكم وهو في كتاب المدرسة في الفصل الرابع

القيمة الراجعة للدالة (Area) هى (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer.
هل هي صح أم خطأ مع التوضيح
بوركتم

القيمة الراجعة للدالة (Area) هى ليست (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer
وانما ناتج الدالة من النوع Single ( أى نوع البيان)
أما ناتج الدالة كما فى باقى المثال هو ناتج مضروب العددres :bosyht9:

جملة select case فعالة بشكل اكترعندما يكون التفرع معتمداً على قيمة متغير واحد فقط( )

اجابة صحيحة فى كتاب المدرسة بالنص
:bosyht9:

القيمة الراجعة للدالة (Area) هى ليست (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer
وانما ناتج الدالة من النوع Single ( أى نوع البيان)
أما ناتج الدالة كما فى باقى المثال هو ناتج مضروب العددres :bosyht9:
أختي هي ف كتاب المدرسة في سؤال صح أم خطأ
مكتوب في السؤال نصا
هكذا
القيمة الراجعة للدالة (Area) هى (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer. ( )
فهل هي خطأ أم صح
مع التوضيح

السؤال الثالث في الفصل الثالث ص:bosyht9:فحة 79
سؤال اجابته Overflow انا مش فاهمه اصلاً
الكود كما يلى
Dim r As Integer = 1
Do While r <= 1
r = r + 2
Loop
MsgBox(r)
الشرط فى الحالة الأولى صحيح r <= 1 حيث قيمة r=1
فتتغير قيمة r وتزيد بمقدار 2 وتصبح 3 وعند التحقق من الشرط للمرة الثانية يكون الشرط خطا فلا يحدث التكرار وتصبح قيمة r النهائية 3 وتظهر فى مربع الرسالة ويكون الاختيار من بين الاجابات (0-2-overflow)
وتكون الاجابة هى overflowحيث هى قيمة أكبر من 0 أو 2 :022yb4:

أختي هي ف كتاب المدرسة في سؤال صح أم خطأ
مكتوب في السؤال نصا
هكذا
القيمة الراجعة للدالة (Area) هى (Single) كما هو موضح فى إعلانها :
Function Area(ByVal radius As Single) As Integer. ( )
فهل هي خطأ أم صح
مع التوضيح

اسف
رايت السؤال فى الكتاب
العبارة خطا حيث نوع البيان للدالة هو integer
Function Area(ByVal radius As Single) As Integer
أما وسائط الدلة هى من النوع Single
:av4056bb7jp3:

Dim sum, x As Integer
sum = 0
x = 6
Do While x < 10
s um= s um+ x
x = x + 1
Loop
عدد مرات التكرار وياريت الشرح بشء من التفصيل

الكود كما يلى
Dim r As Integer = 1
Do While r <= 1
r = r + 2
Loop
MsgBox(r)
الشرط فى الحالة الأولى صحيح r <= 1 حيث قيمة r=1
فتتغير قيمة r وتزيد بمقدار 2 وتصبح 3 وعند التحقق من الشرط للمرة الثانية يكون الشرط خطا فلا يحدث التكرار وتصبح قيمة r النهائية 3 وتظهر فى مربع الرسالة ويكون الاختيار من بين الاجابات (0-2-overflow)
وتكون الاجابة هى overflowحيث هى قيمة أكبر من 0 أو 2 :022yb4:


يا أخت منى هى الاجابة فعلا overflow ولكن ليس للسبب الذى ذكرتيه
لان r=r-2 فيظل الشرط true إلى أن يصل إلى مدى أكبر من مدى النوع integer فيحدث خطـأ من النوع runtime error فيكون الناتج overflow

نوع البيان للدالة او بمعنى اخر نوع البيان القيمة الراجعة دائما بكون مثل

نوع وسائط الدلة و لكم كل الشكر

1- تستخدم الإجراءات Sub فى طرفى جملة التخصيص أما الدوال Functions لا يجوز استخدامها فى أى جملة تخصيص.
2- الإجراء Sub لا يعود بأى قيمة أما الدالة Function تعود بقيمة.
3- يشترط عند الإعلان عن الإجراءات Procedures أن تستخدم وسيط واحد على الأقل Parameter
4- وسيط الإجراء Procedure إما أن يكون قيمة مجردة أو متغير Variable أو ثابت Constant أو دالة Function
محتاج شرح للاسئلة

السؤال الرابع ص 98 الفصل الرابع المفروض ازاي بيسأل علي اسم الاجرا وهي دالة


السؤال الرابع : استخرج من الكود Code الآتى :
Function Area(ByVal radius As Single) As Single
Const x As Single = 22 / 7
Dim res As Single
res = x * radius ^ 2
Return res
End Function

1 – اسم الإجراء :
2 – وسائط هذا الإجراء :
3 – القيمة الراجعة :
4 – نوع البيان الخاص بـ :
أ – الدالة :
ب – وسيط الدالة :
ج – القيمة الراجعة :

– اسم الإجراء : هنا Function
2 – وسائط هذا الإجراء : مايكتب بين القوسين بعد ByVal وهنا وسيط واحد هو radius
3 – القيمة الراجعة : ماتكتب بعد Return وهنا اسمها res
4 – نوع البيان الخاص بـ :
أ – الدالة : هو نفسه نوع البيان الخاص بـ القيمة الراجعة وهو Single
ب – وسيط الدالة : ماياتى بعد اسم الوسيط وهو مايكتب بين القوسين بعد ByVal ونوعه هنا Single
ج – القيمة الراجعة : وهى مايكتب بعد As ونوعه هنا Single ايضا

وبالله التوفيق

1- تستخدم الإجراءات sub فى طرفى جملة التخصيص أما الدوال functions لا يجوز استخدامها فى أى جملة تخصيص.
2- الإجراء sub لا يعود بأى قيمة أما الدالة function تعود بقيمة.
3- يشترط عند الإعلان عن الإجراءات procedures أن تستخدم وسيط واحد على الأقل parameter
4- وسيط الإجراء procedure إما أن يكون قيمة مجردة أو متغير variable أو ثابت constant أو دالة function
محتاج شرح للاسئلة


ممكن شرح الاسئلة

والف الف شكر علي الاجابة

1- تستخدم الإجراءات Sub فى طرفى جملة التخصيص أما الدوال Functions لا يجوز استخدامها فى أى جملة تخصيص.
هذه العبارة خطأ والعكس صحيح الدوال Functions تستخدم فى طرف جملة التخصيص الايمن فقط مثال
( 8) label1.text=isnueric الدالة فى الطرف الايمن
و الإجراءات Sub لا يجوز استخدامها فى أى جملة تخصيص. راجع جملة التخصيص
2- الإجراء Sub لا يعود بأى قيمة أما الدالة Function تعود بقيمة.
يعني االإجراء Sub لايرجع لنا قيمة جديدة وانما يقوم بتنفيذ مايطلب منه فقط اما الدالة تقوم بارجاع قيم مختلفة عن القيم التي تحدد للوسائط مثل عملية جمع او ضرب هكذا تاحذ قيم والناتج مختلف
3- يشترط عند الإعلان عن الإجراءات Procedures أن تستخدم وسيط واحد على الأقل Parameter
لانه يعرض وبالتالى لابد من ادخال مايتم عرضه
4- وسيط الإجراء Procedure إما أن يكون قيمة مجردة أو متغير Variable أو ثابت Constant أو دالة Function
اي ان الوسيط قد يكون قيمة مجردة يحدد له اى رقم مثل
(5,6)sum أو متغير اى كتابة اسماء متغيرات بدل من الارقام مثل x,y
Function مثل( ( )messagebox.show (now الوسيط هنا دالة
وبالله التوفيق

نوع البيان للدالة او بمعنى اخر نوع البيان القيمة الراجعة دائما بكون مثل

نوع وسائط الدلة و لكم كل الشكر

يا جماعه محتاج تفسير بسيط منكم للسؤال ده :
في الكتاب المدرسي بيقول ان
()now تعتبر داله
في حين اني لما وقفت عليها في البرنامج كتب انها خاصية
وفي المنهج القديم كان بيقول انها خاصيه تابعه للتكوين date
يعني هيا خاصية ولا داله وهل من الممكن ان تكون الداله خاصية او العكس

افادكم الله

ضع علامة صح او خطأ
استخدام else اختيارى فى جملة if

ضع علامة صح او خطأ
استخدام else اختيارى فى جملة if




صـــــــــــــــــــــــح وبالتوفيق

نرجو من السادة رواد المنتدى وضع مواعيد المحافظات
موعد محافظة الدقهلية هو :
السبت 18/5/2013
اللغة العربية
الاحد 19/5
لغة انجليزية + حاسب الى
الاثنين 20/5
جبر + دين
الثلاثاء 21/5
هندسة + تربية فنية
الاربعاء 22/5
العلوم
الخميس 23/5
الدراسات

ضع علامة صح او خطأ
استخدام else اختيارى فى جملة if
الإجابة
خطأ

فقط اللي يكون إختياري في جملة " If "
يمكن كتابة جملة " If "في سطر واحد بدون كلمة " End If " ويكون مثلا الكود :

http://im42.gulfup.com/cmMM8.png


هنا في المثال لم أستخدم " End If "

ارجو من السادة الافاضل حد يقولى ايه هى فائدة الدالةFunction فى المثال الخاص بجمع رقمين استخدم المتغير first والمتغير last كوسيط وأعلن عنهم على مستوي التصنيف
عند استدعاء الدالة : ليه اعلن عن متغيراتx,y ومستخدمش first, last

فى الدالة Function المثال الخاص بجمع رقمين استخدم المتغير first , last كوسيط وتم الاعلان عنهم على مستوى التصنيف فى الدالة ولكن عند استدعاء الدالة ليه أعلن عن المتغير x , y ومستخدمش المتغير first , last
ارجو الايضاح

الغربية الأحد 19/5 موعد امتحان الحاسب