Langage de programmation arab

ماهي لغة ج 
طلب مني أحد الأصدقاء ذات يوم أن أبدي رأيي في منهاج كان قد أعده لتدريس علوم الحاسوب للأطفال وطلاب المدارس في إحدى المعاهد. وكان من جملة أهداف هذا المنهاج تعليم طلاب المراحل الدراسية المبكرة برمجة الحاسوب من خلال لغات برمجة بسيطة مثل LOGO و BASIC. وقد لفت نظري أن هذه اللغات على بساطتها لا تناسب الطلاب العرب الصغار لاعتمادها على اللغة الإنكليزية. وكما هو معروف، تعتمد غالبية لغات البرمجة رفيعة المستوى  High Level Languages  على اللغة الإنكليزية، وتستخدم الأحرف اللاتينية قلباً وقالباً، مما يجعلها بعيدة المنال عن الطلاب العرب، خاصة أولئك الذين مازالوا في المراحل التعليمية المبكرة، ولم يتقنوا اللغات الأجنبية اتقاناً كافياً. 
فتولد عندي دافع قوي للعمل على تطوير لغة برمجة عربية تكون سهلة وميسرة، ولا تقل مع ذلك في قدراتها عن لغات البرمجة رفيعة المستوى المعروفة مثل  C و PASCAL. لتكون وسيلة مناسبة لتعليم الطلاب العرب مبادئ البرمجة بلغتهم الأم. وأن تكون هذه اللغة من روح مناهجهم، ومن صميم المفردات التي ألفوها في حياتهم الدراسية. وتشكلت لدي قناعة بأن إدخال الحاسوب إلى المناهج التعليمية في العالم العربي يجب أن ينطلق من تعليم الطلاب برمجة الحاسوب بواسطة لغة برمجة تمكنهم من السيطرة على مفاهيم البرمجة الأساسية بلغتهم الأم، وتتوافق وتنسجم مع مناهجهم الأخرى في الرياضيات والعلوم واللغة العربية. 
وشرعت في العمل على تطوير هذه اللغة، وتوصلت إلى لغة برمجة عالية المستوى مشتقة من اللغة العربية، تكتب بحروفها وأرقامها، وتستخدم مفرداتها، وتلتزم بقواعدها. وتتمتع بالبساطة والوضوح. ويمكن بواسطتها برمجة كل ما يحتاجه الطالب من برامج وخوارزميات تفيده في دراسته. وقد رأيت أن أطلق على هذه اللغة اسم ج لشبهها في جوانب عديدة بلغة البرمجة المعروفة C.  كما قمت بتطوير برنامج يتيح كتابة، وتنقيح، وتنفيذ البرامج بلغة ج، وأطلقت على هذا البرنامج اسم الخوارزمي تقديراً للعالم الشهير محمد بن موسى الخوارزمي. 
وقد شاء الله أن أنشغل عن اتمام اللمسات الأخيرة لهذا البرنامج فترة من الزمن، وأن يبقى هو ولغة ج حبيساً في أحد الدروج، إلى أن قلت أعبائي مؤخراً وأكملت ما بدأته منذ أكثر من 7 سنوات. 
وإني إذ أضع هذا العمل المتواضع بين أيدي الطلاب والمدرسين العرب في كل مكان لأرجو أًن تتحقق منه الفائدة والمتعة، وأن يكون وسيلة لتعليم برمجة الحاسوب في المدارس والمعاهد بدلاً من لغات البرمجة الأجنبية.
 
 
والله من وراء القصد.
د.محمد عمار السَلكة
drsalka@jeemlang.com

 حل معادلة من الدرجة الثانية

أكتب برنامجاً بلغة ج لحل معادلة من الدرجة الثانية بمجهول واحد (س)، واقتصر في الحل على مجال الأعداد الحقيقية. علماً أن للمعادلة الشكل العام :
آ س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 ، سطر
              }
          }

التنفيذ :