البرنامج الأول بلغة باسكال

[أبو بكر]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

وجدت أن نبدأ البرمجة في كتابة هذه السطور بلغة Think Pascal : على نظام 9 (كلاسيك) قبل أن نبدأ باستخدام برمجة Xcode

وهذا البرنامج البسيط (المعروف باسم : مرحبا بك أيها العالم ) هو على النحو التالي:

أولا أفتح البرنامج Think Pascal واختر اسم لبرنامجك مثلا Hello ثم اتبعه بنقطة (.) واضغط مفتاح Alt مع حرف P حتى تحصل على حرف (الباي) (وهو حرف رياضي يساوي 13.4 تقريبا - بالعربي يسميه بعض الرياضيين (ط))

واضغط في نفس حوار المشروع الجديد على الاختيار Instant Project حتى ينشئ لك التطبيق مشروعك جاهزا...

ستجد في نافذة الملف السطور التالية:
program Hello;
{Insert your declartions here{

begin

{ Insert your program code here {

end.

قم الان بادخال هذا النص كما هو قبل كلمة begin

var
myWindow:WindowPtr;
myString:Str255;
myRect:Rect;

الأن قبل السطر end.، قم بادخال النص التالي كما هو:

InitGraf(@thePort);
InitFonts;
InitWindows;
InitMenus;
TEInit;
InitDialogs(nil);

SetRect(myRect,150,150,600,400);
myWindow := NewWindow(nil, myRect,'My Window', True,dBoxProc,WindowPtr(-1), True, 0);

myString:= 'Hello World';
ShowWindow(myWindow);
SetPort(myWindow);
TextFont(SystemFont);
MoveTo(160,75)
DrawString(myString);

repeat
until Button;

end.

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

[desperado]

الى الامام يا ابوبكر