سؤال عن برنامجي في الباسكال

[THE LION]

أصدقائي الأعزاء
تحية وبعد

لقد بدأت أبرمج في لغة باسكال منذ شهر آب. وقد واجهت الكثير من المشاكل. وقد بدأت بمشروع شخصي صغير وهو آلة حاسبة بسيطة لكي ألخص ما تعلمته.
لقد واجهتني الكثير من المشاكل وحللتها. ولكن بقيت مشكلة أتوقع أن تجدوا لي حلا.
** الكود البرمجي والبرنامج مرفقان مع الموضوع **

المشكلة: لقد عرّفت المتغيرات الخاصة بالأرقام وهي

n[1], n[2], n[3] كنوع real.

ولكن عندما يدخل المستخدم أي نوع آخر كالأحرف مكان هذا المتغيرات سيتوقف البرنامج ويغلق في طبيعة الحال. هذا ما يسمى بRuntime error.

السؤال : كيف أعمل شرط IF يكون أحد شروطه (أي عبارته الشرطية التي تأتي بعد كلمة IF مباشرةً) هو نوع متغير( لكي أحل هذه المشكلة , حسب رأيي) ؟ أو كيف أبدل الruntime error بعبارات من عندي بواسطة شرط معين؟ أو كيف أحل هذه المشكلة بشكل عام؟ (مفضل الإجابة على ثلاثة الأسئلة).
هذه الأسئلة راودتني خلال كل فترة تعلمي لهذه اللغة ( لكنني وجدت حلول بديلة وقصير بدلها)

شكرًا لكل من يساعد.

[wellknownQ8]

السلام عليكم

لا أعرف لغة الباسكال، لكن الشرط يكون شبيه بالتالي:

do{
print "please enter a number"
/* take the number*/
while (the entered key not a number ) 
 
-----
أو
 
while ( n1 and n2 and n3 are numbers ){
/* calculate */....
}

أو أفكار مشابهة لهذا
و السلام

[THE LION]

هكذا فكرت أنا أيضًا...لكنني لا أعرف كيف أكتبها بلغة باسكال لذلك أحتاج أحد يعرف لغة باسكال... وغير هذا أحتاج إجابة على باقي الأسئلة.

[نور ضياء]

مرحبه اخي العزيز

اتمنى مساعدتك كثيراً و لكني للاسق مشغول جداً.
و لكني ساعطيك مفتاح الحل كمل يقولون.
ابحث عن ايعاز اسمه keypress او قريب منه في pascal help file و ان شاء الله تجد الجواب الشافي، و لكن ذلك يعني انه عليك ان تقوم بالقراءة حرف حرف كي يتسنى للمترجم ان يفحص الحرف الداخل، و كذلك تستطيع استخدام الايعاز repeat ...until condition
و هكذا و اتمنى منك اعلامي اذا وصلت لنتيجة طيبة كما اترجى منك.
أخوك
نور ضياء

[THE LION]

شكرًا يا أخ... أنت من القليلين الذين يساعدونني في هذا المنتدى.
لقد نصحني amgadpasha بهذا الأمر أيضًا.. ولكنني استغنيت عنه, مع أنني فهمته.
وذلك لأنني وجدت أمر خاص بالباسكال يدعى

val(strvar,numvar,errorcode) if errorcode<>0 then write('wrong input')

حيث أنّ :
strvar = المتغير الذي يمثل النص.
numvar = المتغير الذي يمثل الرقم.
errorcode = المتغير الذي يمثل الكود (الرقم) الخاص بالخطأ , حين حدوثه.
هذا الأمر يحول النصوص (strings) إلى أرقام من نوع real , كما وأنه حين يكون الإدخال خاطئ يأخذ الـerrorcode قيمة عددية معينة. والشرط يكون بعد الأمر, وذلك إذا اخد الerrorcode قيمة عددية فالبرنامج يفعل الذي يوجد بعد then وإذا لا فالبرنامج يكمل أوامره.

كما وأنني وجدت كيف أبدل الruntime errors بأوامر أخرى (وذلك طبعًا لكي لا يخرج البرنامج) ولكن هذه قصة طويلة.

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

[نور ضياء]

الاخ اسكندر المحترم
لقد ارتحت كثيرا لاستجابتك الى، و شكراً لك على الدالة الجديدة التي علمتني اياهه،اتمنى ان نتشارك في برامج جديدة اخرى.
لا احب ان اثقل عليك، لكن في الحقيقة اني مبتعد عن البرمجة منذ فترة، لكني احب ان استرجع مهاراتي اللطيفة في البرمجة، عندي استعداد ان احاول من جديد، لكني افكر في لغات قواعد البينات و لكي اكون ادق بالتعبير اني افكر في Visual Fox Pro
و ذلك لاهمية قواعد البيانات و كذلك قلة المبرمجين عليهه و خاصة في العراق اتمنى من الله ان يوفقك و ان تصل الى ما تريد و ان يجد لك معينا في كل امر تقف عنده.
سلامي للمنتدى
و شكراً
أخوكم
نور ضياء
بغداد

[TeamFlex]

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

[THE LION]

الباسكال ليست فيجوال بيسك, وهي ليست لغة مرئية.

[oms]

اخي إسكندر

احييك واحيي كل من تعلم ويتعلم اللغات القديمة ( وانا واحد منهم )

لأن اللغات القديمة بواسطتها يمكنك عمل اي شيء
اما في اللغات الحديثة فهناك ضوابط ؟؟؟؟؟!!؟!؟!؟!؟!؟!؟!؟؟!؟!؟!؟!! ...........

[dibejmaher]

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

ابحث عن هذه الفانكشن في الهالب اللي موجود في باسكال و ان شاء الله تتخطى هذه العقبة

انا اصلي عندي كثير ما برمجتش على بسكال لذلك لم اتذكرها

[THE LION]

يا أخ dibejmaher , شكرًا...
ولكني وضعت هذا الأمر, سابقًا, ولكن أن تجيب أفضل من ألا تجيب.
وأكرر شكري.

[THE LION]

أما يا أخ oms, أنا أوافقك الرأي.
فأنا منذ أن بدأت أتعلم الباسكال(لفهم المبادئ الأساسية في البرمجة فقط لا غير) أعجبت بها, لسهولتها وبساطتها.
ولكن حتى وأن اللغات قديمة إلا أنها لغات برمجة.
وهنالك مقولة خاصة بالبرمجة تقول "مثلا": إذا كانت الباسكال تحل مشاكلك فأصبح مبرمج باسكال, وإذا لا فلا تصبح.
وهذه المقولة تنطبق على باقي لغات البرمجة.(القديمة والجديدة).

[king arthure]

اخي العزيز توجد هناك دالة في لغة الباسكال تعرف بreadkey حيث ان ه>ه الدالة تأخذ اي روز من الكيبورد ومرجوع هذه الدالة من النوع الصحيح لأنة سوف يخصص للمفتاح المضغوط من لوحة المفاتيح بالقيمة التي تقابله في الأسكي كود.

ولزيادة المعلمات عن هذه الدالة اكتب readkey في اي مكان من من صفحة البرنامج ثم ضع المؤشر تحت الكلمة ثم أضغط ctrl+f1 وسوف يضهر لك شرح على هذه الدالة وفي نهاية الشرح سوف تجد نموذج برنامج مصغر على هذه الدالة .
وا>ا احتجت لأي استفسار فأنا موجود.
king arthure

[king arthure]

انشاء الله ايفيدك