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

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

  1. anas sellami

    anas sellami عضو نشيط

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

    :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 : ');
    end.
     
    جربوا هذه المحاولة و أعطونا أراتكم
    جميع المستويات مسموحة..لأن البرنامج لا يتطلب معارف اضاقيّة..


     
  2. el tornado

    el tornado عضو نشيط

    إنضم إلينا في:
    ‏26 جانفي 2008
    المشاركات:
    251
    الإعجابات المتلقاة:
    110
      24-10-2008 22:33
    program love;
    uses wincrt;
    var

    nom1,nom2:string;
    l1,l2,t:integer;
    begin
    writeln('Donner votre nom : ');readln(nom1);
    writeln('Donner le nom de votre correspondant : ');readln(nom2);
    l1:=(length(nom1));
    l2:=(length(nom2));
    t:=l1+l2;
    writeln('Votre degré de correspondance est : ',t);
    end.
     
  3. joe.tun

    joe.tun نجم المنتدى

    إنضم إلينا في:
    ‏19 سبتمبر 2006
    المشاركات:
    2.322
    الإعجابات المتلقاة:
    2.181
      25-10-2008 21:29
    أنت نسيت الفاريابل t في الأفيشاج
     
  4. flykey81

    flykey81 عضو مميز

    إنضم إلينا في:
    ‏16 أوت 2008
    المشاركات:
    625
    الإعجابات المتلقاة:
    173
      25-10-2008 22:49
    il faut toujours procéder a une exécution a la main en tenant compte des affichage et variable
     
  5. Houssem

    Houssem عضو نشيط

    إنضم إلينا في:
    ‏26 نوفمبر 2005
    المشاركات:
    149
    الإعجابات المتلقاة:
    39
      26-10-2008 08:17
    كود (text):
    program love;
    uses wincrt;
    var
    nom1,nom2:string;
    l1,l2,t:integer;
    begin
    write ('Donner votre nom : ');readln(nom1);
    write ('Donner le nom de votre correspondant : ');readln(nom2);
    l1:=(length(nom1));
    l2:=(length(nom2));
    t:=l1+l2;
    writeln('Votre degré de correspondance est : ',t);
    end.
    :wlcm:
     
  6. med433

    med433 عضو نشيط

    إنضم إلينا في:
    ‏13 سبتمبر 2006
    المشاركات:
    283
    الإعجابات المتلقاة:
    445
      03-11-2008 00:04
    يجب أن تستعمل readln
     
  7. 7amouda17

    7amouda17 عضو مميز

    إنضم إلينا في:
    ‏1 مارس 2008
    المشاركات:
    760
    الإعجابات المتلقاة:
    261
      03-11-2008 00:44
    ce n'est pas obligatoire readln mon ami meme read peu faire le but ( le role de readln est de mettre le curseur dans la ligne suivante pour lire la donnée ) et c'est un programme qui va afficher la longueur des noms des deux chaines c'est tout
     

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

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