Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/printthread.php on line 119
منتديات شباب فلسطين - تعلم اساسيات Pascal بسهولة
منتديات شباب فلسطين

منتديات شباب فلسطين (https://shabab.ps/vb/index.php)
-   مُتعلقات التقنية (https://shabab.ps/vb/forumdisplay.php?f=31)
-   -   تعلم اساسيات Pascal بسهولة (https://shabab.ps/vb/showthread.php?t=4212)

A s h i q o h a 12-14-2005 05:44 PM

تعلم اساسيات Pascal بسهولة
 
اضع بين ايديكم هذا الموقع الرائع لتعلي اساسيات الباسكال

وساقوم بشرح اساسيات هذا الموقع باللغة العربية للتبسيط لعيون شباب اي تي الازهر

http://www.sepsis.za.net/index.html

A s h i q o h a 12-14-2005 05:56 PM

مشاركة: تعلم اساسيات Pascal بسهولة
 
عن باسكال :
باسكال لغة برمجه انشئت بواسطة Niklaus Wirth في عام 1970 . كان اسمها سابقاً Blaise Pascal , عالم الرياضيات الفرنسي المشهور . لقد صنعت هذه اللغه لتعليم البرمجه ولكي تكون محل ثقه لدى المبرمجين . منذ ذلك الوقت قد اصبحت لغة البرمجه باسكال اكثر من انها فقط لغه اكاديميه و لكنّها استخدمت تجارياً ايضا .


ما الذي احتاجه لأبدأ مع باسكال :
قبل بداية تعلم برمجة الباسكال , تحتاج إلى مترجم باسكال (compiler) . هذا الدرس يستخدم (مترجم باسكال المجاني) : http://www.freepascal.org/ . يمكنك الحصول على قائمه من مترجمات باسكال في http://www.freebyte.com/programming/...scal_compilers .

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

دائماً نبدأ البرنامج بكتابة اسمه . ادخل program و اسم البرنامج بعدها . سوف نقوم بتسمية برنامجنا الاول "Hello" لانه سيقوم بطباعة الجمله المشهوره "Hello world" على الشاشه , سوف تكون طريقة الكتابه بهذه الطريقه :


كود:

program Hello;


بعدها يجب علينا ان نطبع الكلمتين begin و end . بعدها نقوم بكتابة شيفرة البرنامج بين هاتين الكلمتين . تذكر وضع النقطه بعد الكلمه end , هكذا ستكون صيغة ما كتبناه حتى الآن :
كود:


program Hello;

begin
end.

الآن نكتب الشيفره التي تطبع الجمله على الشاشه :
كود:


program Hello;

begin
Write('Hello world');
end.

يجب ان تكون الجمله بين علامة الاقتباس الفرديه ' . واي شي يكون بين علامة الاقتباس الفرديه عباره عن سلسله (كلمات و حروف) . كل السلاسل يجب ان تكون بهذا الشكل . علامة الفاصله المنقوطه ; هي نهاية السطر . يجب ان تتذكر دائما ان تضع هذه العلامه في نهاية سطر .

الامر Readln يستخدم لانتظار المستخدم ان يقوم بالضغط على زر الادخال لكي ينتهي البرنامج .
كود:


program Hello;

begin
Write('Hello world');
Readln;
end.

الآن يجب ان تخزّن البرنامج بإسم hello.pas


تجميع البرنامج و ترجمته :
برنامجنا الاول الآن جاهز للترجمه . عندما تقوم بترجمة البرنامج , سيقوم المترجم بقرائة الملف المصدري (الشفره التي قمت بكتابتها) و يقوم بتطبيقها . اذا كنت تستخدم مترجم من نوع IDE قم بالضغط على CTRL+F9 انها دائماً تستخدم لترجمة و تشغيل البرنامج في المترجمات من نوع IDE . اذا كنت تستخدم مترجم يعتمد على سطر الاوامر مثل Free Pascal ادخل الامر التالي :


كود:

fpc hello.pas


اذا تلقيت اي خطأ عند الترجمه يجب ان تقرأ هذا الدرس مره اخرى بعنايه لاكتشاف اين هو الخطأ . مستخدمين IDE سوف يجدون ان برنامجهم تمت ترجمته و تم تشغيله في وقت قصير . مستخدمين سطر الاوامر يجب ان يدخلون اسم البرنامج في متلقي الاوامر لكي يعمل .

يجب ان تجد الجمله "Hello world" عندما تقوم بتشغيل برنامجك و عند الضغط على زر الادخال سوف يتم الخروج من البرنامج .
مبروك ! لقد كتبت اول برنامج لك في باسكال .

انتظر الدرس التالي ... ( تم نقل اجزاء من هذا الموضوع من مصدار خارجية لتحققيق لافائدة القصوى ) ..
مصدر الدرس http://www.sepsis.za.net/programming_pascal01.html

تحياتي ..

A s h i q o h a 12-14-2005 06:04 PM

مشاركة: تعلم اساسيات Pascal بسهولة
 
كن مميزا دائما ... نعم انت مميز طالما انت معنا في منتديات شباب فلسطين

أضف بعض السمات الرائعة على برنامجك البسيط وفاجئ استاذك في حصة " الكمبيوتر ساينس "

الالوان :
لتغيير لون النص الذي يُطبع على الشاشه يمكننا استخدام الامر TextColor .
كود:

program Colors;

uses
crt;

begin
TextColor(Red);
Writeln('Hello');
TextColor(White);
Writeln('world');
end.




الامر TextBackground يقوم بتغيير لون خلفية النص . اذا كنت تريد تغيير لون خلفية الشاشه إلى لون معيّن يجب ان تستخدم الامر ClrScr .

كود:


program Colors;

uses
crt;

begin
TextBackground(Red);
Writeln('Hello');
TextColor(White);
ClrScr;
end.


انتظر المزيد من الابدعات ايظا قريبا


الساعة الآن 03:04 PM.

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
new notificatio by 9adq_ala7sas