دروس لغة الباسكال Pascal ...

[محمود]

الدرس الخامس ^^

أمر Write والأمر Writeln

سنتعرف في هذا القسم على نوع جديد من الأوامر في الباسكال وهذا النوع من الأنواع الشائعة الإستخدام في البرنامج وهو الأمر 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 :
بعد الإنتهاء من نتفيذ الأوامر ينتقل المؤشر I إلى السطر الذي يلي آخر جمله لإنها من النوع Writeln
تدريب :
لو أراد منك طباعة الأسطر التالية

My Name is Mahmoud
o

I live in Jabalia

حيث يقصد دائما بالعلامة o فراغ

الجواب

Writeln ('My Name is Mahmoud'); 

Writeln ; 

Writeln ('I Live in Jabalia');

يمكن أيضا حلها بالشكل التالي

Writeln ('My Name is Mahmoud'); 

Writeln(''); 

Write ('I Live in Jabalia ');

والفرق بينهما أن المؤشر في الحالة الأولى سيكون في النهاية في السطر الذي يلي آخر عبارة
وفي المثال الثاني سيكون في نفس السطر الأخير
لو أراد طباعة قيمة في متغير فنستخدم الأمر كما يلي في هذا المثال
فلو فرضنا أن S=10 وأراد طباعة قيمتها فنكتب

Writeln ('The Value of S =',s);

ويمكن أيضا طباعة أكثر من قيمة أكانت جملة أو متغير وذلك بإستخدام الفاصلة [,] بينها
مثل لو عرفنا المتغيرات التالية

A = 'Mahmoud'; 
B = '=' ; 
C= '18'; 
Writeln ('My Name is',B,A,'and my age is',c);

فسيكون الناتج على الشكل
My Name is =Mahmoud and my age is 18