pour 3 science informatique

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

  1. achref_ghost

    achref_ghost عضو نشيط

    إنضم إلينا في:
    ‏6 فيفري 2008
    المشاركات:
    243
    الإعجابات المتلقاة:
    200
      15-05-2008 18:47

    ------ PGCD Eclide -----------------
    program pgcd-euclid;
    uses wincrt;
    var m,n:integer;
    function pgcd(a,b:integer):integer;
    var r:integer;
    begin
    while b<>0 do
    begin
    R:=a mod b;
    a:=b;
    b:=R;
    end;
    pgcd-euclide:=a;
    Endd;
    Begin
    repeat
    write('donner deux entiers');
    read(m,n);
    until (m>0) and (n>0);
    write('pgcd=',pgcd(m,n);44);
    end.
    -----------------------------------

    ------------ PGCD-DIFF ------------
    function PGCD-dif(m,n:entier):integer;
    begin
    while (m<>N° DO
    if m>n then
    m:=m-n
    else n:=n-m;
    PGCD-dif:=m;
    end;
    -----------------------------------

    ------------ PPCM -----------------
    fuction PPCM(m,n:ineteger):integer;
    begin
    if m>n alors
    max:=m;
    min:=n
    else
    max:=0n;
    min:=m;
    while (max mod min <> 0) do
    max:=max+(m+n-min);
    PPCM:=max;
    end;
    -----------------------------------

    --------------PREMIER--------------
    program premier;
    uses wincrt;
    var
    n,i:integer;
    BEGIN
    wtite(donnez l"entier a tester'à;
    repeat
    read(n);
    until(n>1);
    i:=2;
    while ((n mod i <> 0à and (i:=n div 2)) do
    i:=i+1;
    if (i>n div 2à then
    write(
    n,'est premier')
    else
    write(n,'n n"est papremier);
    end.
    ----------------------------------
    ----------factorielle-------------
    program factoriel;
    uses wincrt;
    var n:integer;
    function fact(n:integer):longint;
    var
    i:integer;
    f:lonint;
    begin
    f:=1;
    for i:=1 to n do
    f:=f*i;
    fact:=f;
    end;
    begin
    repeat
    write(donnez un integer');
    readln(n);*until n>0;
    write(n,'!=',fact(n));
    end.
    ---------------------------------
    ----------conv-10_2--------------
    program conv-10_2;
    uses wincrt;
    TYPE
    t=array[1..100] of 0..2;
    var
    Reste:t;
    c,n:integer;

    procedure saisir(var N:integer);
    begin
    repeat
    write'saisir un integer +');
    readln(n);
    until n>0;
    end;

    procedure rech(n:integer;var Reste:t;var c:ineteger);
    begin
    c:=;
    repeat
    c:=c+1;
    Reste[c]:=N mod 2;
    N:=N div 2;
    until N=0;
    end;

    procedure aff(Reste:t;c:ineteger);
    var
    i:integer;
    begin
    for i:=1 downto 1 do
    write(Reste:3);
    end;

    begin
    saisir(n);
    cherch(n,Reste,c);
    aff(reste,c);
    END.
    ------------------------------------------
    ------------------conv-10_16--------------
    program conv-10_16;
    uses wincrt;
    TYPE
    tab=array[1..100] of 0..15;
    var
    Reste:t;
    c,n:integer;

    procedure saisir(var n:inetger);
    begin
    repeat
    write('un inetger +');
    readln(n);
    until n >0 ;

    procedure cherch(n:integer;var Reste:t;var c:ineteger);
    begin
    c:=0;
    repeat
    c:=c+1;
    reste[c]:=n mod 16;
    n:= n div 16;
    until n = 0;
    rnd;

    procedure aff(reste:t;c:integer);
    var
    i:integer;
    fori:=c downto 1 do
    if Reste dans [1.9] then write (Reste);
    if Reste write (chr(ord('A')+Reste-10:3);
    end;

    BEGIN
    saisir(n);
    cherch(n,R,c);
    aff(R,c);
    END.
     
    3 شخص معجب بهذا.
  2. 7amouche00

    7amouche00 عضو جديد

    إنضم إلينا في:
    ‏24 سبتمبر 2010
    المشاركات:
    47
    الإعجابات المتلقاة:
    6
      14-03-2011 19:51
    si pas de problem
    ppcm de 3 entier
     

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

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