массивы и подпрограммы, Проще наверна не бывает Опции

[drsmoll]

Помогите плиз... Не могу по поиску найти
Заданы 2 вектора X=(X1,...,Xm) Y(Y1,...Yn). Сравнить их длины и напечатать большую из них. Длину вектора вычислять в подрпограмме.

[volvo]

А вот это напрасно... Судя по первому посту, автор хочет передавать в процедуру массивы разного размера. При жестко заданном типе это становится проблематичным... Гораздо лучше передавать массив (как открытый) и его размер:

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;

[Lapp]

А вот это напрасно... Судя по первому посту, автор хочет передавать в процедуру массивы разного размера.

Упс, эту возможность я действительно упустил.. Видимо, судил по чему-то другому . Sorry, виноват.

drsmoll, ты действительно это подразумевал?

[drsmoll]

Упс, эту возможность я действительно упустил.. Видимо, судил по чему-то другому . Sorry, виноват.

drsmoll, ты действительно это подразумевал?

исходя из условия, вероятнее всего необходимо ввести X1,X2,...Xm, замем Y1,Y2,...Yn с клавиатуры, в результате получить "Большая длина - Х=...."

Сообщение отредактировано: drsmoll - 8.11.2007 17:27