Цитата:
Сообщение от Марина Орёл
Ой извините не линейный алгоритм, а подпрограмму!а в том решении что Вы мне написали нет подпрограммы.
|
Да пожалуйста...
Код:
Type
Ar=Array[1..5] of Real;
Const
x:Ar=(-1.2, 3, 5,0,0);
y:Ar=(1, 2.1, 6, -2, 3);
VAR
Lx,Ly:Real;
Function Lng(LL:Ar):Real;
var
i:Integer;
L:Real;
begin
L:=0;
For i:=1 to 5 do
L:=L+SQR(LL[i]);
Lng:=SQRT(L);
end;
BEGIN
WriteLn('Lx= ',Lng(x):5:3);
WriteLn('Ly= ',Lng(y):5:3);
ReadLn;
END.