Salut les ami(e)s, je suis nouveau au forum et j'ai un travail qui me casse la tête. Je suis en 1er Maintenance et j'ai un petit projet sur le calcul de vectoriel.
Jusque là je me débrouille pas mal, mais ce point de la mise en chaîne de caractère me prend la tête.
On nous a demandé d'écrire un programme qui calcul et affiche le produit vectoriel de deux vecteurs; après que l'utilisateur ait saisi les deux vecteurs en chaîne de caractère.
Voici ce que j'ai fait jusque là.
Est-ce que quelqu'un peut m'aider en me montrant comment est-ce qu'on fait ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 program vectoriel; uses crt; var A, B, V, ai, aj, ak, bi, bj, bk, vi, vj, vk: integer; BEGIN clrscr; writeln('Entrez les composantes du 1er vectoriel :'); readln(ai, aj, ak); writeln('Le 1er vecteur est donc : A= ',ai,'i+',aj,'j+',ak,'k'); 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('Le produit vectoriel est : V= ',vi,'i+',vj,'j+',vk,'k'); readln END.
Partager