svp aide moi sur ce programe en pascal

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

  1. alaa06

    alaa06 عضو مميز

    إنضم إلينا في:
    ‏19 نوفمبر 2007
    المشاركات:
    680
    الإعجابات المتلقاة:
    1.161
      08-05-2008 17:04
    :ahlan:



    slt jespere bien que vous me trouve une solution sur se progaramme en pascal car jai un devoir 2m1 et jai pas de temps jespere que vous me repondre vite



    ecrire un programme qui permet de remplir deux tableu t1 et t2 de n nombre entre 1<n<100 et t2 eqale a la somme caré de t1
    exemple: t2= x²+y²+z²



    repond mwa vite svp

    mon msn c'est
     
  2. firemido

    firemido عضو جديد

    إنضم إلينا في:
    ‏6 مارس 2008
    المشاركات:
    13
    الإعجابات المتلقاة:
    5
      10-05-2008 15:38
    j voulé bien te répondre mé j voi que l'énoncé soit faux soit incompler
    x, y et z se sont quoi exactement?
     
  3. The Joker

    The Joker _^_

    إنضم إلينا في:
    ‏9 جويلية 2006
    المشاركات:
    9.049
    الإعجابات المتلقاة:
    2.016
      10-05-2008 15:57
    dooner nous un exemple de deux tableau

    :wlcm:
     
  4. jordan

    jordan عضو نشيط

    إنضم إلينا في:
    ‏19 أوت 2007
    المشاركات:
    111
    الإعجابات المتلقاة:
    36
      11-05-2008 02:06
    :ahlan:
    écris justement l'énoncé du problème et on va t'aider inchalah
    mais stp écris justement la langue Française est essentielle pour l'informatique
    :tunis::oh:
     
  5. hbstun

    hbstun عضو مميز عضو قيم

    إنضم إلينا في:
    ‏28 ديسمبر 2007
    المشاركات:
    1.191
    الإعجابات المتلقاة:
    3.687
      11-05-2008 09:34
    ce qu'il veut
    : c'est l'ennoncé suivant
    remplir un tableau t avec n nombres ; puis un autre tableau t2 vérifiant t2= x²+y²+z² où
    t=xyz (on suppose que le nombre saisi est composé de 3 chiffres)
    je te donne la provedure traitement
    procedure trait(var t2:tab;t:tab);
    var x,y,z:integer;{i,n sont des variables globales
    begin
    for i:=1 to n do
    {
    x:=t div 100;
    y:=t mod 100 div 10;
    z:=t mod 100 mod 10;
    t2:=x*x+y*y+z*z;

    end;
     
    2 شخص معجب بهذا.
  6. king-0X

    king-0X نجم المنتدى

    إنضم إلينا في:
    ‏21 فيفري 2008
    المشاركات:
    1.598
    الإعجابات المتلقاة:
    1.695
      12-05-2008 16:18
    bravoo
    :oh:
     
    1 person likes this.
  7. benmansouran

    benmansouran عضو جديد

    إنضم إلينا في:
    ‏28 أكتوبر 2007
    المشاركات:
    39
    الإعجابات المتلقاة:
    4
      12-05-2008 17:15


    bonjour mon ami mais je ne pense que votre solution est juste car il t a dis on suppose que le nombre est compose de 3 chiffre mais pas toujour
     
  8. jordan

    jordan عضو نشيط

    إنضم إلينا في:
    ‏19 أوت 2007
    المشاركات:
    111
    الإعجابات المتلقاة:
    36
      12-05-2008 18:45
    :besmellah1:
     
  9. jordan

    jordan عضو نشيط

    إنضم إلينا في:
    ‏19 أوت 2007
    المشاركات:
    111
    الإعجابات المتلقاة:
    36
      12-05-2008 18:47
    :besmellah1:
    voilà la solution:
    program jordan;
    uses wincrt;
    type tab=array[1..100]of integer;
    var t1:tab;
    t2:tab;
    {début de la procedure saisir qui sert à saisir le tableau T1 et N**
    procedure saisir(var t1:tab;var n:integer);
    var i:integer;
    begin
    repeat
    write('donner n= ');readln(n);
    until n in [1..100];
    for i:=1 to n do
    begin
    repeat
    write('donner t1[',i,']= ');readln(t1);
    until (t1<=111) and (t1>=999);
    end;
    end;
    {procedure remplir qui sert à remplir le Tableau T2 à partir de T1**
    procedure remplir(var t2:tab;t1:tab;n:integer);
    var i:integer;
    begin
    for i:=1 to n do
    begin
    x:=t div 100;
    y:=t mod 100 div 10;
    z:=t mod 100 mod 10;
    t2:=x*x+y*y+z*z;
    end;
    end;
    {début de la procedure affichage qui va nous afficher les deux tableaux**
    procedure afficher(t1,t2:tab;n:integer);
    var i:integer;
    begin
    for i:=1 to n do
    writeln('t1[',i,']= ',t1,' t2[',i,']= ',t2);
    end;
    {début du Programme Principale**
    begin
    saisir(t1,n);
    remplir(t2,t1,n);
    afficher(t1,t2,n);
    end.
    :tunis::dance:
     
  10. hbstun

    hbstun عضو مميز عضو قيم

    إنضم إلينا في:
    ‏28 ديسمبر 2007
    المشاركات:
    1.191
    الإعجابات المتلقاة:
    3.687
      13-05-2008 19:45
    si quelq'un a besoin d'une solution en programmation :pascal,javascript, php : je suis la
     

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

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