Répondre à la discussion
Affichage des résultats 1 à 5 sur 5

Resoudre en turbo pascal



  1. #1
    Gmal007

    Thumbs up Resoudre en turbo pascal


    ------

    si vous pouvez avoir la mabilité de me le travailler sous turbo Pascal :
    Ecrire un programme qui calcule et affiche le produit vectoriel V de deux vecteurs a et b sous les contraintes ci-apres:
    -si une composante de V est nulle, le programme ne l'affiche pas
    Ex:V1=2, V2=0, V3=3
    Le programme affiche 2i+3k
    -i une composante de V est negative, le programme n'affiche pas un + devant le -
    ex: V1=2, V2=-6, V3=2
    Le programme affiche 2i-6j+2k
    -et enfin si une composante de v est positive et commence le vecteur, le programme n'affiche pas son signe
    Ex:V1=0, V2=2, V3=5
    Le programme affiche 2j+5k

    Avec les formules du produit vectoriel ci apres:
    v1=i=(a2*b3)-(a3*b2)
    v2=j=(a3*b1)-(a1*b3)
    v3=k=(a1*b2)-(a2*b1)

    -----

  2. Publicité
  3. #2
    Gmal007

    Re : Resoudre en turbo pascal

    si vous pouvez avoir la mabilité de me le travailler sous turbo Pascal :
    Ecrire un programme qui calcule et affiche le produit vectoriel V de deux vecteurs a et b sous les contraintes ci-apres:
    -si une composante de V est nulle, le programme ne l'affiche pas
    Ex:V1=2, V2=0, V3=3
    Le programme affiche 2i+3k
    -i une composante de V est negative, le programme n'affiche pas un + devant le -
    ex: V1=2, V2=-6, V3=2
    Le programme affiche 2i-6j+2k
    -et enfin si une composante de v est positive et commence le vecteur, le programme n'affiche pas son signe
    Ex:V1=0, V2=2, V3=5
    Le programme affiche 2j+5k

    Avec les formules du produit vectoriel ci apres:
    v1=i=(a2*b3)-(a3*b2)
    v2=j=(a3*b1)-(a1*b3)
    v3=k=(a1*b2)-(a2*b1)

  4. #3
    Gmal007

    Re : Resoudre en turbo pascal

    Citation Envoyé par Gmal007 Voir le message
    si vous pouvez avoir la mabilité de me le travailler sous turbo Pascal :
    Ecrire un programme qui calcule et affiche le produit vectoriel V de deux vecteurs a et b sous les contraintes ci-apres:
    -si une composante de V est nulle, le programme ne l'affiche pas
    Ex:V1=2, V2=0, V3=3
    Le programme affiche 2i+3k
    -i une composante de V est negative, le programme n'affiche pas un + devant le -
    ex: V1=2, V2=-6, V3=2
    Le programme affiche 2i-6j+2k
    -et enfin si une composante de v est positive et commence le vecteur, le programme n'affiche pas son signe
    Ex:V1=0, V2=2, V3=5
    Le programme affiche 2j+5k

    Avec les formules du produit vectoriel ci apres:
    v1=i=(a2*b3)-(a3*b2)
    v2=j=(a3*b1)-(a1*b3)
    v3=k=(a1*b2)-(a2*b1)
    si vous pouvez avoir la mabilité de me le travailler sous turbo Pascal :
    Ecrire un programme qui calcule et affiche le produit vectoriel V de deux vecteurs a et b sous les contraintes ci-apres:
    -si une composante de V est nulle, le programme ne l'affiche pas
    Ex:V1=2, V2=0, V3=3
    Le programme affiche 2i+3k
    -i une composante de V est negative, le programme n'affiche pas un + devant le -
    ex: V1=2, V2=-6, V3=2
    Le programme affiche 2i-6j+2k
    -et enfin si une composante de v est positive et commence le vecteur, le programme n'affiche pas son signe
    Ex:V1=0, V2=2, V3=5
    Le programme affiche 2j+5k

    Avec les formules du produit vectoriel ci apres:
    v1=i=(a2*b3)-(a3*b2)
    v2=j=(a3*b1)-(a1*b3)
    v3=k=(a1*b2)-(a2*b1)

  5. #4
    whoami

    Re : Resoudre en turbo pascal

    Bonjour,

    Pourquoi te citer à 5 minutes d'intervalle, pour remettre le même message ?

    Qu'as-tu déjà fait ? Montre-nous où tu en es de ta réflexion, car FS n'est pas synonyme de "OnFaitTesDevoirs.org".

  6. A voir en vidéo sur Futura
  7. #5
    Gmal007

    Thumbs up Re : Resoudre en turbo pascal

    Ayez la bonne foi de m'aider : ou meme par un site de resolution :
    Ce que j'ai eu deja a faire c cela:

    Program Vectoriel;
    uses crt;
    var A, B, a1, a2, a3, b1, b2, b3, v1, v2, v3, V: real;
    begin
    clrscr;
    writeln('*** Calcul VECTORIEL ***');
    writeln('Entrer les composantes du 1er vecteur');
    readln(a1, a2, a3);
    writeln('Le 1er vecteur est donc A=',a1:0:0,'i+',a2:0:0,'j+',a3 :0:0,'k.');
    writeln('Entrer les composantes du 2nd vecteur');
    readln(b1, b2, b3);
    writeln('Le 2nd vecteur est donc B=',b1:0:0,'i+',b2:0:0,'j+',b3 :0:0,'k.');
    v1:=((a2*b3)-(a3*b2));
    v2:=((a3*b1)-(a1*b3));
    v3:=((a1*b2)-(a2*b1));
    writeln('Le produit vectoriel est V=:',v1:0:0,'i+',v2:0:0,'j+',v 3:0:0,'k.');
    if v1=0 then begin
    writeln('Le produit vectoriel est V=:',v2:0:0,'j+',v3:0:0,'k.');
    end;
    if v1=1 then begin
    writeln('Le produit vectoriel est V=:','i+',v2:0:0,'j+',v3:0:0,' k.');
    end;
    if v2=0 then begin
    writeln('Le produit vectoriel est V=:',v1:0:0,'i+',v3:0:0,'k.');
    end;
    if v2=1 then begin
    writeln('Le produit vectoriel est V=:',v1:0:0,'i+','j+',v3:0:0,' k.');
    end;
    if v3=0 then begin
    writeln('Le produit vectoriel est V=:',v1:0:0,'i+',v2:0:0,'j');
    end;
    if v3=1 then begin
    writeln('Le produit vectoriel est V=:',v1:0:0,'i+',v2:0:0,'j+',' k.');
    end;
    readkey;
    end.

Discussions similaires

  1. turbo pascal
    Par goblou dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 12/03/2007, 16h01
  2. Turbo pascal
    Par Afissath dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 13/09/2006, 18h09
  3. Turbo Pascal
    Par iceberg dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 31/10/2005, 16h32
  4. turbo pascal
    Par the strange dans le forum Logiciel - Software - Open Source
    Réponses: 6
    Dernier message: 08/07/2005, 11h33
  5. Turbo Pascal
    Par Pitoune dans le forum Logiciel - Software - Open Source
    Réponses: 7
    Dernier message: 27/01/2005, 08h35
Découvrez nos comparatifs produits sur l'informatique et les technologies.