ساعدوني في حل الواجب عليه عشر درجات

ماذا يمكنني أن أقول ...

هذه ليست طريقة للتعلم أيتها الأخت الفاضلة , ان تضعي واجبك كما أعطاك اياه الأستاذ و تريدين أن يجيب عليه الأعضاء . تأكدي أنه لن يجيبك أحد بل ليس من المستبعد أن يتم غلق موضوعك

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

و سامحيني على صراحتي

و السلام عليكم

بسم الله

السلام عليكم

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

السؤال رقم 8 ، أول سؤال في المشاركة ، وقد تكرر نفس الرقم في أسفل المشاركة ، ويبدو أنه خطأ في النقل

'هذه المقاييس غير صحيحة ، ويظهر هذا من تداخل الشرطين 1 و 2

If Val(wieght.Text) < Val(tall.Text) / 2 Then

MsgBox "under wieght"

ElseIf Val(wieght.Text) >= Val(tall.Text) / 2.5 And Val(wieght.Text) <= Val(tall.Text) / 2.3 Then

MsgBox "normal"

ElseIf Val(wieght.Text) > Val(tall.Text) / 2.3 Then

MsgBox "over wieght"

End If

السؤال رقم 1

'المبلغ الإبتدائي

x = 1000

'loop for 18 years

For y = 1 To 18

'القيمة المضافة كل سنة

x = x + 500 + (x * 0.045)

Next

'المبلغ الكلي

MsgBox x

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

السؤال 2

x = 0

y = 9870

'طالما أن عدد السكان أقل من 30000 نسمة ، يتم زيادة قيمة متغير عدد السنوات سنة واحدة

Do While y < 30000

y = y + (y * 0.1)

x = x + 1

Loop

'عدد السنوات

MsgBox x

'عدد السكان بعد هذه السنوات

MsgBox y

السؤال 4

x = InputBox("أدخل الرقم الأول")

y = InputBox("أدخل الرقم الثاني")

'حاصل القسمة

z = x / y

'في حالة العثور على الفاصلة العشرية ، وهذا يعني أن دالة البحث سوف تعود برقم خانة الفاصلة ، وبالتأكيد سوف يكون أكبر من صفر ، وبالتالي فإن الرقم الأول بالتأكيد لن يقبل القسمة على الرقم الثاني

Do While InStr(1, z, ".") <> 0

'لطباعة الرقمين

Print x & vbTab & y

'الخروج من الحلقة التكرارية

GoTo 10

Loop

10

'وفي حالة عدم تحقق الشرط ، أي أن الرقم الأول يقبل القسمة على الرقم الثاني ، فإن البرنامج لن يطبع شيئا لأنه سيخرج من الحلقة التكرارية من بدايتها

السؤال 5

y = 0

For x = 1950 To 2000

'للبحث عن علامة الفاصلة ، بالقسمة على 4 لأن السنة الكبيسة تقبل القسمة على 4 وبالتالي لا فاصلة في ناتج القسمة لأن الناتج في هذه الحالة عدد صحيح

'البحث يكون في حاصل القسمة بداية من أول خانة فيه ، للبحث عن النقطة أو الفاصلة

'في حالة عدم العثور على الفاصلة ، تعود الدالة بالقيمة صفر ، وهذا يعني أن الفاصلة غير موجودة وبالتالي ، الرقم الناتج صحيح وبالتالي السنة كبيسة عدد أيامها 366

If InStr(1, x / 4, ".") = 0 Then

y = y + 366

'في حالة العثور على الفاصلة ، وهذا يعني أن حاصل القسمة يحتوي على كسور وبالتالي السنة غير كبيسة أيامها 365

Else

y = y + 365

End If

Next

'طباعة عدد الأيام النهائي

Print y

ولم أفهم السؤال 3 والسؤال 6 ، (وما فهمته من السؤال 6 ، أن درجة الإمتياز من 90 إلى 100 ، والتي تليها من 60 إلى 89 ، وأما من 1 إلى 59 فهو راسب ، وعليه يتم إدخال الدرجة يدويا لإختبارها ، وتقييمها ، فهل هذا الفهم صحيح) ، رولا أعرف إجابة آخر سؤالين ، ومرفق مع المشاركة ، حلول الأسئلة الخمسة التي وفقني الله لحلها ، وهي بلغة الفيجوال بيسك 6 ، ونفس الأكواد تصلح للعمل في الدوت نيت ، وأرقام التمارين المحلولة في مجلدات بنفس ترقيم إجابة الأسئلة ، والله أعلى وأعلم .

test.rar