هنا للتحاور حول هذاالبرنامج في الباسكال 2eme+3eme+bacinfo

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة anas sellami, بتاريخ ‏23 أكتوبر 2008.

  1. anas sellami

    anas sellami عضو نشيط

    إنضم إلينا في:
    ‏4 فيفري 2007
    المشاركات:
    299
    الإعجابات المتلقاة:
    132
      23-10-2008 22:35

    :besmellah2:

    هناك برنامج محير
    بصراحة معجز....



    Love meter


    1) قبل البدئ.. هذه البرامج تقوم على algorithme يحسب درجة التوافق
    بين شخصين بطريقة عشوائيّة يعني لا مجال للصدق أو للواقع في هذا البرنامج..

    2) المشكلة قي برنامجنا أنه في هذا البرنامج فقط لا يقوم le compilateur لا يقوم سوى بقراءة اسم فقط :oh:


    Exemple d'exécution
    كود (text):
    program love;
    uses wincrt;
    var

    nom1,nom2:string;
    l1,l2,t:integer;
    begin
    writeln('Donner votre nom : ');read(nom1);
    writeln('Donner le nom de votre correspondant : ');read(nom2);
    l1:=(length(nom1));
    l2:=(length(nom2));
    t:=l1+l2;
    writeln('Votre degré de correspondance est : ',t);
    end.
     
    جربوا هذه المحاولة و أعطونا أراتكم
    جميع المستويات مسموحة..لأن البرنامج لا يتطلب معارف اضاقيّة..


     
  2. bako

    bako عضو

    إنضم إلينا في:
    ‏21 أوت 2008
    المشاركات:
    466
    الإعجابات المتلقاة:
    131
      23-10-2008 23:04
    هناك حطأ باسكال لا يتقبل ال ' و لم يتقبل integer
     
  3. HBHY-SAT

    HBHY-SAT نجم المنتدى

    إنضم إلينا في:
    ‏19 جويلية 2008
    المشاركات:
    1.692
    الإعجابات المتلقاة:
    2.820
      23-10-2008 23:33
    :wlcm:


    خطأ يا غالي
    الباسكال يتقبّل و يعمل بالــ integer

    :tunis::tunis::tunis:
     
  4. HBHY-SAT

    HBHY-SAT نجم المنتدى

    إنضم إلينا في:
    ‏19 جويلية 2008
    المشاركات:
    1.692
    الإعجابات المتلقاة:
    2.820
      23-10-2008 23:45
    :wlcm:

    ها قد أصلحت لك البرنامج يا غالي
    وهو يعمل 100/100


    :tunis::tunis::tunis:



    كود (text):



    program love;
    uses wincrt;
    var

    nom1,nom2:string;
    l1,l2,t:integer;
    begin
    writeln('Donner votre nom : ');read[COLOR=Red]ln[/COLOR](nom1);
    writeln('Donner le nom de votre correspondant : ');read[COLOR=Red]ln[/COLOR](nom2);

    l1:=(length(nom1));
    l2:=(length(nom2));
    t:=l1+l2;
    writeln('Votre degré de correspondance est : ',t);
    end.
    [FONT=Comic Sans MS][COLOR=Blue]
    ****************HBHY-SAT*****************
    ***************TUNISIA-SAT***************[/COLOR][/FONT]

     

    :easter::easter:
     

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

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