Resoudre en turbo pascal

[invitea1cacdd0]

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)
-----

[invitea1cacdd0]

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)

[invitea1cacdd0]

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)

[whoami]

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".

[A voir en vidéo sur Futura]

[invitea1cacdd0]

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.