You have declared a procedure, but given it a result type. Either you really meant to declare a function, or you should delete the result type.
program Produce; procedure DotProduct(const A,B: array of Double): Double; var I: Integer; begin Result := 0.0; for I := 0 to High(A) do Result := Result + A[I]*B[I]; end; const C: array [1..3] of Double = (1,2,3); begin Writeln( DotProduct(C,C) ); end.
Here DotProduct was really meant to be a function, we just happened to use the wrong keyword...
program Solve; function DotProduct(const A,B: array of Double): Double; var I: Integer; begin Result := 0.0; for I := 0 to High(A) do Result := Result + A[I]*B[I]; end; const C: array [1..3] of Double = (1,2,3); begin Writeln( DotProduct(C,C) ); end.
Just make sure you specify a result type when you declare a function, and no result type when you declare a procedure.
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
What do you think about this topic? Send feedback!
|