Помогите плиз... Не могу по поиску найти
Заданы 2 вектора X=(X1,...,Xm) Y(Y1,...Yn). Сравнить их длины и напечатать большую из них. Длину вектора вычислять в подрпограмме.
program zad;
uses crt;
var
i:integer;
Lx,Ly,L,K:real;
const
x:array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
y:array[1..10] of integer = (1,1,1,1,1,1,1,1,1,1);
procedure S(a:array of integer);
begin
for i:=1 to 9 do
begin
L:= Sqr(a[i])+Sqr(a[i+1]);
end;
K:= Sqrt(L);
end;
begin
S(x);
S(y);
if Lx > Ly then writeln ('Big X',Lx)
else writeln ('Big Y',Ly);
end.
М | Используй теги, пожалуйста (выделить текст, вырать нужный тип в меню CODE) -- Лопарь |
begin
L:=0;
for i:=1 to 10 do
begin
L:= L + Sqr(a[i]);
end;
K:= Sqrt(L);
end;
S(x);
Lx := K;
S(y);
Ly := K;
type
tVector = array[1..10] of integer;
const
x: tVector = (1,2,3,4,5,6,7,8,9,10);
y: tVector = (1,1,1,1,1,1,1,1,1,1);
procedure S(a:tVector);
procedure S(const a: array of integer; const Len: integer);
var
i: integer; { <-- Нельзя использовать глобальные переменные в качестве счетчика циклов }
begin
L:=0;
for i:=0 to pred(Len) do begin
L := L + Sqr(a[i]);
end;
K:= Sqrt(L);
end;