1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
program vectoriel;
uses crt;
VAR
A, B, V, ai, aj, ak, bi, bj, bk, vi, vj, vk: Integer;
rept: String;
BEGIN
rept:='r';
while(rept='r') do begin
clrscr;
writeln('Entrez les composantes du 1er vecteur :');
writeln('');
readln(ai, aj, ak);
writeln('Le 1er vecteur est donc: A= ',ai,'i+',aj,'j+',ak,'k');
writeln('');
writeln('Entrez les composantes du 2nd vecteur :');
readln(bi, bj, bk);
writeln('Le 2nd vecteur est donc: B= ',bi,'i+',bj,'j+',bk,'k');
(* Formules *)
vi:= ((aj*bk)-(ak*bj));
vj:= ((ak*bi)-(ai*bk));
vk:= ((ai*bj)-(aj*bi));
writeln('');
writeln('Le produit vectoriel est: V= ',vi,'i+',vj,'j+',vk,'k');
writeln('');
writeln('Appuyez sur [ R ] pour recommencer ou sur n''importe quelle touche pour quitter');
read(rept);
readln
end;
END. |
Partager