الرئيسية
الأحداث
المنشورات
أحدث الصور
التسجيل
دخولأول لغة برمجة عربية متكامله ( لغة ج )
2 مشترك
منظمة الشعب الأندلسي العالمية World Organization of Andalusian People :: منتديات الأندلسيين المعاصرين-CONTEMPORARY ANDALUSIANS’ FORUMS - FOROS ANDALUCES CONTEMPORÁNEOS - FORUMS DES ANDALOUS CONTEMPORAINS :: قسم الحاسوب والتعريب والبرامج المعربة Arabized Programs, Programas arabizados, Programmes Arabisés, Computer, Ordinateur, Microordenador,
صفحة 1 من اصل 1
أول لغة برمجة عربية متكامله ( لغة ج )
من طرف بارقة أمل الأندلس الحبيبة الأربعاء 11 نوفمبر 2009, 13:17
مـاهــي لغــة ج ؟
يقول مطور هذه اللغة :
طلب مني أحد الأصدقاء ذات يوم أن أبدي رأيي في منهاج كان قد أعده لتدريس علوم الحاسوب للأطفال وطلاب المدارس في إحدى المعاهد. وكان من جملة أهداف هذا المنهاج تعليم طلاب المراحل الدراسية المبكرة برمجة الحاسوب من خلال لغات برمجة بسيطة مثل LOGO و BASIC. وقد لفت نظري أن هذه اللغات على بساطتها لا تناسب الطلاب العرب الصغار لاعتمادها على اللغة الإنكليزية. وكما هو معروف، تعتمد غالبية لغات البرمجة رفيعة المستوى High Level Languages على اللغة الإنكليزية، وتستخدم الأحرف اللاتينية قلباً وقالباً، مما يجعلها بعيدة المنال عن الطلاب العرب، خاصة أولئك الذين مازالوا في المراحل التعليمية المبكرة، ولم يتقنوا اللغات الأجنبية اتقاناً كافياً.
فتولد عندي دافع قوي للعمل على تطوير لغة برمجة عربية تكون سهلة وميسرة، ولا تقل مع ذلك في قدراتها عن لغات البرمجة رفيعة المستوى المعروفة مثل C و PASCAL. لتكون وسيلة مناسبة لتعليم الطلاب العرب مبادئ البرمجة بلغتهم الأم. وأن تكون هذه اللغة من روح مناهجهم، ومن صميم المفردات التي ألفوها في حياتهم الدراسية. وتشكلت لدي قناعة بأن إدخال الحاسوب إلى المناهج التعليمية في العالم العربي يجب أن ينطلق من تعليم الطلاب برمجة الحاسوب بواسطة لغة برمجة تمكنهم من السيطرة على مفاهيم البرمجة الأساسية بلغتهم الأم، وتتوافق وتنسجم مع مناهجهم الأخرى في الرياضيات والعلوم واللغة العربية.
وشرعت في العمل على تطوير هذه اللغة، وتوصلت إلى لغة برمجة عالية المستوى مشتقة من اللغة العربية، تكتب بحروفها وأرقامها، وتستخدم مفرداتها، وتلتزم بقواعدها. وتتمتع بالبساطة والوضوح. ويمكن بواسطتها برمجة كل ما يحتاجه الطالب من برامج وخوارزميات تفيده في دراسته. وقد رأيت أن أطلق على هذه اللغة اسم ج لشبهها في جوانب عديدة بلغة البرمجة المعروفة C. كما قمت بتطوير برنامج يتيح كتابة، وتنقيح، وتنفيذ البرامج بلغة ج، وأطلقت على هذا البرنامج اسم الخوارزمي تقديراً للعالم الشهير محمد بن موسى الخوارزمي.
وقد شاء الله أن أنشغل عن اتمام اللمسات الأخيرة لهذا البرنامج فترة من الزمن، وأن يبقى هو ولغة ج حبيساً في أحد الدروج، إلى أن قلت أعبائي مؤخراً وأكملت ما بدأته منذ أكثر من 7 سنوات.
وإني إذ أضع هذا العمل المتواضع بين أيدي الطلاب والمدرسين العرب في كل مكان لأرجو أًن تتحقق منه الفائدة والمتعة، وأن يكون وسيلة لتعليم برمجة الحاسوب في المدارس والمعاهد بدلاً من لغات البرمجة الأجنبية.
للإستزادة و الإطلاع :
http://www.jeemlang.com/index.php
هذه اللغة قد تكون بمثابة الدرجة الاولى للصعود في سلم البرمجة و الابتكار لدى أحبتنا الصغار (:
فنسأل الله ان يفيد بها و ينفع
يقول مطور هذه اللغة :
طلب مني أحد الأصدقاء ذات يوم أن أبدي رأيي في منهاج كان قد أعده لتدريس علوم الحاسوب للأطفال وطلاب المدارس في إحدى المعاهد. وكان من جملة أهداف هذا المنهاج تعليم طلاب المراحل الدراسية المبكرة برمجة الحاسوب من خلال لغات برمجة بسيطة مثل LOGO و BASIC. وقد لفت نظري أن هذه اللغات على بساطتها لا تناسب الطلاب العرب الصغار لاعتمادها على اللغة الإنكليزية. وكما هو معروف، تعتمد غالبية لغات البرمجة رفيعة المستوى High Level Languages على اللغة الإنكليزية، وتستخدم الأحرف اللاتينية قلباً وقالباً، مما يجعلها بعيدة المنال عن الطلاب العرب، خاصة أولئك الذين مازالوا في المراحل التعليمية المبكرة، ولم يتقنوا اللغات الأجنبية اتقاناً كافياً.
فتولد عندي دافع قوي للعمل على تطوير لغة برمجة عربية تكون سهلة وميسرة، ولا تقل مع ذلك في قدراتها عن لغات البرمجة رفيعة المستوى المعروفة مثل C و PASCAL. لتكون وسيلة مناسبة لتعليم الطلاب العرب مبادئ البرمجة بلغتهم الأم. وأن تكون هذه اللغة من روح مناهجهم، ومن صميم المفردات التي ألفوها في حياتهم الدراسية. وتشكلت لدي قناعة بأن إدخال الحاسوب إلى المناهج التعليمية في العالم العربي يجب أن ينطلق من تعليم الطلاب برمجة الحاسوب بواسطة لغة برمجة تمكنهم من السيطرة على مفاهيم البرمجة الأساسية بلغتهم الأم، وتتوافق وتنسجم مع مناهجهم الأخرى في الرياضيات والعلوم واللغة العربية.
وشرعت في العمل على تطوير هذه اللغة، وتوصلت إلى لغة برمجة عالية المستوى مشتقة من اللغة العربية، تكتب بحروفها وأرقامها، وتستخدم مفرداتها، وتلتزم بقواعدها. وتتمتع بالبساطة والوضوح. ويمكن بواسطتها برمجة كل ما يحتاجه الطالب من برامج وخوارزميات تفيده في دراسته. وقد رأيت أن أطلق على هذه اللغة اسم ج لشبهها في جوانب عديدة بلغة البرمجة المعروفة C. كما قمت بتطوير برنامج يتيح كتابة، وتنقيح، وتنفيذ البرامج بلغة ج، وأطلقت على هذا البرنامج اسم الخوارزمي تقديراً للعالم الشهير محمد بن موسى الخوارزمي.
وقد شاء الله أن أنشغل عن اتمام اللمسات الأخيرة لهذا البرنامج فترة من الزمن، وأن يبقى هو ولغة ج حبيساً في أحد الدروج، إلى أن قلت أعبائي مؤخراً وأكملت ما بدأته منذ أكثر من 7 سنوات.
وإني إذ أضع هذا العمل المتواضع بين أيدي الطلاب والمدرسين العرب في كل مكان لأرجو أًن تتحقق منه الفائدة والمتعة، وأن يكون وسيلة لتعليم برمجة الحاسوب في المدارس والمعاهد بدلاً من لغات البرمجة الأجنبية.
للإستزادة و الإطلاع :
http://www.jeemlang.com/index.php
هذه اللغة قد تكون بمثابة الدرجة الاولى للصعود في سلم البرمجة و الابتكار لدى أحبتنا الصغار (:
فنسأل الله ان يفيد بها و ينفع
بارقة أمل الأندلس الحبيبة- مفكر وقائد في القضية الأندلسية المعاصرة
- الجنس :
تاريخ التسجيل : 03/11/2009
عدد المساهمات : 73
نقاط الشكر على الجدية الأندلسية : 25
نشاطه في منظمة ش الأندلسي ع : 155
رد: أول لغة برمجة عربية متكامله ( لغة ج )
من طرف أ. د. جمال بن عمار الأحمر الأربعاء 11 نوفمبر 2009, 23:10
أختنا الفاضلة: بارقة أمل من الندلس الحبيبة
بما أعلم من تخصصك الدقيق في هذا المجال وأشباهه، قرأت الموضوع بنهم شديد...
كنت أظن أنها لغة C بمعطيات جديدة حسبما عهدته من كتاباتك النافعة...فإذا بي أفاجأ أنها لغة غير مترجمة عن سي بل هي جيم العربية...كانت مفاجأة.
لقد استفدت مما كتبت، وفتحت الموقع الأصلي فاطلعت على ما فيه.
وأستسمحك أن أواصل الإفادة بناء على ما تفضلت بتقديمه...
جازاك الله خيرا...وجعلها الله في ميزان حسناتك.
بما أعلم من تخصصك الدقيق في هذا المجال وأشباهه، قرأت الموضوع بنهم شديد...
كنت أظن أنها لغة C بمعطيات جديدة حسبما عهدته من كتاباتك النافعة...فإذا بي أفاجأ أنها لغة غير مترجمة عن سي بل هي جيم العربية...كانت مفاجأة.
لقد استفدت مما كتبت، وفتحت الموقع الأصلي فاطلعت على ما فيه.
وأستسمحك أن أواصل الإفادة بناء على ما تفضلت بتقديمه...
جازاك الله خيرا...وجعلها الله في ميزان حسناتك.
أ. د. جمال بن عمار الأحمر- رئيس منظمة الشعب الأندلسي العالمية
- الجنس :
العمر : 64
تاريخ الميلاد : 22/02/1960
تاريخ التسجيل : 02/05/2009
عدد المساهمات : 2938
نقاط الشكر على الجدية الأندلسية : 3
نشاطه في منظمة ش الأندلسي ع : 4879
العمل/الترفيه : أستاذ جامعي. مؤسس في حركة إسلامية قوية في نهاية السبعينيات. وسياسي قديم. ومرشح برلماني سابق -
رد: أول لغة برمجة عربية متكامله ( لغة ج )
من طرف أ. د. جمال بن عمار الأحمر الأربعاء 11 نوفمبر 2009, 23:13
أهلاً بك في الموقع الرسمي للغة البرمجة العربيةج
مرحباً بك في الموقع الرسمي للغة البرمجة العربية ج. وهي لغة برمجة رفيعة المستوى High Level Programming Language تستخدم اللغة العربية قلباً وقالباً. ولعلها أول لغة برمجة عربية متكاملة تحتوي جلّ خصائص لغات البرمجة الأجنبية رفيعة المستوى مثل C و Pascal . لقد أصبح بإمكانك الآن كتابة البرامج للحاسوب الشخصي باللغة العربية.
يمكنك أن تجد في هذا الموقع كثيراً من المعلومات عن لغة ج ، ونسخة مجانية من الإصدار التجريبي لبرنامج الخوارزمي، وهو برنامج يتيح لك كتابة البرامج بلغة ج، وتنقيحها، ومن ثم تنفيذها. كما ستجد في هذا الموقع أيضاً كثيراً من الأمثلة لبرامج متنوعة مكتوبة بلغة ج.
وإني لأدعوك إلى تحميل برنامج الخوارزمي إلى حاسوبك وتجربة لغة ج، وأنا على يقين أنك ستجد فيها الكثير من الفائدة والمتعة. وإن كنت من المهتمين ببرمجة الحاسوب، أو مدرساً لبرمجة الحاسوب في المدارس أو الجامعات العربية، فستجد في لغة البرمجة العربية ج وسيلة ممتازة لتعليم الطلاب العرب مبادئ البرمجة ومفاهيمها، وبديلاً عربياً للغات البرمجة الأجنبية.
وإنني لأرحب بآراءك، ومقترحاتك حول لغة ج ، أو برنامج الخوارزمي , وآمل أن تجد في لغة ج الفائدة والمتعة.
أمثلة
1. حساب مساحة دائرة عرض المثال
حساب مساحة دائرة
يبين المثال التالي برنامجاً بسيطاًبلغةج، يحسب مساحة دائرة بعد قراءة قطرها. وقد رقمت أسطرالبرنامج للإشارة إليها في الشرح التالي. ولا تشكل هذه الأرقام جزءاً من البرنامجفي لغةج.
1 الثابت بي = 3.1415
2 المتحول ق : حقيقي
3 المتحول س : حقيقي
4 أكتب "أدخل قطر الدائرة : " ،سطر
5 أقرأ ق
6 أجعل س = بي × (ق ÷ 2)^2
7 أكتب "مساحة الدائرة = " ، س
يتألف هذا البرنامج من سبع جمل. الثلاثة الأولى منها جمل تعريفية والأربعة الأخيرة جمل تنفيذية. تعرّف الجملة الأولى الثابت الهندسي بي ( π ) وهو نسبة محيط الدائرة إلى قطرها. وتعرّف الجملة الثانية متحولاً (ق) يمكنه حفظ الأعداد الحقيقية، وسيستخدم هذا المتحول لحفظ قيمة قطر الدائرة. أما الجملة الثالثة فتعرف المتحول الحقيقي س، الذي سيستخدم لحفظ مساحة الدائرة. تقوم الجملة الرابعة بكتابة العبارة: "أدخل قطر الدائرة:" في لوحة الكتابة لتنبه المستخدم إلى ضرورة إدخال عدد يمثل قطر الدائرة. تقرأ الجملة الخامسة قيمة القطر التي يدخلها المستخدم في لوحة الكتابة. ثم تحسب الجملة السادسة مساحة الدائرة من العلاقة: π ×(ق÷2)2، وتضع هذه القيمة في المتحول س. أخيراً تقوم الجملة الأخيرة بكتابة النتيجة في لوحة الكتابة. يبين الشكل التالي مثالاً لتنفيذ هذا البرنامج:
2. حساب مضروب (عاملي) عدد صحيح عرض المثال
حساب مضروب (عاملي) عدد صحيح
يبين السرد التالي مثالاً آخر لبرنامج بسيط بلغة ج. يحسب هذا البرنامج مضروب (عاملي) عدد صحيح. ومضروب العدد الصحيح ن هو القيمة ن(ن-1)(ن-2) … (ن- (ن-1)). وقد رقمت سطور البرنامج للتوضيح.
1 !! برنامج لحساب مضروب عدد صحيح
2 المتحول ن : صحيح
3 المتحول ص ، ع : صحيح
4 أجعل ع = 1
5 أكتب "أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" ، سطر
6 أقرأ ن
7 أجعل ص = ن
8 أكرر طالما ص > 1
{
9 أجعل ع = ع × ص
10 أجعل ص = ص – 1
}
11 أكتب ن ، "! =" ، ع
السطر الأول في هذا البرنامج هو مجرد تعليق، أي شرح توضيحي، لمن يقرأ البرنامج من الناس، أما مترجم لغة ج فيتجاهل هذا السطر بكليته. عموماً، يتجاهل المترجم كل سطر مسبوق بعلامتي تعجب متتاليتين. تعرف الجملة الثانية ن بأنه متحول يمكنه حفظ الأعداد الصحيحة، وسيستخدم هذا المتحول لحفظ قيمة العدد المراد إيجاد مضروبه. أما الجملة الثالثة فتعرف المتحولين ص و ع بأنهما متحولين صحيحين أيضاً. وسيستخدم ع لحفظ قيمة مضروب العدد ن، أما ص فسيستخدم كعداد تنازلي من ن-1 إلى 2. تسند الجملة الرابعة القيمة 1 إلى المتحول ع. أما الجملة الخامسة فتكتب عبارة " أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" في لوحة الكتابة. تقرأ الجملة السادسة قيمة المتحول ن التي يدخلها المستخدم. وتسند الجملة السابعة قيمة ن إلى المتحول ص. أما الجملة الثامنة فهي حلقة تكرار من نوع "أكرر طالما"، ويجري فيها تنفيذ الجملتين التاسعة والعاشرة طالما كانت قيمة العداد التنازلي ص > 1، وفي كل مرة من مرات تكرار هذه الحلقة تُضرب قيمة المتحول ع بقيمة العداد التنازلي ص، وينقص ص بمقدار 1. أخيراً تكتب الجملة الحادية عشر الناتج في لوحة الكتابة. تبين الصورة التالية مثالاً لتنفيذ هذا البرنامج.
3. حل معادلة من الدرجة الثانية عرض المثال
حل معادلة من الدرجة الثانية
أكتب برنامجاً بلغة ج لحل معادلة من الدرجة الثانية بمجهول واحد (س)، واقتصر في الحل على مجال الأعداد الحقيقية. علماً أن للمعادلة الشكل العام :
آ س2 + ب س + ج = 0
الحل
سنكتب برنامجاً يقرأ أمثال س: آ و ب و ج ثم يكتب المعادلة كاملة في لوحة الكتابة. بعد ذلك يحسب البرنامج المميز (م) من العلاقة:
م = ب2 – 4آج
فإذا كان المميز موجباً، يحسب البرنامج جذري المعدلة س1 و س2 من العلاقتين:
س1 = (- ب + جذر (م) ) ÷ 2آ
س2 = (- ب - جذر (م) ) ÷ 2آ
ويكتب البرنامج حل المعادلة في لوحة الكتابة.
أما إذا كان المميز سالباً فيكتب البرنامج إشعاراً باستحالة حل المعادلة في مجال الأعداد الحقيقية. ويكرر البرنامج نفسه إلى أن يدخل المستخدم الصفر كقيمة لأمثال س2.
البرنامج
*(
------------------------------------------------------------------------------------------------
برنامج بلغة ج لحل معادلة بمجهول واحد من الدرجة الثانية في مجال الأعداد الحقيقية
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة ، 1420 هـ - 2000 م
------------------------------------------------------------------------------------------------
)*
!! الشكل العام للمعادلة آ س^2 + ب س + ج =0
المتحول آ، ب، ج : حقيقي
المتحول م، س1، س2 : حقيقي
أكرر طالما صواب
{
أكتب "أدخل آ ب ج (أدخل 0 قيمة لـ آ كي تنهي البرنامج) : "
أقرأ آ ، ب ، ج
إذا آ = 0 أنتهي
أكتب " المعادلة: " ، آ ، " س^2 "
إذا ب > 0 أكتب " + "
أكتب ب ،" س "
إذا ج > 0 أكتب " + "
أكتب ج ، " = 0" ، سطر
أجعل م = ب^2 - 4× آ × ج
أكتب " المميز = "، م ، سطر
إذا (م<0)
أكتب "المعادلة مستحيلةالحل !"، سطر
وإلا
{
أجعل س1 = (-ب + جذر(م)) ÷ (2×آ)
أجعل س2 = (-ب - جذر(م)) ÷ (2×آ)
أكتب " حل المعادلة: "،سطر
أكتب "س1 = "، س1 ، سطر
أكتب "س2 = " ، س2 ، سطر
}
}
التنفيذ :
4. حلزون أرخميدس عرض المثال
حلزون أرخميدس
[...]
أكتب برنامجاً بلغة ج لرسم المنحني المعرّف بالمعادلة التالية في جملة إحداثيات قطبية (ر، يه):
ر= ثا × يه
حيث ثا ثابت اعتباطي.
يُعرَف هذا المنحني باسم حلزون أرخميدس، ويلتف المنحني حول مبدأ الإحداثيات بالمقدار يه÷(2×بي) مرة.
يجب على البرنامج أن يقرأ قيمة الثابت ثا، وعدد لفات الحلزون المرغوبة، وأن يرسم بعد ذلك المنحني الموافق لهاتين القيمتين.
الحل
تعتمد إيعازات الرسم في لغة ج على جملة إحداثيات قانونية متعامدة (س،ع) مبدؤها منطبق على الزاوية السفلية اليسرى للوحة الرسم. ولرسم منحن معرف بمعادلة قطبية يجب تحويل الإحداثيات القطبية إلى إحداثيات متعامدة. فإذا كانت النقطة ن (رن ، يهن) تنتمي إلى جملة الإحداثيات القطبية (ر ، يه) التي يقع مبدؤها في النقطة (س0 ، ع0) بالنسبة لجملة الإحداثيات المتعامدة فإن الإحداثيات المتعامدة (سن ، عن) لهذه النقطة تعطى بالعلاقتين:
سن = رن × تجب يه + س0
عن = رن × جب يه + ع0
ولرسم المنحني ر = ثا × يه نتبع الخوارزمية التالية:
نبدأ بالقيمة يه =0
نكرر الخطوات 1،2،3،4 طالما أن يه < 2× بي× ن، حيث ن عدد لفات الحلزون المطلوب:
1- نحسب ر من العلاقة ر = ثا × يه
2- نحسب س،ع من العلاقتين:
س= ر× تجب يه + س0 ، ع = ر × جب يه + ع0
3- نرسم النقطة (س،ع) في لوحة الرسم
4- نزيد يه بمقدار صغير وليكن 0.01 راديان
البرنامج
يبين السرد التالي تطبيق الخوارزمية المذكورة أعلاه بلغة ج.
*(
-------------------------------------------------------------------------------------------
برنامج بلغة ج لرسم منحني حلزون أرخميدس
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة، 1420 هجري - 2000 م
-------------------------------------------------------------------------------------------
)*
!! المعادلة العامة لمنحني الحلزون في الإحداثيات
!! القطبية ر = ثا × يه
!!=======================================
أدرج "ألوان"
الثابت بي = 3.1415
المتحول ر ، يه ، س ، ع ، ثا : حقيقي
المتحول ن : صحيح
المتحول س0 ، ع0 : صحيح
!! ألون لوحة الرسم باللون السماوي
!!---------------------------------------
ألون باللون السماوي ، الورقة
!! مبدأ الإحداثيات القطبية يقع في منتصف ورقة الرسم
!!-----------------------------------------------------------
أجعل س0 = حدس \ 2
أجعل ع0 = حدع \ 2
!! أرسم محوري الإحداثيات المتعامدة
!!---------------------------------------
أرسم مستقيم من (س0، 0) إلى (س0، حدع)
أرسم مستقيم من (0، ع0) إلى (حدس، ع0)
!! أرسم المنحني باللون الأحمر
!!----------------------------------
أرسم باللون الأحمر
!! أقرأ قيمة الثابت ثا وعدد اللفات ن
أكتب "أدخل قيمة الثابت ثا:"
أقرأ ثا
أكتب "أدخل عدد لفات الحلزون:"
أقرأ ن
!! أرسم المنحني نقطة فنقطة بخطوة للزاوية يه قدرها0.01 راديان
!!--------------------------------------
أجعل يه = 0
أكرر طالما يه < 2×بي×ن
{
أجعل ر = ثا × يه
أجعل س = ر × تجب (يه) + س0
أجعل ع = ر × جب (يه ) + ع0
أرسم النقطة (س ، ع)
أجعل يه = يه + 0.01
}
ويبين الشكل التالي نتيجة تنفيذ هذا البرنامج.
5. أبراج هانوي باستخدام العودية (استدعاء الذاتعرض المثال
[...]
1. حساب مساحة دائرة إخفاء المثال
حساب مساحة دائرة
يبين المثال التالي برنامجاً بسيطاًبلغةج، يحسب مساحة دائرة بعد قراءة قطرها. وقد رقمت أسطرالبرنامج للإشارة إليها في الشرح التالي. ولا تشكل هذه الأرقام جزءاً من البرنامجفي لغةج.
1 الثابت بي = 3.1415
2 المتحول ق : حقيقي
3 المتحول س : حقيقي
4 أكتب "أدخل قطر الدائرة : " ،سطر
5 أقرأ ق
6 أجعل س = بي × (ق ÷ 2)^2
7 أكتب "مساحة الدائرة = " ، س
يتألف هذا البرنامج من سبع جمل. الثلاثة الأولى منها جمل تعريفية والأربعة الأخيرة جمل تنفيذية. تعرّف الجملة الأولى الثابت الهندسي بي ( π ) وهو نسبة محيط الدائرة إلى قطرها. وتعرّف الجملة الثانية متحولاً (ق) يمكنه حفظ الأعداد الحقيقية، وسيستخدم هذا المتحول لحفظ قيمة قطر الدائرة. أما الجملة الثالثة فتعرف المتحول الحقيقي س، الذي سيستخدم لحفظ مساحة الدائرة. تقوم الجملة الرابعة بكتابة العبارة: "أدخل قطر الدائرة:" في لوحة الكتابة لتنبه المستخدم إلى ضرورة إدخال عدد يمثل قطر الدائرة. تقرأ الجملة الخامسة قيمة القطر التي يدخلها المستخدم في لوحة الكتابة. ثم تحسب الجملة السادسة مساحة الدائرة من العلاقة: π ×(ق÷2)2، وتضع هذه القيمة في المتحول س. أخيراً تقوم الجملة الأخيرة بكتابة النتيجة في لوحة الكتابة. يبين الشكل التالي مثالاً لتنفيذ هذا البرنامج:
2. حساب مضروب (عاملي) عدد صحيح إخفاء المثال
حساب مضروب (عاملي) عدد صحيح
يبين السرد التالي مثالاً آخر لبرنامج بسيط بلغة ج. يحسب هذا البرنامج مضروب (عاملي) عدد صحيح. ومضروب العدد الصحيح ن هو القيمة ن(ن-1)(ن-2) … (ن- (ن-1)). وقد رقمت سطور البرنامج للتوضيح.
1 !! برنامج لحساب مضروب عدد صحيح
2 المتحول ن : صحيح
3 المتحول ص ، ع : صحيح
4 أجعل ع = 1
5 أكتب "أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" ، سطر
6 أقرأ ن
7 أجعل ص = ن
8 أكرر طالما ص > 1
{
9 أجعل ع = ع × ص
10 أجعل ص = ص – 1
}
11 أكتب ن ، "! =" ، ع
السطر الأول في هذا البرنامج هو مجرد تعليق، أي شرح توضيحي، لمن يقرأ البرنامج من الناس، أما مترجم لغة ج فيتجاهل هذا السطر بكليته. عموماً، يتجاهل المترجم كل سطر مسبوق بعلامتي تعجب متتاليتين. تعرف الجملة الثانية ن بأنه متحول يمكنه حفظ الأعداد الصحيحة، وسيستخدم هذا المتحول لحفظ قيمة العدد المراد إيجاد مضروبه. أما الجملة الثالثة فتعرف المتحولين ص و ع بأنهما متحولين صحيحين أيضاً. وسيستخدم ع لحفظ قيمة مضروب العدد ن، أما ص فسيستخدم كعداد تنازلي من ن-1 إلى 2. تسند الجملة الرابعة القيمة 1 إلى المتحول ع. أما الجملة الخامسة فتكتب عبارة " أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" في لوحة الكتابة. تقرأ الجملة السادسة قيمة المتحول ن التي يدخلها المستخدم. وتسند الجملة السابعة قيمة ن إلى المتحول ص. أما الجملة الثامنة فهي حلقة تكرار من نوع "أكرر طالما"، ويجري فيها تنفيذ الجملتين التاسعة والعاشرة طالما كانت قيمة العداد التنازلي ص > 1، وفي كل مرة من مرات تكرار هذه الحلقة تُضرب قيمة المتحول ع بقيمة العداد التنازلي ص، وينقص ص بمقدار 1. أخيراً تكتب الجملة الحادية عشر الناتج في لوحة الكتابة. تبين الصورة التالية مثالاً لتنفيذ هذا البرنامج.
3. حل معادلة من الدرجة الثانية إخفاء المثال
حل معادلة من الدرجة الثانية
أكتب برنامجاً بلغة ج لحل معادلة من الدرجة الثانية بمجهول واحد (س)، واقتصر في الحل على مجال الأعداد الحقيقية. علماً أن للمعادلة الشكل العام :
آ س2 + ب س + ج = 0
الحل
سنكتب برنامجاً يقرأ أمثال س: آ و ب و ج ثم يكتب المعادلة كاملة في لوحة الكتابة. بعد ذلك يحسب البرنامج المميز (م) من العلاقة:
م = ب2 – 4آج
فإذا كان المميز موجباً، يحسب البرنامج جذري المعدلة س1 و س2 من العلاقتين:
س1 = (- ب + جذر (م) ) ÷ 2آ
س2 = (- ب - جذر (م) ) ÷ 2آ
ويكتب البرنامج حل المعادلة في لوحة الكتابة.
أما إذا كان المميز سالباً فيكتب البرنامج إشعاراً باستحالة حل المعادلة في مجال الأعداد الحقيقية. ويكرر البرنامج نفسه إلى أن يدخل المستخدم الصفر كقيمة لأمثال س2.
البرنامج
*(
------------------------------------------------------------------------------------------------
برنامج بلغة ج لحل معادلة بمجهول واحد من الدرجة الثانية في مجال الأعداد الحقيقية
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة ، 1420 هـ - 2000 م
------------------------------------------------------------------------------------------------
)*
!! الشكل العام للمعادلة آ س^2 + ب س + ج =0
المتحول آ، ب، ج : حقيقي
المتحول م، س1، س2 : حقيقي
أكرر طالما صواب
{
أكتب "أدخل آ ب ج (أدخل 0 قيمة لـ آ كي تنهي البرنامج) : "
أقرأ آ ، ب ، ج
إذا آ = 0 أنتهي
أكتب " المعادلة: " ، آ ، " س^2 "
إذا ب > 0 أكتب " + "
أكتب ب ،" س "
إذا ج > 0 أكتب " + "
أكتب ج ، " = 0" ، سطر
أجعل م = ب^2 - 4× آ × ج
أكتب " المميز = "، م ، سطر
إذا (م<0)
أكتب "المعادلة مستحيلةالحل !"، سطر
وإلا
{
أجعل س1 = (-ب + جذر(م)) ÷ (2×آ)
أجعل س2 = (-ب - جذر(م)) ÷ (2×آ)
أكتب " حل المعادلة: "،سطر
أكتب "س1 = "، س1 ، سطر
أكتب "س2 = " ، س2 ، سطر
}
}
التنفيذ :
4. حلزون أرخميدس إخفاء المثال
حلزون أرخميدس
[...]
أكتب برنامجاً بلغة ج لرسم المنحني المعرّف بالمعادلة التالية في جملة إحداثيات قطبية (ر، يه):
ر= ثا × يه
حيث ثا ثابت اعتباطي.
يُعرَف هذا المنحني باسم حلزون أرخميدس، ويلتف المنحني حول مبدأ الإحداثيات بالمقدار يه÷(2×بي) مرة.
يجب على البرنامج أن يقرأ قيمة الثابت ثا، وعدد لفات الحلزون المرغوبة، وأن يرسم بعد ذلك المنحني الموافق لهاتين القيمتين.
الحل
تعتمد إيعازات الرسم في لغة ج على جملة إحداثيات قانونية متعامدة (س،ع) مبدؤها منطبق على الزاوية السفلية اليسرى للوحة الرسم. ولرسم منحن معرف بمعادلة قطبية يجب تحويل الإحداثيات القطبية إلى إحداثيات متعامدة. فإذا كانت النقطة ن (رن ، يهن) تنتمي إلى جملة الإحداثيات القطبية (ر ، يه) التي يقع مبدؤها في النقطة (س0 ، ع0) بالنسبة لجملة الإحداثيات المتعامدة فإن الإحداثيات المتعامدة (سن ، عن) لهذه النقطة تعطى بالعلاقتين:
سن = رن × تجب يه + س0
عن = رن × جب يه + ع0
ولرسم المنحني ر = ثا × يه نتبع الخوارزمية التالية:
نبدأ بالقيمة يه =0
نكرر الخطوات 1،2،3،4 طالما أن يه < 2× بي× ن، حيث ن عدد لفات الحلزون المطلوب:
1- نحسب ر من العلاقة ر = ثا × يه
2- نحسب س،ع من العلاقتين:
س= ر× تجب يه + س0 ، ع = ر × جب يه + ع0
3- نرسم النقطة (س،ع) في لوحة الرسم
4- نزيد يه بمقدار صغير وليكن 0.01 راديان
البرنامج
يبين السرد التالي تطبيق الخوارزمية المذكورة أعلاه بلغة ج.
*(
-------------------------------------------------------------------------------------------
برنامج بلغة ج لرسم منحني حلزون أرخميدس
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة، 1420 هجري - 2000 م
-------------------------------------------------------------------------------------------
)*
!! المعادلة العامة لمنحني الحلزون في الإحداثيات
!! القطبية ر = ثا × يه
!!=======================================
أدرج "ألوان"
الثابت بي = 3.1415
المتحول ر ، يه ، س ، ع ، ثا : حقيقي
المتحول ن : صحيح
المتحول س0 ، ع0 : صحيح
!! ألون لوحة الرسم باللون السماوي
!!---------------------------------------
ألون باللون السماوي ، الورقة
!! مبدأ الإحداثيات القطبية يقع في منتصف ورقة الرسم
!!-----------------------------------------------------------
أجعل س0 = حدس \ 2
أجعل ع0 = حدع \ 2
!! أرسم محوري الإحداثيات المتعامدة
!!---------------------------------------
أرسم مستقيم من (س0، 0) إلى (س0، حدع)
أرسم مستقيم من (0، ع0) إلى (حدس، ع0)
!! أرسم المنحني باللون الأحمر
!!----------------------------------
أرسم باللون الأحمر
!! أقرأ قيمة الثابت ثا وعدد اللفات ن
أكتب "أدخل قيمة الثابت ثا:"
أقرأ ثا
أكتب "أدخل عدد لفات الحلزون:"
أقرأ ن
!! أرسم المنحني نقطة فنقطة بخطوة للزاوية يه قدرها0.01 راديان
!!--------------------------------------
أجعل يه = 0
أكرر طالما يه < 2×بي×ن
{
أجعل ر = ثا × يه
أجعل س = ر × تجب (يه) + س0
أجعل ع = ر × جب (يه ) + ع0
أرسم النقطة (س ، ع)
أجعل يه = يه + 0.01
}
ويبين الشكل التالي نتيجة تنفيذ هذا البرنامج.
5. أبراج هانوي باستخدام العودية (استدعاء الذات) إخفاء المثال
أبراج هانوي
[...]
تسمح لغة ج للخوارزميات والتوابع، أن تستدعي (تنفذ) نفسها ضمن متنها. تسمى هذه الميزة بالعودية. وتسمح العودية بحل العديد من مسائل البرمجة المعقدة بسهولة تامة. وتعتبر مسألة أبراج هانوي مثالاً نمطياً لاستخدام العودية في البرمجة. يبين المثال التالي حلاً لمسألة أبراج هانوي بلغة ج.
!! برنامج بلغة ج لحل مسألة أبراج هانوي
!! عدد الخطوات = 2^ن -1 حيث ن عدد الأقراص
المتحول عدد_الأقراص : صحيح
المتحول الخطوة : صحيح
الخوارزمية أنقل (العدد ، المصدر ، الهدف ، الوسيط : صحيح)
{
إذا العدد > 0
{
أنقل (العدد -1 ، المصدر ، الوسيط ، الهدف)
الخطوة = الخطوة + 1
أكتب الخطوة ، " : " ، "انقل قرصاً واحداً من " ، المصدر ، " إلى " ، الهدف ، سطر
أنقل (العدد -1 ، الوسيط ، الهدف ، المصدر)
}
}
الخطوة = 0
أكتب "أدخل عدد الأقراص : "
أقرأ عدد_الأقراص
أنقل (عدد_الأقراص ، 1، 3، 2)
ويبين الشكل التالي مثالاً لتنفيذ هذا البرنامج
[...]
http://www.jeemlang.com/index.php?page=examples
http://www.jeemlang.com/index.php
مرحباً بك في الموقع الرسمي للغة البرمجة العربية ج. وهي لغة برمجة رفيعة المستوى High Level Programming Language تستخدم اللغة العربية قلباً وقالباً. ولعلها أول لغة برمجة عربية متكاملة تحتوي جلّ خصائص لغات البرمجة الأجنبية رفيعة المستوى مثل C و Pascal . لقد أصبح بإمكانك الآن كتابة البرامج للحاسوب الشخصي باللغة العربية.
يمكنك أن تجد في هذا الموقع كثيراً من المعلومات عن لغة ج ، ونسخة مجانية من الإصدار التجريبي لبرنامج الخوارزمي، وهو برنامج يتيح لك كتابة البرامج بلغة ج، وتنقيحها، ومن ثم تنفيذها. كما ستجد في هذا الموقع أيضاً كثيراً من الأمثلة لبرامج متنوعة مكتوبة بلغة ج.
وإني لأدعوك إلى تحميل برنامج الخوارزمي إلى حاسوبك وتجربة لغة ج، وأنا على يقين أنك ستجد فيها الكثير من الفائدة والمتعة. وإن كنت من المهتمين ببرمجة الحاسوب، أو مدرساً لبرمجة الحاسوب في المدارس أو الجامعات العربية، فستجد في لغة البرمجة العربية ج وسيلة ممتازة لتعليم الطلاب العرب مبادئ البرمجة ومفاهيمها، وبديلاً عربياً للغات البرمجة الأجنبية.
وإنني لأرحب بآراءك، ومقترحاتك حول لغة ج ، أو برنامج الخوارزمي , وآمل أن تجد في لغة ج الفائدة والمتعة.
أمثلة
1. حساب مساحة دائرة عرض المثال
حساب مساحة دائرة
يبين المثال التالي برنامجاً بسيطاًبلغةج، يحسب مساحة دائرة بعد قراءة قطرها. وقد رقمت أسطرالبرنامج للإشارة إليها في الشرح التالي. ولا تشكل هذه الأرقام جزءاً من البرنامجفي لغةج.
1 الثابت بي = 3.1415
2 المتحول ق : حقيقي
3 المتحول س : حقيقي
4 أكتب "أدخل قطر الدائرة : " ،سطر
5 أقرأ ق
6 أجعل س = بي × (ق ÷ 2)^2
7 أكتب "مساحة الدائرة = " ، س
يتألف هذا البرنامج من سبع جمل. الثلاثة الأولى منها جمل تعريفية والأربعة الأخيرة جمل تنفيذية. تعرّف الجملة الأولى الثابت الهندسي بي ( π ) وهو نسبة محيط الدائرة إلى قطرها. وتعرّف الجملة الثانية متحولاً (ق) يمكنه حفظ الأعداد الحقيقية، وسيستخدم هذا المتحول لحفظ قيمة قطر الدائرة. أما الجملة الثالثة فتعرف المتحول الحقيقي س، الذي سيستخدم لحفظ مساحة الدائرة. تقوم الجملة الرابعة بكتابة العبارة: "أدخل قطر الدائرة:" في لوحة الكتابة لتنبه المستخدم إلى ضرورة إدخال عدد يمثل قطر الدائرة. تقرأ الجملة الخامسة قيمة القطر التي يدخلها المستخدم في لوحة الكتابة. ثم تحسب الجملة السادسة مساحة الدائرة من العلاقة: π ×(ق÷2)2، وتضع هذه القيمة في المتحول س. أخيراً تقوم الجملة الأخيرة بكتابة النتيجة في لوحة الكتابة. يبين الشكل التالي مثالاً لتنفيذ هذا البرنامج:
2. حساب مضروب (عاملي) عدد صحيح عرض المثال
حساب مضروب (عاملي) عدد صحيح
يبين السرد التالي مثالاً آخر لبرنامج بسيط بلغة ج. يحسب هذا البرنامج مضروب (عاملي) عدد صحيح. ومضروب العدد الصحيح ن هو القيمة ن(ن-1)(ن-2) … (ن- (ن-1)). وقد رقمت سطور البرنامج للتوضيح.
1 !! برنامج لحساب مضروب عدد صحيح
2 المتحول ن : صحيح
3 المتحول ص ، ع : صحيح
4 أجعل ع = 1
5 أكتب "أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" ، سطر
6 أقرأ ن
7 أجعل ص = ن
8 أكرر طالما ص > 1
{
9 أجعل ع = ع × ص
10 أجعل ص = ص – 1
}
11 أكتب ن ، "! =" ، ع
السطر الأول في هذا البرنامج هو مجرد تعليق، أي شرح توضيحي، لمن يقرأ البرنامج من الناس، أما مترجم لغة ج فيتجاهل هذا السطر بكليته. عموماً، يتجاهل المترجم كل سطر مسبوق بعلامتي تعجب متتاليتين. تعرف الجملة الثانية ن بأنه متحول يمكنه حفظ الأعداد الصحيحة، وسيستخدم هذا المتحول لحفظ قيمة العدد المراد إيجاد مضروبه. أما الجملة الثالثة فتعرف المتحولين ص و ع بأنهما متحولين صحيحين أيضاً. وسيستخدم ع لحفظ قيمة مضروب العدد ن، أما ص فسيستخدم كعداد تنازلي من ن-1 إلى 2. تسند الجملة الرابعة القيمة 1 إلى المتحول ع. أما الجملة الخامسة فتكتب عبارة " أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" في لوحة الكتابة. تقرأ الجملة السادسة قيمة المتحول ن التي يدخلها المستخدم. وتسند الجملة السابعة قيمة ن إلى المتحول ص. أما الجملة الثامنة فهي حلقة تكرار من نوع "أكرر طالما"، ويجري فيها تنفيذ الجملتين التاسعة والعاشرة طالما كانت قيمة العداد التنازلي ص > 1، وفي كل مرة من مرات تكرار هذه الحلقة تُضرب قيمة المتحول ع بقيمة العداد التنازلي ص، وينقص ص بمقدار 1. أخيراً تكتب الجملة الحادية عشر الناتج في لوحة الكتابة. تبين الصورة التالية مثالاً لتنفيذ هذا البرنامج.
3. حل معادلة من الدرجة الثانية عرض المثال
حل معادلة من الدرجة الثانية
أكتب برنامجاً بلغة ج لحل معادلة من الدرجة الثانية بمجهول واحد (س)، واقتصر في الحل على مجال الأعداد الحقيقية. علماً أن للمعادلة الشكل العام :
آ س2 + ب س + ج = 0
الحل
سنكتب برنامجاً يقرأ أمثال س: آ و ب و ج ثم يكتب المعادلة كاملة في لوحة الكتابة. بعد ذلك يحسب البرنامج المميز (م) من العلاقة:
م = ب2 – 4آج
فإذا كان المميز موجباً، يحسب البرنامج جذري المعدلة س1 و س2 من العلاقتين:
س1 = (- ب + جذر (م) ) ÷ 2آ
س2 = (- ب - جذر (م) ) ÷ 2آ
ويكتب البرنامج حل المعادلة في لوحة الكتابة.
أما إذا كان المميز سالباً فيكتب البرنامج إشعاراً باستحالة حل المعادلة في مجال الأعداد الحقيقية. ويكرر البرنامج نفسه إلى أن يدخل المستخدم الصفر كقيمة لأمثال س2.
البرنامج
*(
------------------------------------------------------------------------------------------------
برنامج بلغة ج لحل معادلة بمجهول واحد من الدرجة الثانية في مجال الأعداد الحقيقية
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة ، 1420 هـ - 2000 م
------------------------------------------------------------------------------------------------
)*
!! الشكل العام للمعادلة آ س^2 + ب س + ج =0
المتحول آ، ب، ج : حقيقي
المتحول م، س1، س2 : حقيقي
أكرر طالما صواب
{
أكتب "أدخل آ ب ج (أدخل 0 قيمة لـ آ كي تنهي البرنامج) : "
أقرأ آ ، ب ، ج
إذا آ = 0 أنتهي
أكتب " المعادلة: " ، آ ، " س^2 "
إذا ب > 0 أكتب " + "
أكتب ب ،" س "
إذا ج > 0 أكتب " + "
أكتب ج ، " = 0" ، سطر
أجعل م = ب^2 - 4× آ × ج
أكتب " المميز = "، م ، سطر
إذا (م<0)
أكتب "المعادلة مستحيلةالحل !"، سطر
وإلا
{
أجعل س1 = (-ب + جذر(م)) ÷ (2×آ)
أجعل س2 = (-ب - جذر(م)) ÷ (2×آ)
أكتب " حل المعادلة: "،سطر
أكتب "س1 = "، س1 ، سطر
أكتب "س2 = " ، س2 ، سطر
}
}
التنفيذ :
4. حلزون أرخميدس عرض المثال
حلزون أرخميدس
[...]
أكتب برنامجاً بلغة ج لرسم المنحني المعرّف بالمعادلة التالية في جملة إحداثيات قطبية (ر، يه):
ر= ثا × يه
حيث ثا ثابت اعتباطي.
يُعرَف هذا المنحني باسم حلزون أرخميدس، ويلتف المنحني حول مبدأ الإحداثيات بالمقدار يه÷(2×بي) مرة.
يجب على البرنامج أن يقرأ قيمة الثابت ثا، وعدد لفات الحلزون المرغوبة، وأن يرسم بعد ذلك المنحني الموافق لهاتين القيمتين.
الحل
تعتمد إيعازات الرسم في لغة ج على جملة إحداثيات قانونية متعامدة (س،ع) مبدؤها منطبق على الزاوية السفلية اليسرى للوحة الرسم. ولرسم منحن معرف بمعادلة قطبية يجب تحويل الإحداثيات القطبية إلى إحداثيات متعامدة. فإذا كانت النقطة ن (رن ، يهن) تنتمي إلى جملة الإحداثيات القطبية (ر ، يه) التي يقع مبدؤها في النقطة (س0 ، ع0) بالنسبة لجملة الإحداثيات المتعامدة فإن الإحداثيات المتعامدة (سن ، عن) لهذه النقطة تعطى بالعلاقتين:
سن = رن × تجب يه + س0
عن = رن × جب يه + ع0
ولرسم المنحني ر = ثا × يه نتبع الخوارزمية التالية:
نبدأ بالقيمة يه =0
نكرر الخطوات 1،2،3،4 طالما أن يه < 2× بي× ن، حيث ن عدد لفات الحلزون المطلوب:
1- نحسب ر من العلاقة ر = ثا × يه
2- نحسب س،ع من العلاقتين:
س= ر× تجب يه + س0 ، ع = ر × جب يه + ع0
3- نرسم النقطة (س،ع) في لوحة الرسم
4- نزيد يه بمقدار صغير وليكن 0.01 راديان
البرنامج
يبين السرد التالي تطبيق الخوارزمية المذكورة أعلاه بلغة ج.
*(
-------------------------------------------------------------------------------------------
برنامج بلغة ج لرسم منحني حلزون أرخميدس
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة، 1420 هجري - 2000 م
-------------------------------------------------------------------------------------------
)*
!! المعادلة العامة لمنحني الحلزون في الإحداثيات
!! القطبية ر = ثا × يه
!!=======================================
أدرج "ألوان"
الثابت بي = 3.1415
المتحول ر ، يه ، س ، ع ، ثا : حقيقي
المتحول ن : صحيح
المتحول س0 ، ع0 : صحيح
!! ألون لوحة الرسم باللون السماوي
!!---------------------------------------
ألون باللون السماوي ، الورقة
!! مبدأ الإحداثيات القطبية يقع في منتصف ورقة الرسم
!!-----------------------------------------------------------
أجعل س0 = حدس \ 2
أجعل ع0 = حدع \ 2
!! أرسم محوري الإحداثيات المتعامدة
!!---------------------------------------
أرسم مستقيم من (س0، 0) إلى (س0، حدع)
أرسم مستقيم من (0، ع0) إلى (حدس، ع0)
!! أرسم المنحني باللون الأحمر
!!----------------------------------
أرسم باللون الأحمر
!! أقرأ قيمة الثابت ثا وعدد اللفات ن
أكتب "أدخل قيمة الثابت ثا:"
أقرأ ثا
أكتب "أدخل عدد لفات الحلزون:"
أقرأ ن
!! أرسم المنحني نقطة فنقطة بخطوة للزاوية يه قدرها0.01 راديان
!!--------------------------------------
أجعل يه = 0
أكرر طالما يه < 2×بي×ن
{
أجعل ر = ثا × يه
أجعل س = ر × تجب (يه) + س0
أجعل ع = ر × جب (يه ) + ع0
أرسم النقطة (س ، ع)
أجعل يه = يه + 0.01
}
ويبين الشكل التالي نتيجة تنفيذ هذا البرنامج.
5. أبراج هانوي باستخدام العودية (استدعاء الذاتعرض المثال
[...]
<table class=MsoNormalTable dir=rtl style="BACKGROUND: white; mso-cellspacing: 0cm; mso-yfti-tbllook: 1184; mso-padding-alt: 0cm 0cm 0cm 0cm; mso-table-dir: bidi" cellSpacing=0 cellPadding=0 border=0><tr style="mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes"><td style="BORDER-RIGHT: #f5f5f5; PADDING-RIGHT: 0cm; BORDER-TOP: #f5f5f5; PADDING-LEFT: 0cm; PADDING-BOTTOM: 0cm; BORDER-LEFT: #f5f5f5; PADDING-TOP: 0cm; BORDER-BOTTOM: #f5f5f5; BACKGROUND-COLOR: transparent"> أمثلة</TD></TR></TABLE> |
1. حساب مساحة دائرة إخفاء المثال
حساب مساحة دائرة
يبين المثال التالي برنامجاً بسيطاًبلغةج، يحسب مساحة دائرة بعد قراءة قطرها. وقد رقمت أسطرالبرنامج للإشارة إليها في الشرح التالي. ولا تشكل هذه الأرقام جزءاً من البرنامجفي لغةج.
1 الثابت بي = 3.1415
2 المتحول ق : حقيقي
3 المتحول س : حقيقي
4 أكتب "أدخل قطر الدائرة : " ،سطر
5 أقرأ ق
6 أجعل س = بي × (ق ÷ 2)^2
7 أكتب "مساحة الدائرة = " ، س
يتألف هذا البرنامج من سبع جمل. الثلاثة الأولى منها جمل تعريفية والأربعة الأخيرة جمل تنفيذية. تعرّف الجملة الأولى الثابت الهندسي بي ( π ) وهو نسبة محيط الدائرة إلى قطرها. وتعرّف الجملة الثانية متحولاً (ق) يمكنه حفظ الأعداد الحقيقية، وسيستخدم هذا المتحول لحفظ قيمة قطر الدائرة. أما الجملة الثالثة فتعرف المتحول الحقيقي س، الذي سيستخدم لحفظ مساحة الدائرة. تقوم الجملة الرابعة بكتابة العبارة: "أدخل قطر الدائرة:" في لوحة الكتابة لتنبه المستخدم إلى ضرورة إدخال عدد يمثل قطر الدائرة. تقرأ الجملة الخامسة قيمة القطر التي يدخلها المستخدم في لوحة الكتابة. ثم تحسب الجملة السادسة مساحة الدائرة من العلاقة: π ×(ق÷2)2، وتضع هذه القيمة في المتحول س. أخيراً تقوم الجملة الأخيرة بكتابة النتيجة في لوحة الكتابة. يبين الشكل التالي مثالاً لتنفيذ هذا البرنامج:
2. حساب مضروب (عاملي) عدد صحيح إخفاء المثال
حساب مضروب (عاملي) عدد صحيح
يبين السرد التالي مثالاً آخر لبرنامج بسيط بلغة ج. يحسب هذا البرنامج مضروب (عاملي) عدد صحيح. ومضروب العدد الصحيح ن هو القيمة ن(ن-1)(ن-2) … (ن- (ن-1)). وقد رقمت سطور البرنامج للتوضيح.
1 !! برنامج لحساب مضروب عدد صحيح
2 المتحول ن : صحيح
3 المتحول ص ، ع : صحيح
4 أجعل ع = 1
5 أكتب "أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" ، سطر
6 أقرأ ن
7 أجعل ص = ن
8 أكرر طالما ص > 1
{
9 أجعل ع = ع × ص
10 أجعل ص = ص – 1
}
11 أكتب ن ، "! =" ، ع
السطر الأول في هذا البرنامج هو مجرد تعليق، أي شرح توضيحي، لمن يقرأ البرنامج من الناس، أما مترجم لغة ج فيتجاهل هذا السطر بكليته. عموماً، يتجاهل المترجم كل سطر مسبوق بعلامتي تعجب متتاليتين. تعرف الجملة الثانية ن بأنه متحول يمكنه حفظ الأعداد الصحيحة، وسيستخدم هذا المتحول لحفظ قيمة العدد المراد إيجاد مضروبه. أما الجملة الثالثة فتعرف المتحولين ص و ع بأنهما متحولين صحيحين أيضاً. وسيستخدم ع لحفظ قيمة مضروب العدد ن، أما ص فسيستخدم كعداد تنازلي من ن-1 إلى 2. تسند الجملة الرابعة القيمة 1 إلى المتحول ع. أما الجملة الخامسة فتكتب عبارة " أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" في لوحة الكتابة. تقرأ الجملة السادسة قيمة المتحول ن التي يدخلها المستخدم. وتسند الجملة السابعة قيمة ن إلى المتحول ص. أما الجملة الثامنة فهي حلقة تكرار من نوع "أكرر طالما"، ويجري فيها تنفيذ الجملتين التاسعة والعاشرة طالما كانت قيمة العداد التنازلي ص > 1، وفي كل مرة من مرات تكرار هذه الحلقة تُضرب قيمة المتحول ع بقيمة العداد التنازلي ص، وينقص ص بمقدار 1. أخيراً تكتب الجملة الحادية عشر الناتج في لوحة الكتابة. تبين الصورة التالية مثالاً لتنفيذ هذا البرنامج.
3. حل معادلة من الدرجة الثانية إخفاء المثال
حل معادلة من الدرجة الثانية
أكتب برنامجاً بلغة ج لحل معادلة من الدرجة الثانية بمجهول واحد (س)، واقتصر في الحل على مجال الأعداد الحقيقية. علماً أن للمعادلة الشكل العام :
آ س2 + ب س + ج = 0
الحل
سنكتب برنامجاً يقرأ أمثال س: آ و ب و ج ثم يكتب المعادلة كاملة في لوحة الكتابة. بعد ذلك يحسب البرنامج المميز (م) من العلاقة:
م = ب2 – 4آج
فإذا كان المميز موجباً، يحسب البرنامج جذري المعدلة س1 و س2 من العلاقتين:
س1 = (- ب + جذر (م) ) ÷ 2آ
س2 = (- ب - جذر (م) ) ÷ 2آ
ويكتب البرنامج حل المعادلة في لوحة الكتابة.
أما إذا كان المميز سالباً فيكتب البرنامج إشعاراً باستحالة حل المعادلة في مجال الأعداد الحقيقية. ويكرر البرنامج نفسه إلى أن يدخل المستخدم الصفر كقيمة لأمثال س2.
البرنامج
*(
------------------------------------------------------------------------------------------------
برنامج بلغة ج لحل معادلة بمجهول واحد من الدرجة الثانية في مجال الأعداد الحقيقية
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة ، 1420 هـ - 2000 م
------------------------------------------------------------------------------------------------
)*
!! الشكل العام للمعادلة آ س^2 + ب س + ج =0
المتحول آ، ب، ج : حقيقي
المتحول م، س1، س2 : حقيقي
أكرر طالما صواب
{
أكتب "أدخل آ ب ج (أدخل 0 قيمة لـ آ كي تنهي البرنامج) : "
أقرأ آ ، ب ، ج
إذا آ = 0 أنتهي
أكتب " المعادلة: " ، آ ، " س^2 "
إذا ب > 0 أكتب " + "
أكتب ب ،" س "
إذا ج > 0 أكتب " + "
أكتب ج ، " = 0" ، سطر
أجعل م = ب^2 - 4× آ × ج
أكتب " المميز = "، م ، سطر
إذا (م<0)
أكتب "المعادلة مستحيلةالحل !"، سطر
وإلا
{
أجعل س1 = (-ب + جذر(م)) ÷ (2×آ)
أجعل س2 = (-ب - جذر(م)) ÷ (2×آ)
أكتب " حل المعادلة: "،سطر
أكتب "س1 = "، س1 ، سطر
أكتب "س2 = " ، س2 ، سطر
}
}
التنفيذ :
4. حلزون أرخميدس إخفاء المثال
حلزون أرخميدس
[...]
أكتب برنامجاً بلغة ج لرسم المنحني المعرّف بالمعادلة التالية في جملة إحداثيات قطبية (ر، يه):
ر= ثا × يه
حيث ثا ثابت اعتباطي.
يُعرَف هذا المنحني باسم حلزون أرخميدس، ويلتف المنحني حول مبدأ الإحداثيات بالمقدار يه÷(2×بي) مرة.
يجب على البرنامج أن يقرأ قيمة الثابت ثا، وعدد لفات الحلزون المرغوبة، وأن يرسم بعد ذلك المنحني الموافق لهاتين القيمتين.
الحل
تعتمد إيعازات الرسم في لغة ج على جملة إحداثيات قانونية متعامدة (س،ع) مبدؤها منطبق على الزاوية السفلية اليسرى للوحة الرسم. ولرسم منحن معرف بمعادلة قطبية يجب تحويل الإحداثيات القطبية إلى إحداثيات متعامدة. فإذا كانت النقطة ن (رن ، يهن) تنتمي إلى جملة الإحداثيات القطبية (ر ، يه) التي يقع مبدؤها في النقطة (س0 ، ع0) بالنسبة لجملة الإحداثيات المتعامدة فإن الإحداثيات المتعامدة (سن ، عن) لهذه النقطة تعطى بالعلاقتين:
سن = رن × تجب يه + س0
عن = رن × جب يه + ع0
ولرسم المنحني ر = ثا × يه نتبع الخوارزمية التالية:
نبدأ بالقيمة يه =0
نكرر الخطوات 1،2،3،4 طالما أن يه < 2× بي× ن، حيث ن عدد لفات الحلزون المطلوب:
1- نحسب ر من العلاقة ر = ثا × يه
2- نحسب س،ع من العلاقتين:
س= ر× تجب يه + س0 ، ع = ر × جب يه + ع0
3- نرسم النقطة (س،ع) في لوحة الرسم
4- نزيد يه بمقدار صغير وليكن 0.01 راديان
البرنامج
يبين السرد التالي تطبيق الخوارزمية المذكورة أعلاه بلغة ج.
*(
-------------------------------------------------------------------------------------------
برنامج بلغة ج لرسم منحني حلزون أرخميدس
جميع الحقوق محفوظة للمؤلف: د. محمد عمار السلكة، 1420 هجري - 2000 م
-------------------------------------------------------------------------------------------
)*
!! المعادلة العامة لمنحني الحلزون في الإحداثيات
!! القطبية ر = ثا × يه
!!=======================================
أدرج "ألوان"
الثابت بي = 3.1415
المتحول ر ، يه ، س ، ع ، ثا : حقيقي
المتحول ن : صحيح
المتحول س0 ، ع0 : صحيح
!! ألون لوحة الرسم باللون السماوي
!!---------------------------------------
ألون باللون السماوي ، الورقة
!! مبدأ الإحداثيات القطبية يقع في منتصف ورقة الرسم
!!-----------------------------------------------------------
أجعل س0 = حدس \ 2
أجعل ع0 = حدع \ 2
!! أرسم محوري الإحداثيات المتعامدة
!!---------------------------------------
أرسم مستقيم من (س0، 0) إلى (س0، حدع)
أرسم مستقيم من (0، ع0) إلى (حدس، ع0)
!! أرسم المنحني باللون الأحمر
!!----------------------------------
أرسم باللون الأحمر
!! أقرأ قيمة الثابت ثا وعدد اللفات ن
أكتب "أدخل قيمة الثابت ثا:"
أقرأ ثا
أكتب "أدخل عدد لفات الحلزون:"
أقرأ ن
!! أرسم المنحني نقطة فنقطة بخطوة للزاوية يه قدرها0.01 راديان
!!--------------------------------------
أجعل يه = 0
أكرر طالما يه < 2×بي×ن
{
أجعل ر = ثا × يه
أجعل س = ر × تجب (يه) + س0
أجعل ع = ر × جب (يه ) + ع0
أرسم النقطة (س ، ع)
أجعل يه = يه + 0.01
}
ويبين الشكل التالي نتيجة تنفيذ هذا البرنامج.
5. أبراج هانوي باستخدام العودية (استدعاء الذات) إخفاء المثال
أبراج هانوي
[...]
تسمح لغة ج للخوارزميات والتوابع، أن تستدعي (تنفذ) نفسها ضمن متنها. تسمى هذه الميزة بالعودية. وتسمح العودية بحل العديد من مسائل البرمجة المعقدة بسهولة تامة. وتعتبر مسألة أبراج هانوي مثالاً نمطياً لاستخدام العودية في البرمجة. يبين المثال التالي حلاً لمسألة أبراج هانوي بلغة ج.
!! برنامج بلغة ج لحل مسألة أبراج هانوي
!! عدد الخطوات = 2^ن -1 حيث ن عدد الأقراص
المتحول عدد_الأقراص : صحيح
المتحول الخطوة : صحيح
الخوارزمية أنقل (العدد ، المصدر ، الهدف ، الوسيط : صحيح)
{
إذا العدد > 0
{
أنقل (العدد -1 ، المصدر ، الوسيط ، الهدف)
الخطوة = الخطوة + 1
أكتب الخطوة ، " : " ، "انقل قرصاً واحداً من " ، المصدر ، " إلى " ، الهدف ، سطر
أنقل (العدد -1 ، الوسيط ، الهدف ، المصدر)
}
}
الخطوة = 0
أكتب "أدخل عدد الأقراص : "
أقرأ عدد_الأقراص
أنقل (عدد_الأقراص ، 1، 3، 2)
ويبين الشكل التالي مثالاً لتنفيذ هذا البرنامج
[...]
http://www.jeemlang.com/index.php?page=examples
http://www.jeemlang.com/index.php
أ. د. جمال بن عمار الأحمر- رئيس منظمة الشعب الأندلسي العالمية
- الجنس :
العمر : 64
تاريخ الميلاد : 22/02/1960
تاريخ التسجيل : 02/05/2009
عدد المساهمات : 2938
نقاط الشكر على الجدية الأندلسية : 3
نشاطه في منظمة ش الأندلسي ع : 4879
العمل/الترفيه : أستاذ جامعي. مؤسس في حركة إسلامية قوية في نهاية السبعينيات. وسياسي قديم. ومرشح برلماني سابق -
رد: أول لغة برمجة عربية متكامله ( لغة ج )
من طرف بارقة أمل الأندلس الحبيبة الخميس 12 نوفمبر 2009, 23:01
أجزل الله لك الأجر و المثوبه أيها الفاضل
لغة جيم تعتبر أول لغة برمجه بالعربيه .. و لها مترجم خاص بها
( compiler )
نسأل الله أن ينفع بها
لغة جيم تعتبر أول لغة برمجه بالعربيه .. و لها مترجم خاص بها
( compiler )
نسأل الله أن ينفع بها
بارقة أمل الأندلس الحبيبة- مفكر وقائد في القضية الأندلسية المعاصرة
- الجنس :
تاريخ التسجيل : 03/11/2009
عدد المساهمات : 73
نقاط الشكر على الجدية الأندلسية : 25
نشاطه في منظمة ش الأندلسي ع : 155
مواضيع مماثلة» لغة برمجة فورتن Fortran 2010 12.10 (x86/x64)
» سطح مكتب جميل ديناميكي يتضمن لغة عربية
» مظاهرات عربية هذه الأيام تحمل شعارات القضية الأندلسية المعاصرة
» سطح مكتب جميل ديناميكي يتضمن لغة عربية
» مظاهرات عربية هذه الأيام تحمل شعارات القضية الأندلسية المعاصرة
منظمة الشعب الأندلسي العالمية World Organization of Andalusian People :: منتديات الأندلسيين المعاصرين-CONTEMPORARY ANDALUSIANS’ FORUMS - FOROS ANDALUCES CONTEMPORÁNEOS - FORUMS DES ANDALOUS CONTEMPORAINS :: قسم الحاسوب والتعريب والبرامج المعربة Arabized Programs, Programas arabizados, Programmes Arabisés, Computer, Ordinateur, Microordenador,
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» حمل المئات من كتب النحو والصرف والإعراب (أمهات الكتب)
» ألقاب عائلات أندلسية في الجزائر
» Ansys Electromagnetics Suite 2024 R1
» لقب: خلـــيفة، بالشرق الجزائري
» مسرحية (ولادة)، علي عبد العظيم (نالت الجائزة الأولى للتأليف المسرحي من وزارة الشؤون الاجتماعية، بمصر)، 1948م
» WSDOT BridgeLink v7.0.1.0 English 64-bit
» UniSoft GS UniSettle v4.0.0.58 English 32-64-bit
» UniSoft GS UniPile v5.0.0.60 English 32-64-bit