Question

用pascal编写一个数量积的程序 （内包含函数与过程）

program tp5_2;
const Nmax=3;
type tabvecteur=array[1..Nmax] of integer;
procedure saisie(var t:tabvecteur);
var i:integer;
begin
for i:=1 to 3 do
readln(t[i]);
end;
function produit (t1:tabvecteur;t2:tabvecteur):integer;
var somme:integer;
i,j:integer;
begin
somme:=0;
for i:=1 to 3 do
somme:=somme+t1[i]*t2[i]; // 这个地方如果修改？
end;
procedure affichage(var t:tabvecteur);
var i:integer;
begin
for i:=1 to 3 do
write(t[i]:3);
end;
var tab1,tab2:tabvecteur;
begin
writeln('Donnez le coordonne de premier vecteur: ');
saisie(tab1);
writeln('Donnez le coordonne de deuxieme vecteur: ');
saisie(tab2);
affichage(tab1);
writeln;
affichage(tab2);
writeln;
writeln('Le produit scalaire de ces deux vecteur est ',produit(tab1,tab2))
end.

问题在于怎么使两个数组每个位置相乘并求和？
求高手。

Answer 1

Function 的使用方法你还不清楚呢
如果你要让Function返回一个值，有两种方法：
1、在Function 片段中，用Function的名字当成变量，这样退出Function时会返回值
2、在Function 片段中，用Exit(a);的语句来退出当前Function并返回a

举个例子，就你这个Function可以有以下两种改法：
1、
function produit (t1:tabvecteur;t2:tabvecteur):integer;
var somme:integer;
i,j:integer;
begin
produit:=0;
for i:=1 to 3 do
produit:=produit+t1[i]*t2[i];
end;

2、
function produit (t1:tabvecteur;t2:tabvecteur):integer;
var somme:integer;
i,j:integer;
begin
somme:=0;
for i:=1 to 3 do
somme:=somme+t1[i]*t2[i];
Exit(somme);
end;

就是这样，如果还不懂可以问我