Algorithme PGCD

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

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

    Ghost89 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2006
    المشاركات:
    1.328
    الإعجابات المتلقاة:
    150
      05-04-2007 18:23
    :besmellah1: :besmellah1:
    SVP pour tous les connaisseurs je veut un algorithme qui permet de calculer le PGCD de deux entier(a et b) et merci d'avance
    SVP c'est trés urgent :sonic: :sonic: :sonic:
     
  2. Ghost89

    Ghost89 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2006
    المشاركات:
    1.328
    الإعجابات المتلقاة:
    150
      05-04-2007 19:07
    !!!!!!!!!!!!!!!!!!!!!!!!!! ou etes vous les gars et si c'est possible sans la methode d'euclide
     
  3. chennaoui_lotfi

    chennaoui_lotfi عضو نشيط

    إنضم إلينا في:
    ‏13 جانفي 2007
    المشاركات:
    252
    الإعجابات المتلقاة:
    11
      05-04-2007 19:10
    attend un peux
     
  4. rival

    rival عضو مميز بقسم الرياضة

    إنضم إلينا في:
    ‏10 ديسمبر 2005
    المشاركات:
    671
    الإعجابات المتلقاة:
    14
      05-04-2007 19:14
    :besmellah1:

    أهلا وسهلا بك أخي الكريم في عالم الخورزميات :lol:



    على بركة الله نبدأ : هذا طلبك أخي الكريم ونحن في الخدمة
    كود (text):
    [CENTER]program PGCD;

    uses wincrt;

    var x,y:integer;

    procedure saisie (var k:integer);

    begin

      writeln ('saisir la valeur de k ');
      readln (k);
    end;


    function calc (x,y:integer):integer;
    var z: integer;
    begin
    z:= x mod y;

    repeat
      if z<>0 then

    begin
        x:= y;
        y:=z;
        z:= x mod y;

    end;

    until (z =0);

    writeln ('PGCD = ',y);
    end;

    begin

    repeat
    saisie(x);
    saisie(y);

    until (x>y) and (y>0);
    calc(x,y);

    end.[/CENTER]
     
    تحياتي

    :ahlan:
     
  5. Ghost89

    Ghost89 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2006
    المشاركات:
    1.328
    الإعجابات المتلقاة:
    150
      05-04-2007 19:14
    Ok merci mon ami
     
  6. rival

    rival عضو مميز بقسم الرياضة

    إنضم إلينا في:
    ‏10 ديسمبر 2005
    المشاركات:
    671
    الإعجابات المتلقاة:
    14
      05-04-2007 19:16
    :besmellah1:

    كل ما أطلبه هو أن تدعوا لي ولوالديا بصالح دعائك وشكرا
     
  7. Ghost89

    Ghost89 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2006
    المشاركات:
    1.328
    الإعجابات المتلقاة:
    150
      05-04-2007 19:17
    merci beaucoup mon ami
    :hi: :hi:
     
  8. rival

    rival عضو مميز بقسم الرياضة

    إنضم إلينا في:
    ‏10 ديسمبر 2005
    المشاركات:
    671
    الإعجابات المتلقاة:
    14
      05-04-2007 19:34
    :besmellah1:

    و هذه هدية مني لك أضن أنها ستساعدك ربما في الأيام القادمة وهي لحساب ال PPCM

    كود (text):
    procedure PPCM(a,b:integer);
      var max,min:integer;
      begin
        if a>b then
           begin
             max:=a;
             min:=b;
           end
          else
           begin
             max:=b;
             min:=a;
           end;

        while ((max mod min) <>0) do max:=max+a+b-min;
        writeln(' le PPCM de ',a,' et ',b,' est : ',max);
      end;
    وهذه Fonction أخرى لل PPCM تفضل

    كود (text):
    function ppcm(a, b : integer) : integer;
    var ka, kb : integer;
    begin
        ka := a; kb := b;
        while (ka <> kb) do begin
           if (ka > kb) then kb:=kb+b
           else ka:=ka+a;
        end;
        ppcm := ka; (* ou ppcm := kb; *)
    end;
    :ahlan:
     
  9. Ghost89

    Ghost89 عضو مميز

    إنضم إلينا في:
    ‏19 ديسمبر 2006
    المشاركات:
    1.328
    الإعجابات المتلقاة:
    150
      05-04-2007 19:40
    merci beaucoup mon ami"rival" mais est ce que tu as une autre procedure pour le PGCD et a propos du PPCM c'est vrai j'avais besoin et bonne continuation dans le forum
    :hi::hi::hi:
     
  10. rival

    rival عضو مميز بقسم الرياضة

    إنضم إلينا في:
    ‏10 ديسمبر 2005
    المشاركات:
    671
    الإعجابات المتلقاة:
    14
      05-04-2007 19:56

    :besmellah1:
    لللأسف لم أفهم ماذا تريد بالضبط أخي الكريم الرجاء التوضيح أكثر و مرحبا بك في منتديات تونزيا سات
    :hi:
     
حالة الموضوع:
مغلق

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

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