SVP!!je cherche solution d'exercice PASCAL

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

  1. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      16-03-2009 17:58
    :besmellah1:
    SVP à tous qui peuvent m’aider, c’est urgent !!!!!!!!!

    Je cherche une solution à ces deux exercices en PASCAL.

    Je vous attends, merci d’avance.



     

    الملفات المرفقة:

    • exo_pacal.doc
      exo_pacal.doc
      حجم الملف:
      28 ك. ب
      المشاهدات:
      78
  2. prince2ombre

    prince2ombre صديق المنتدى

    إنضم إلينا في:
    ‏15 جويلية 2008
    المشاركات:
    2.359
    الإعجابات المتلقاة:
    9.470
      16-03-2009 21:56
    ضع محاولتك اولا و سنقوم بإصلاحها لتحصل لك الفائدة أما ان تضع تمرين هكذا فأعلم ان المنتدى لم و لن يكون لتعويض التلميذ في القيام بواجباته
     
    7 شخص معجب بهذا.
  3. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      16-03-2009 23:53
    :besmellah1:

    voila mon essai pour le deuxième exercice: le voilà, j'ai pas encore fait l'inversement car je le connais, j'attend vos propositions:satelite:



    program remp_tab;
    uses wincrt;
    type tab=array[1..100]of string;
    var
    P:tab;
    n,i,j:integer;
    begin
    repeat
    write('donner la taille du tableau ');
    read(n);
    until ((n>1) and (n<100));
    for i:=1 to n do
    begin
    for j:=1 to n do
    begin
    writeln('P[',i,'][',j,']=');
    repeat

    read(P[j]);
    until(P[j] in ['0'..'9']);
    end;
    end;
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(P[j],' ');

    end;

    end.

     
    2 شخص معجب بهذا.
  4. fajraoui_zn

    fajraoui_zn عضو جديد

    إنضم إلينا في:
    ‏19 جانفي 2009
    المشاركات:
    17
    الإعجابات المتلقاة:
    8
      17-03-2009 02:07
    خويا عندك في التمرين tableau و انت خدمتها matrice
     
    1 person likes this.
  5. salimo

    salimo عضو

    إنضم إلينا في:
    ‏3 ديسمبر 2006
    المشاركات:
    99
    الإعجابات المتلقاة:
    32
      17-03-2009 18:31
    program remplissage_tab;
    uses wincrt;
    type tab=array[1..10]of string;
    var P,Q:tab;
    n,i:integer;
    BEGIN
    repeat
    write('donner un entier n:');readln(n);
    until n in [1..100];
    for i:= 1 to n do
    BEGIN
    repeat
    write('P[',i,']=');readln(P);
    if length(P=0) then (test=false)
    else
    BEGIN
    j:=0;
    repeat
    j:=j+1;
    test:=(P[j] in ['1'..'9']);
    until (test=false) or (j=length(T[j]));
    END;
    until (test);
    END;
    for i:= 1 to n do
    for j:= length(T) downto 1 do
    Q:=Q+P[j];
    END.
     
    3 شخص معجب بهذا.
  6. salimo

    salimo عضو

    إنضم إلينا في:
    ‏3 ديسمبر 2006
    المشاركات:
    99
    الإعجابات المتلقاة:
    32
      17-03-2009 18:34
    le programme n'est pas compilé (j'ai pas pu vérifier qu'il marche correctement)

    donc si tu a un problème avec tu peut me dire !!
     
    3 شخص معجب بهذا.
  7. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      19-03-2009 15:51
    شكرا جزيلا أخي الكريم:satelite:

    j'ai bien fait la compilation en faisant qque modifications.
    Pour le deuxième exercice voilà mon essai, mais en réalité j'ai pas bien comprendre l'innoncé de l'exercice.



    program distance;
    uses wincrt;
    var x,d,cout:real;
    p:integer;

    Begin
    repeat
    writeln('donner une distance');
    read(p);
    until((p>0) and (p<300));

    x:=300-p;
    d:=SQRT(sqr(x)+sqr(900));
    cout:=d*4;

    writeln('x=',x,'*** d=',d,'*** cout=',cout);

    End.


    Merci d'avance, j'attend vos propositions:kiss:.


     
  8. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      19-03-2009 21:28
    أرجووووووكم إني بانتظار مساعداتكم و شكرا
     
  9. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      19-03-2009 22:54
    اخواااااااااااااااااني ،هل من محاولة؟؟؟
     
  10. rim08

    rim08 عضو نشيط

    إنضم إلينا في:
    ‏7 ماي 2008
    المشاركات:
    116
    الإعجابات المتلقاة:
    98
      21-03-2009 17:12
    اخواااااااااااني هل من محاولة؟؟؟؟؟؟؟؟؟؟
    إني في الانتظار
    :satelite:
     

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

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