مشاركة رقم : 1 (permalink)   23-06-2007, 03:14 PM MaZeN مشرف سابق رقم العضوية : 95 تاريخ التسجيل : Jan 2007 العمر : 23 المشاركات : 4,901 بمعدل : 6.65 يوميا الجنس : على النت: 1999 المؤهل الدراسي : جامعي الجوال : Motorola L7 المنتدى : منتدى لغات البرمجة Readأمر في لغة الباسكال سنتعرف في هذا القسم على نوع جديد من الأوامر في الباسكال وهذا النوع من الأنواع الشائعة الإستخدام في البرنامج وهو الأمر Readln ويستخدم هذا الأمر لإدخال البيانات من المستخدم وحفظها في متغيرات تناسب نوع البيانات المدخلة وله نوعان الأول : Readln وهو يقوم بقراءة البيانات من المستخدم وبعدها ينتقل المؤشر للسطر التالي الثاني : Read وهو مشابه للأمر Readln ولكن الفرق الوحيد أنه لا ينتقل سطر للأسفل بعد قراءة البيانات بل يكمل بنفس السطر Write (‘Enter Your Name :’); Readln (Name); في المثال السابق يقوم البرنامج في السطر الأول بطباعة السؤال ( أدخل إسمك ) ولإننا إستخدمنا الأمر Write فإن المؤشر لا ينتقل للسطر التالي بل يقرأ السطر التالي والمؤشر في نفس السطر في السطر التاني ينتقل البرنامج لوضع إستقبال البيانات من المستخدم ومن ثم حفظها في المتغير المختار Name و يجب أن تكون البيانات المدخلة من نفس نوع المتغير وإلا سوف يولد البرنامج رسالة خطأ Enter your name : I لو أضفنا السطور التالية للمثال Writeln (‘Enter your Age :’); Read (Age); Write (‘Enter your Salary :’); Readln (Salary); في السطر الثالث يطبع البرنامج الرسالة وينتقل بعدها للسطر التالي لإستقبال البيانات من المستخدم ، ونلا حظ هنا اننا إستخدمنا الأمر Read بعدها سيقوم البرنامج بطباعة السطر الخامس ولن ينتقل للسطر التالي بل سيستقبل البيانات في نفس السطر لإننا إستخدمنا الأمر Write سنتعرف في هذا القسم على نوع جديد من الأوامر في الباسكال وهذا النوع من الأنواع الشائعة الإستخدام في البرنامج وهو الأمر Writeln ويستخدم هذا الأمر للطباعة وإخراج البيانات على الشاشة وله نوعان الأول : Writeln وهو يقوم بطباعة الجملة والإنتقال بعدها إلى السطر الذي يليه مثل Writeln (‘This is First Line’); Writeln (‘This is the second Line’); Writeln (‘This is the first line’,’This is complete of the first line’); نلاحظ في هذا المثال أنه سيقوم بطباعة الجملة الأولى وفي نفس السطر سيقوم بطباعة الجملة الثانية وسينتقل بعدها للسطر الذي بعده الثاني : Write وهو مشابه للأمر Writeln ولكن الفرق الوحيد أنه لا ينتقل سطر للأسفل بعد طباعة الجملة بل يكمل بنفس السطر Write (‘This is the first line ‘); Writeln (‘This is the complete of the first line’); Write (‘This is the Second line’); Write (‘This is complete of line 2’); Writeln (‘This is the End’); في هذا المثال توضيح كامل لعمل دالة الإخراج بحالتيها يقرأ البرنامج السطر الأول ويطبعه وبما أنه Write فإن المؤشر لن ينتق للسطر الذي يليه بل سيقرأ السطر الآخر ويطبعه بنفس السطر وبما أن السطر الثاني من النوع Writeln فإن المؤشر بعد الإنتهاء من طباعة السطر ينتقل للسطر التالي لطباعة البيانات الأخرى لذلك سيكون ناتج السطور السابقة بعد التنفيذ This is the first line This is the complete of the first line This is the Second line This is complete of line 2 This is the End بعد الإنتهاء من نتفيذ الأوامر ينتقل المؤشر I إلى السطر الذي يلي آخر جمله لإنها من النوع Writeln تدريب : لو أراد منك طباعة الأسطر التالية My name is Mazen o I live in Damascus حيث يقصد دائما بالعلامة o فراغ الجواب Writeln (‘My Name is Mazen’); Writeln ; Writeln (‘I Live in Damascus ‘); ويمكن أيضا حلها بالشكل التالي Writeln (‘My Name is Mazen’); Writeln(‘’); Write (‘I Live in Damascus ‘); والفرق بينهما أن المؤشر في الحالة الأولى سيكون في النهاية في السطر الذي يلي آخر عبارة وفي المثال الثاني سيكون في نفس السطر الأخير لو أراد طباعة قيمة في متغير فنستخدم الأمر كما يلي في هذا المثال فلو فرضنا أن S=10 وأراد طباعة قيمتها فنكتب Writeln (‘The Value of S =’,s); ويمكن أيضا طباعة أكثر من قيمة أكانت جملة أو متغير وذلك بإستخدام الفاصلة [,] بينها مثل لو عرفنا المتغيرات التالية A = ‘Mazen’; B = ‘=’ ; C= ‘22’; Writeln (‘My Name is’,B,A,’and my age is’,c); فسيكون الناتج على الشكل My Name is =Mazen and my age is 22 امل ان تكونوا استفدتوا من هذا الدرس البسيط تحياتي توقيع MaZeN