دوره لتعلم لغه باسكال

اقتباس

قدرتك على صنع برنامج لايدل على قوة اللغة وانما على قوة المبرمج

انا أريد ان الغى فكرة ضعف الفيجوال بيسيك فقط فأنا اعرف ان هناك لغات اقوى منها لكن اللغة حتى الان بفضل الله تعالى تستطيع ان تلبى احتياجاتنا فى اى نوع من البرامج

والله اكثر مااضحكنى هو قول احد الاعضاء ان الباسكال اقوى من الفيبى , لغة غير مرئية أقوى من لغة مرئية , كيف ذلك؟

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

اقتباس

كيف تستطيعون التعامل مع الطوابير والاشجار الثنائية وغيرها من بنى المعطيات رغم عدم وجود مؤشرات في الفيجوال

بيسك ام انكم لاتستخدمون مثل هذه الاشياء

سؤال اخر هل يمكن بناء برنامج بحيث يتمكن هذه البرمانج من العمل تحت اللينوكس

سؤال اخير هل تستطيع بناء برنامج بالاصح كود لمكتبات الDll بدون اللجوء الى ال++C مثلا

اقتباس

ليس تحديا وارجو ان لاتعتبر الامر تحديا

أنا لم ولن اعتبره تحدياً لانى حتى الان لا اجد ان مستوايا قادر على مواجهة التحديات

بالنسبة للسؤال الاول فلا استطيع ان اضيف اكثر مما قاله الخبير والمشرف VB6-ROCKET وما اضافته الاخت الفاضلة بنت اليمن

بالنسبة للسؤال الثانى فانا لم اتعامل مطلقاً مع اللينوكس لكن لا اظن ان الفيبى قادرة على البرمجة تحت هذا النظام

بالنسبة للسؤال الثالث نعم استطيع ان اصنع ملف DLL كمكتبة API بدون اللجوء الى ++C وقد بحث فى هذا الموضوع لانى كنت مهتم به جداً حتى وجدت هذا المقال الرائع

http://www.windowsdevcenter.com/pub/a/wind...create_dll.html

السلام عليكم - الدرس الثاني

لقد بنينا في الدرس السابق برنامج بسيط وقمنا بتحليله , اما في هذا الدرس

فسأقوم بالتطرق الى مواضيع في عمليات البرمجه

ان اول هذه المواضيع هي اوامر الادخال والاخراج .. ومسرح الادخال والاخراج

في هذه الاوامر هو الشاشه .. ولوحه المفاتيح .

لقد ذكرت لكم في الدرس السابق العمليه Write

وذكرت لكم ايضا ان هذه العمليه تحتاج الى برامتر واحد .. وهو البرامتر

الذي ستقوم بطباعته ... سنتعمق الان في فهم هذه التعليمه .. حيث ان برامتر

هذه التعليمه يمكن ان يأتي على عده هيئات وهي :

1- متغير

وهذه الحاله قد رأيناها في الدرس السابق اذ نقوم بكتابه التعليمه

Write(X);

- X متغير

2- نص ثابت

وهذه تعتبر حاله اخرى اذ يمكننا الكتابه كالتالي :

Write('Welcome');

وستطبع الكلمه Welcome على الشاشه.

3- عمليه

في هذا الامر ايضا تستطيع ان تكتب عمليه وسيقوم الامر بحسابها وثم طباعتها

فمثلا يمكننا كتابه :

Write(X+Y);

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

يمكننا كتابه المسأله :

Write(5+7);

او

Write(12);

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

اما السبب هو لكي يميز البرنامج ان ما تكتبه هو نص فعلي وليس اسم متغير

اما لمن يود الاضافه بالتسائل عن الفرق بين الارقام والنصوص حيث انه يمكننا

كتابه الارقام دون شطائر اما النصوص فلا .. ذلك لانه لا يمكن ان تكون متغيرات

تبدأ برقم وهذا من شروط تسميه المتغيرات وباقي الشروط هي كالتالي :

الا يحوي رموز غير الاحرف والارقام ما عدا _ - مثال @ - لا يصلح ان يكون سم متغير

الا يكون كلمه محفوظه - وهذا نوع مهم حيث قد يفكر البعض ان المقصود بذلك

Read او Write* ... الامر ليس كذلك المقصود هو Var او Begin ... الخ.

*لكن ان هذه الاوامر Read , Write هي عباره عن دوال جاهزه في اللغه اما اذا

قمت باستعمال اسم الداله كأسم متغير سوف لا يمكنك البرنامج من استعمالها كأمر

مثال على ذلك :

var
write:integer;
begin
write:=3;
end.

ان هذا البرنامج يعتبر صحيح اما اذا كتبت التعليمه Write كداله فيحدث خطأ

مثال

var
write:integer;
begin
write('Welcome');
end;

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

البرنامج فهل ان تقصد المتغير المسمى Write ام الامر او الداله المسماه

Write وعلى الارجح انه سيتعامل معها كمتغير وليس كداله لأنها معرفه في داخل البرنامج

كمتغير .

اما بالنسبه للعمليات الحسابيه فيمكن تنفيذ كافه العمليات الحسابيه على هذا

النوع وهي كالتالي :

+ - جمع

- - طرح

* - ضرب

div - قسمه *

* ملاحظه في القسمه الجواب هو العدد الصحيح من القسمه ودون كسور لأن Integer

لا يدعم الكسور كما انه ذو مجال محدد حوالي 32767 + \ - فقط .

اما العمليه الاخرى التي سأقوم بشرحها وهي العمليه Read وهذه العمليه تقوم

بالانتظار في الشاشه السوداء .. لكي يقوم المستخدم بادخال مدخل مناسب

اما بالنسبه لكيفيه استخدامها :

Read(X);

X- متغير وستعوض قيمه المدخل فيه .

اما التعليمه ln فهي تضاف الى الامر وبذلك تقوم ايضا بنقل المؤشر الى السطر القادم.

حاله خاصه سنستخدمها في البرنامج :

Readln;

يمكن ان نقوم بالاعلان عن الامر دون وجود برامتر وهذا معناه اننا ننتظر من المستخدم

ادخال اي رقم للاستمرار ودون حفظ المدخل ..

العمليه الاخيره التي اود شرحها هي Mod وهذه العمليه هي عكس العمليه

Div اذ ان هذه العمليه ترجع باقي القسمه مثال X:= 4 mod 3;

باقي قسمه اربعه من ثلاثه هو واحد وهذه هي قيمه X

لقد احببت في هذا الدرس ان اضيف سؤال لفحص قدره الفهم .. يمكن لكل شخص

ان يقوم بمحاوله الحل .

المطلوب هو برنامج بسيط يطلب من المستخدم ان يدخل رقم مكون من 3 خانات على

الاكثر ومن ثم تقوم بعرض خانه الاحاد لوحدها وخانه العشرات لوحدها وثم خانه المئات

لوحدها ومن ثم يتم تجميع الرقم العكسي من خلال قلب الخانات .

مثال لديكم رقم مدخل 123

يجب ان يعرض برنامجك

خانه الاحاد هي , 3

خانه العشرات هي , 2

خانه المئات هي , 1

العدد العكسي هو , 321

طبعا هذا ليس اجباري لكنه سيوضح لك .. هل انت قد فهمت الاساسيات ام لا ..

وشكرا ....

SoNaTa كتب:

عملت run لكن المشكله ان شاشه الدوس تظهر وتختفي بسرعه كبيره جدا ,, هل لديك حل للمشكله؟؟

←

الحل بسيط، عدل الكود كما يلي

Program example;
var
num1,num2,x:integer;
begin
num1:=7;
num2:=5;
x:=num1+num2;
writeln(x);
ReadLn;
end.

لا حظ ReadLn

DeltaAziz كتب:

لا حظ ReadLn

←

عزيزي انا قلت اني اضفتها من البدايه ,,,, والمشكله كانت من الكومبايلر نفسه وتم حل المشكله بعد ما قمت بتنصيبه من جديد :)

السلام عليكم - الدرس الثالث - المزيد من العمليات في اللغه

لقد تعلمنا في الدرس الثاني اوامر الادخال والاخراج اي Write , Read وماهيه

البرمترات التي نستطيع تعويضها لكل داله منها .. الان نريد التوسع في الموضوع

وانهاء كل شيء متعلق بهاتين الدالتين ... الامر الاول ماذا لو كان لدينا بارمترين

نود طباعتهما والامر الاخر ماذا لو كنا نود استقبال متغيرين وليس واحد ...

الامريين كلاهما بسيطان ذلك لان الاوامر Read, Write يمنحانك التعدد في البرامترات

مثال على ذلك اذا كنت تود كتابه الكلمه Welcome وبنفس الوقت تود طباعه قيمه المتغير

X نكتب كالتالي

write('Welcome', X);

اما اذا كنا نود استقبال متغيرين بنفس الوقت نكتب

readln(X,Y);

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

بهذا الكود وسيعمل بشكل صحيح ... لكن الجيد في الاول ان يقصر الطريق نوعا ما

write('Welcome');
write(X);

اما بالنسبه للموضوع الاخر الذي ساذكره في هذا الدرس هو الترتيب

اليكم هذا الكود والرجاء منكم تنفيذه على الكومبايلر

Var
X,Y,Z:integer;
Begin
X:=4;
Y:=8;
Z:=(X+Y) div 2;
Writeln('This is ',X);
writeln('And this number is ',Y);
writeln('And the average of the numbers is ',Z); 
readln;
end.

ان من ينفذ هذا الكود سيرى انه لا يوجد تنسيق بين الارقام والكلمات لذلك

سوف يشعر بأن البرنامج غير مرتب لذلك وللترتيب بامكننا استعمال الرمز :

ليدل على الفراغات التي سيبعد عنها المتغير , بأمكانكم الان تجربه هذا الكود

Var
X,Y,Z:integer;
Begin
X:=4;
Y:=8;
Z:=(X+Y) div 2;
Writeln('This is ',X:27);
writeln('And this number is ',Y:15);
writeln('And the average of the numbers is ',Z); 
readln;
end.

15 , 27 هذان الرقمان يدلان على عدد الفراغات اللازم لكل متغير.

والان قد انتهينا من هذا الدرس ووسنبدأ بمواضيع جديده في الدرس التلي ان شاء الله.

وشكرا...

أنا معاكم بس أنا بردة مقتنع بمثل "أبدأ من حيث أنتهى الاخرون :)"

ما هذا لحد الان لا يوجد ردود للسؤال الذي طرحته عليكم في الدرس الثاني ... هل السؤال صعب ... ام انه

لا يوجد احد معي في هذه الدوره ... عموما سأحاول الانتظار لارى الردود واذا كانت الدوره مزعجه للبعض وكتابه على الفاضي افضل ان انهي الدوره ... فأنا اعلم هذه اللغه جيدا ولا حاجه لي لكتابتها لتوضع في الارشيف ...

عموما سانتظر عده ايام لارى هل انا وحدي هنا في الدوره ام انه يوجد اعضاء معي يودون تعلم اللغه ...

السؤال المقترح : - مره اخرى

المطلوب هو برنامج بسيط يطلب من المستخدم ان يدخل رقم مكون من 3 خانات على

الاكثر ومن ثم تقوم بعرض خانه الاحاد لوحدها وخانه العشرات لوحدها وثم خانه المئات

لوحدها ومن ثم يتم تجميع الرقم العكسي من خلال قلب الخانات .

مثال لديكم رقم مدخل 123

يجب ان يعرض برنامجك

خانه الاحاد هي , 3

خانه العشرات هي , 2

خانه المئات هي , 1

العدد العكسي هو , 321

اتمنى ان ارى ردود ...

وشكرا ...

يا اخ Mohammed27

تشكر على حرصك .. لكن من الممكن لو تقفز مباشرة للدروس الدسمة ستجد التفاعل .. وانت على راحتك . :)

ماذا تقصد بالدروس الدسمه ... ومن اين لي ان اعرف ما هو مستوى الاعضاء المهتمين ... فاخاف ان ابدأ بمثل الدوال الدوريه فلا يفهمني احد !! ام ابدأ بالجرافيكا ؟

أرجو التكملة فى هذه الدورة

أود ان اكون احدى الاعضاء المشاركين في هذه الدورة لاني ادرس في تخصص البرمجة ونحن بحاجة الى هذه اللغة *-) *-) *-)

اريد حل المعادلة التربيعية بلغة الباسكال عن طريق المميز وايجاد جذور حل المعادلة واستعمال الdata structure

why yoy explaine without pictures ??

pleaaaaaaaaase i like with picture

& thanks

يا أخي أريد البرنامج Turbo Pascal 7 كاااامل

لأني منزله رغم اني تعبت عليه في البحث لكنه مش كامل وناقص ملف wincrt