اريد المساعدة علي حل هذه التمارين(pascal )

الموضوع في 'لغات البرمجة' بواسطة midou1981, بتاريخ ‏23 جويلية 2007.

حالة الموضوع:
مغلق
  1. midou1981

    midou1981 عضو نشيط

    إنضم إلينا في:
    ‏22 جوان 2007
    المشاركات:
    190
    الإعجابات المتلقاة:
    1
      23-07-2007 21:08
    :besmellah1:
    اريد المساعدة علي حل هذه التمارين(pascal ) و ارجو ان يكون ذالك في اقرب وقت ممكن وشكرا على سعة صدركم.
    :satelite:
     

    الملفات المرفقة:

  2. montassar

    montassar عضو نشيط

    إنضم إلينا في:
    ‏19 نوفمبر 2005
    المشاركات:
    123
    الإعجابات المتلقاة:
    44
      24-07-2007 17:34
    أخي لقد توصلت إلى حل التمرين الأول
    إن شاء الله ساكمل الباقي في القريب العاجل
     
  3. midou1981

    midou1981 عضو نشيط

    إنضم إلينا في:
    ‏22 جوان 2007
    المشاركات:
    190
    الإعجابات المتلقاة:
    1
      25-07-2007 14:00
    هل من الممكن يا اخي الكريم ان تمدني بما وصلت اليه
    اشكرك علي المجهدات المبذولة وانشاء الله تصل الي حل باقي التمارين في اقرب وقت
    :satelite:
     
  4. montassar

    montassar عضو نشيط

    إنضم إلينا في:
    ‏19 نوفمبر 2005
    المشاركات:
    123
    الإعجابات المتلقاة:
    44
      26-07-2007 15:18
    تفضل أخي

    كود (text):
    program exerice;
    uses wincrt;
    var a,b,c,d:word;


    function equation (a,b,c,d:word):boolean;

    begin
       equation := (10 * a + b) * (10 * c + d) = (10 * b + a) * (10 * d + c);
    end;

    begin
      a:= 1; b:= 2;
      repeat
        inc(a); inc(b);
        c:= (a mod 10 * 10) + a div 10;
        d:= (b mod 10 * 10) + b div 10;
        if (equation(a,b,c,d)) then
           writeln (a,' * ',b,' = ',c,' * ',d);
      until (a > 100 ) and (b> 100);
    end.
     
جاري تحميل الصفحة...
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...