Bonjour , je ne comprend pas pourquoi mon programme ne marche pas. Je souhaiterais calculer le produit scalaire de deux vecteurs dans R10. A l'execution il ne me donne la possibilté de lire que cinq coordonnées et ecrit deux fois "entrez les coordonnées" . Enfin malgré un readln, il se ferme automatiquement.
Merci de votre aide .

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program scalaire;
 
 
const
vmax =2;
cmax=10 ;
 
type
coordonee=array[1..cmax,1..vmax] of integer;
 
var
tab:coordonee;
i,j: integer;
prodscalaire:real;
multiplication: real;
 
begin
 
for i:=1 to cmax do
 begin
    for j:=1 to vmax do
    writeln('entrez les coordonnees');
    readln(tab[i,j]);
    write(tab[i,j]);
 end;
 writeLn  ;
end;
 
prodscalaire :=0;
 
for i:=1 to cmax do
 begin
     multiplication:=1;
    for j:=1 to vmax do
    multiplication:=multiplication*tab[i,j];
    writeln('multiplication vaut', multiplication);
 end;
 
prodscalaire:=prodscalaire +multiplication ;
writeln('le produit scalaire est : ',prodscalaire);
readln;
 
end.