je ne conprend pas cet exercice en pascal

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

  1. lihe

    lihe عضو جديد

    إنضم إلينا في:
    ‏5 أفريل 2008
    المشاركات:
    31
    الإعجابات المتلقاة:
    1
      18-05-2008 22:47
    ecrire un algorithme monnè qui permet de donnè la
    liste minimale de piece a rendre sachant le monten a payer et le monton a rèçue
    exp:
    monton a payer:9550
    :satelite:monton a reçue:10000
    rendre:=450m
    4piece de100m
    et piecede50m
     
  2. lihe

    lihe عضو جديد

    إنضم إلينا في:
    ‏5 أفريل 2008
    المشاركات:
    31
    الإعجابات المتلقاة:
    1
      23-05-2008 15:52
    qui peut me aide
     
  3. informaticienne8

    informaticienne8 عضو نشيط

    إنضم إلينا في:
    ‏25 جانفي 2008
    المشاركات:
    262
    الإعجابات المتلقاة:
    174
      24-05-2008 12:28
    slt, votre exercice n'est pa clair
    svp pouvez vous verifier ton exercice et le corriger correctement
    bon courage
     
  4. bakic

    bakic عضو

    إنضم إلينا في:
    ‏1 جانفي 2008
    المشاركات:
    77
    الإعجابات المتلقاة:
    46
      24-05-2008 13:14
    salut
    tu effectues la division euclidienne sur le montant à rendre par 100 et si le reste est inferieur strictement à 100 tu divises par 50 et ainsi de suite
     
  5. naiforne

    naiforne عضو جديد

    إنضم إلينا في:
    ‏5 أفريل 2008
    المشاركات:
    4
    الإعجابات المتلقاة:
    0
      29-05-2008 22:29
    farmit
    l'ordinateur
     
  6. chamsoun

    chamsoun عضو فعال

    إنضم إلينا في:
    ‏6 فيفري 2007
    المشاركات:
    595
    الإعجابات المتلقاة:
    109
      29-05-2008 23:03
    rabbi yehdik ya 5ouya
    :nocomment:
     
  7. heni22

    heni22 عضو نشيط

    إنضم إلينا في:
    ‏27 مارس 2008
    المشاركات:
    261
    الإعجابات المتلقاة:
    117
      31-05-2008 19:38

    salut
    je vais essayer de te donner un algorithme et c 'est a toi de le traduire en pascal.

    en premier leiu fais la différence netre la somme recu et la somme a payer : c'est le reste.

    en 2ème lieu: compare le reste avec les pièces à rendre
    exemple
    if reste >1000 et >5000

    en 3ème lieu dans chaque cas fais une divison du reste par la plus grande valeur de la pièce : l reste de la division présente le nombre de pièce ;
    en ce qui concère le reste divise le par la pièce suivante

    ainsi de suite jusqu'a obtenir un reste nulle

    j'èspère que je t'ai aidé

    dit le moi
     
  8. so3looook

    so3looook عضو نشيط

    إنضم إلينا في:
    ‏3 فيفري 2008
    المشاركات:
    288
    الإعجابات المتلقاة:
    52
      02-06-2008 17:02
    en 2ème lieu: compare le reste avec les pièces à rendre
    exemple
    if reste >1000 et >5000

    en 3ème lieu dans chaque cas fais une divison du reste par la plus grande valeur de la pièce : l reste de la division présente le nombre de pièce ;
    en ce qui concère le reste divise le par la pièce suivante

    ainsi de suite jusqu'a obtenir un reste nulle

    j'èspère que je t'ai aidé

    dit le moi[/quote]
    pour le 3eme cas la divsion du rest sur la valeur de la plus grande pièce inferieure au reste
    exp: si le reste est 250 m alors la division sera sur 100 puisque 100 est la valeur de la plus grande pièce infèrieure à 250 et ainsi de suite
    :satelite:
     
  9. BRIGADE16

    BRIGADE16 عضو فعال

    إنضم إلينا في:
    ‏11 نوفمبر 2007
    المشاركات:
    309
    الإعجابات المتلقاة:
    39
      02-06-2008 21:36
    program calcul ;
    uses wincrt ;
    var mp,mr :longint ;

    procedure saisir (var mp:longint;var mr:longint);
    begin
    repeat
    write('donner la montant a payer :');
    readln(mp);
    write('donner la montant a reçu :');
    readln(mr);
    until (mr>=mp) ;
    clrscr ;
    end;

    procedure monne (mp,mr:longint) ;
    var r,x:integer ;
    begin
    r:= mr-mp ;
    writeln('montan a payer :',mp);
    writeln('montan a reçu :',mr);
    writeln('montan a rendre :',r);
    repeat
    if r>=30000 then
    begin
    x:=r div 30000;
    writeln(x,' papier du 30000 mm');
    r:=r mod 30000;
    end;
    if r>=20000 then
    begin
    x:=r div 20000 ;
    writeln(x,' papier du 20000 mm');
    r:=r mod 20000;
    end;
    if r>=10000 then
    begin
    x:=r div 10000 ;
    writeln(x,' papier du 10000 mm');
    r:=r mod 10000;
    end;
    if r>=5000 then
    begin
    x:=r div 5000 ;
    writeln(x,' piece du 5000 mm');
    r:=r mod 5000;
    end;
    if r>=1000 then
    begin
    x:=r div 1000 ;
    writeln(x,' piece du 1000 mm');
    r:=r mod 1000;
    end;
    if r>=500 then
    begin
    x:=r div 5000 ;
    writeln(x,' piece du 500 mm');
    r:=r mod 500;
    end;
    if r>=100 then
    begin
    x:=r div 100 ;
    writeln(x,' piece du 100 mm');
    r:=r mod 100;
    end;
    if r>=50 then
    begin
    x:=r div 50 ;
    writeln(x,' piece du 50 mm');
    r:=r mod 50;
    end;
    if r>=20 then
    begin
    x:=r div 20 ;
    writeln(x,' piece du 20 mm');
    r:=r mod 20;
    end;
    if r>=10 then
    begin
    x:=r div 10 ;
    writeln(x,' piece du 10 mm');
    r:=r mod 10;
    end;
    if r>=5 then
    begin
    x:=r div 5 ;
    writeln(x,' piece du 5 mm');
    r:=r mod 5;
    end;


    until (r<5) ;
    end;

    begin
    saisir(mp,mr);
    monne(mp,mr);
    end.
     
  10. BRIGADE16

    BRIGADE16 عضو فعال

    إنضم إلينا في:
    ‏11 نوفمبر 2007
    المشاركات:
    309
    الإعجابات المتلقاة:
    39
      02-06-2008 21:40
    ili yest7ak 7aja fil programmation hani mawjoud
     

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

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