Results 1 to 5 of 5

Thread: pascal لاعضاء شباب اليمن...اسبوعياً درس جديد...

  1. #1

    وائل عبدالله's Avatar
    Join Date
    Sep 2003
    Location
    usa
    العمر
    42
    Posts
    7,125
    Rep Power
    426

    pascal لاعضاء شباب اليمن...اسبوعياً درس جديد...



    تاريخ لغة الباسكال
    تعود قصة الرياضي والفيلسوف الفرنسي بليز باسكال إلى منتصف القرن السادس عشر ميلادي عام 1642م حيث أن هذا الشاب والذي كان يبلغ الثامنة عشر ربيعا والذي كانت بوادر العبقرية والاختراع تبدو جليه على أعماله وحيث أنه كان شديد الإبداع في علم الرياضيات مولعا بالاكتشافات العلمية وتطبيق النظريات الرياضية ففي نفس السنه اخترع أول حاسب نصف آلي وسمي باسمه ( حاسب باسكال 1642 ) ، وكان ذلك لسبب أساسي وهو مساعده أبيه الذي كان يعمل في مؤسسة الضرائب محصلا للفواتير والذي كان يقضي معظم لياليه مستخدما العد اليدوي في إحصاء وتدقيق حسابات المبالغ التي حصلها وقد كان يشكل هذا النوع البطيء من الحساب إرباكا لعائلته ، وبالتالي يأخذ منه الوقت الكبير .

    يتكون حاسب باسكال الميكانيكي من مجموعه متتالية من الإطارات ( الأقراص ) كل واحد منها مرقمة من الصفر إلى التسعة ، هذه الإطارات مرتبه بحيث تقرأ الأرقام المسجلة عليها من اليسار إلى اليمين ويتم إدارتها يدويا عن طريق الذراع ، فعندما يتم أحد هذه الأقراص دورته من الصفر إلى التسع فإن نتوء الرقم 9 يدفع الطارة المجاورة له رقما واحدا وعند ذلك أي دورة الطارة الأولى تسعة مواقع متتالية ( دوره كاملة ) فإنها تدفع الطارة التالية لها من اليسار موقعا واحدا وهكذا حتى يتم تسجيل العدد .

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

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


    إتباعها لحل المسألة بواسطة الحاسب


    هذه الخطوات هي ما تعرف باللوغاريتم The Algorithm بعد ذلك يمكن تحويل هذه الخطوات إلى إيعازات باسكال

    والتي ستتحول بدورها إلى لغة الآلة المستعملة

    بواسطة برنامج المصنف Compiler

    وبرنامج الباسكال هو مجموعه من الإيعازات بعضها منفذ Executable وبعضها غير منفذ Non-Executable

    وتتألف هذه الإيعازات من كلمات دليليه أو من كلمات تعريفية يجب على المبرمج تعريفها في بداية كل برنامج

    ولتوضيح ذلك نرى مخطط لبرنامج باسكال

    Program The Total (input, output);


    {This program find sum of two integer number}

    Var

    A, B, Total: integer;

    Begin

    Write (‘Enter two integer numbers to be add: ‘);
    Readln (a, b);
    Total: = a+b;
    Writeln (‘The sum of’, A,’and’, B,’is’, Total);
    End.

    حيث نلاحظ

    - السطر الأول هو للتعريف باسم البرنامج ووسيله الإدخال والإخراج

    - أن الجزء الملون بالأزرق هو عباره عن كلمات محجوزه سنتعرف عليها بالتفصيل بالدروس القادمه

    - الجزء الملون بالأخضر هو عباره عن إيعاز غير منفذ وهي ملاحظات خاصه بقاريء البرنامج

    - الكلمه الدليليه Var للتصريح عن المتغيرات وسيتم دراستها بالتفصيل

    - الجزء الممتد من Begin إلى End هو عباره عن جسم البرنامج والأوامر بينها

    - السطر الأخير يحتوي على End متبوعه بنقطه وذلك للدلاله على نهايه البرنامج وسنلاحظ أن

    1- بعد كل سطر هنالك نقطه فاصلة (;) للدلالة على سطر آخر يلية

    2- بعد كلمه End هنالك نقطة (.) للدلاله على أنه لا يوجد سطر بعد ذلك
    مشرف سابق في شباب اليمن...

    تريد موقع قراني (تفصل من هنا)


    http://www.quran4u.co


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

    ادخل على مكتبة صور راح تخدربك

    www.funize.net


  2. #2


    Join Date
    Aug 2005
    Posts
    5,012
    Rep Power
    358
    جزاك الله كل خير اخي وائل
    لكم اجمل تحية والعفو منكم





    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي
    حضــــــــــــــــرمي
    [CENTER]
    يمنع وضع الأيميلات الشخصيه بحسب قوانين الملتقى

  3. #3

    وائل عبدالله's Avatar
    Join Date
    Sep 2003
    Location
    usa
    العمر
    42
    Posts
    7,125
    Rep Power
    426

    مشكور اخي على المرور...

    اخوك / وائل عبدالله



    مشرف سابق في شباب اليمن...

    تريد موقع قراني (تفصل من هنا)


    http://www.quran4u.co


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

    ادخل على مكتبة صور راح تخدربك

    www.funize.net


  4. #4


    Join Date
    Aug 2007
    Location
    الامـــــUAEارات ..
    Posts
    20,095
    Rep Power
    636

    رد: pascal لاعضاء شباب اليمن...اسبوعياً درس جديد...

    جزاك الله كل خير اخي وائل

  5. #5


    Join Date
    Aug 2007
    Location
    الامـــــUAEارات ..
    Posts
    20,095
    Rep Power
    636

    رد: pascal لاعضاء شباب اليمن...اسبوعياً درس جديد...

    مشــــــــــــــــــــــــــــــــــكورررررررررررر

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. وضعك المالي في العيد !!!! لاعضاء شباب اليمن
    By همسات المحبة in forum ملتقى المواضيع العـامـة
    Replies: 8
    Last Post: 04-11-2005, 02:03 AM
  2. Replies: 3
    Last Post: 03-05-2005, 12:38 PM
  3. الدوري الرياضي الترفيهي لاعضاء شباب اليمن
    By صنعاني فرص in forum ملتقى الريــاضــة
    Replies: 16
    Last Post: 25-02-2004, 02:41 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •