Programme produit scalaire
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:
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. |