массивы переменной длины

[curly182]

Хочу написать функцию-подпрограмму поиска максимального элемента массива. Есть массивы из 4 и 6 элементов. Для каждого нужна своя функция поиска или нет? В документации по массивам переменной длины ниче найти не смог( Если кто писал что то похожее или знает как это делать - отпишитесь

[SunKnight]

Одна функция для любого массива. Правда в нее нужно будет, скорее всего передавать указатель на массив, и его размер, а затем используя указатели обрабатывать в цикле. На Си это просто делается.

Второй вариант более простой:

type mass=array[1.. 6] of integer;// берем данные из большего массива
var arrA, arrB: mass;
....
function (arr:mass; size:byte):integer;
begin
................
end;

A=function (arrA, 6);
B=function (arrB, 4);

[curly182]

А что тут тогда не так?

program lab7;
uses wincrt;
var num: integer;
type masA=array[1..num] of real;
const A: masA = (-5.2, 8.1, 1.3, 8.25);
var rez: real;
function GetMax(X:masA;num:integer):real;
var max: real;
begin
max:=X[1];
for i:=1 to num do
begin
if X[i]>max then
max:=X[i];
end;
GetMax:=max
end;
begin
rez:=GetMax(A,4);
writeln;
writeln(' максимум массива A = ', rez);
end.

[NSvirus]

program lab7;
uses crt;

type MasA = array[1..4] of real;

const A:MasA=(-5.2, 8.1, 1.3, 8.25);
var rez: real;

>>function GetMax(A:masA):real;
>> var max: real;
>> i:integer;
>> begin
>> max:=A[1];
>> for i:=1 to 4 do
>> begin
>> if A[i]>max then
>> max:=A[i];
>> end;
>> GetMax:=max
>> end;
>>begin
>> rez:=GetMax(A);
>> writeln;
>> writeln(' Максимум массива* A = ', rez);
>> readln;
>>end.

[-HunteR-]

curly182
массив сразу задать нужно. Задавай от 1 до 300, которые не будут использоваться будут просто висеть в памяти.

[curly182]

А как объявить тогда теперь инициализированный массив из 4 элементов, когда есть тип - массив из 6 ?? пишет, что не хватает запятых в массиве

[OCTAGRAM]

значит, забить ерундой, чтоб было 6

[curly182]

Сообщение от OCTAGRAM

значит, забить ерундой, чтоб было 6

это ваще бред.. неужели в этом гребаном паскале нельзя написать нормальную функцию поиска для массивов разной длины? хоть кто нибудь может сказать четко ?

[OCTAGRAM]

Сообщение от curly182

это ваще бред.. неужели в этом гребаном паскале нельзя написать нормальную функцию поиска для массивов разной длины? хоть кто нибудь может сказать четко ?

В Delphi появились открытые массивы, в Паскале их ещё не было (кстати, в ISO Pascal открытые массивы тоже есть). Поэтому в таких случаях, если очень надо, используются нетипизированные аргументы. Например, FillPoly и DrawPoly, у которых количество точек варьируется, используют именно такую технику.

type BigIntegerArray = array[1..32767] of Integer;

function IntegerMax(var IntegerArray; Len : Integer) : Integer;
var R, i, El : Integer;
begin
  R := -MaxInt;
  for i := 1 to Len do
  begin
    El := BigIntegerArray(IntegerArray)[i];
    if El > R then
      R := El;
  end;
  IntegerMax := R;
end;

const
  Array1 : array[1 .. 6] of Integer = (4, 8, 2, 12, 8, 3);
  Array2 : array[1 .. 1] of Integer = (7);
  Array3 : array[1 .. 9] of Integer = (-9, -2, -7, -3, -28, -13, -5, -15, -4);

begin
  WriteLn(IntegerMax(Array1, 6)); {12}
  WriteLn(IntegerMax(Array2, 1)); {7}
  WriteLn(IntegerMax(Array3, 9)); {-2}
end.

[Anatole]

неужели в этом гребаном паскале нельзя написать нормальную функцию поиска для массивов разной длины?

Можно при передаче параматров в функции и процедуры, далаете описание например

Procedure a(b:array of integer)

и можно передавать любой целочисельный массив. Для компилятора должна стоять опция: Open Parameters