Delphi посчитать длину вектора по всем известной формуле (корень из суммы квадратов координат вектора)

[anna77777]

Задача состоит в том, чтобы посчитать длину вектора по всем известной формуле (корень из суммы квадратов координат вектора), моя программа высчитывает нереально маленькие значения, не могу понять почему

#
var
  Form1: TForm1;
 a:array[1..4] of real=(-2.1,3.4,2.48,-1);
 b:array[1..5] of real=(-0.8,1.25,3.1,-1.5,0.25);
 c:array[1..4] of real=(0.55,-1,1.1,2.05);
 k:byte;
implementation

{$R *.dfm}

//äëèíà âåêòîðà
function dlin(x:array of real):real;
var i:byte; s:real;
begin
for i:=1 to k do
s:=s+SQR(x[i]);
dlin:=SQRT(s);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Close
end;

procedure TForm1.N21Click(Sender: TObject);
var E:real;
begin
E:=dlin(b);
 Label2.Caption:=Label2.Caption+'  '+Format('%6.3f',[E])
end;

procedure TForm1.N31Click(Sender: TObject);
var W:real;
begin
W:=dlin(c);
 
Label3.Caption:=Label3.Caption+'  '+Format('%6.3f',[W]);
end;

procedure TForm1.N11Click(Sender: TObject);
var Q:real;
begin
Q:=dlin(a);
Label1.Caption:=Label1.Caption+'  '+Format('%6.3f',[Q])
end;

end.
#

[type_Oleg]

Это что - Delphi ?
А разве так можно -

 var
   a:array[1..4] of real=(-2.1,3.4,2.48,-1);

?
и так

 function dlin(x:array of real):real;

А в самой функции dlin чему в самом начале равна s ?
И что такое k :

for i:=1 to k do

Наверное - все от него . Ибо k=0 , скорее всего.


А вообще попробуйте

Label2.Caption:=FloatToStr(E);

[GreenWizard]

function dlin(x:array of real):real;
var i:byte; s:real;
begin
s := 0;
for i:=0 to Length(x) - 1 do
s:=s+SQR(x[i]);
dlin:=SQRT(s);
end;

должно помочь... только не уверен в -1, может и не нужно (давно с делфи не имел дело)