[Luckduck]

Нужно найти максимальный элемент одномерного массива и с помощью его найти корни. Нахождение максимального значения нужно оформить в виде процедуры/функции. Всё сделал, но вот значения этого максимального значения почему-то всегда ноль. Пробовал использовать и процедуру и функцию, результата не дало. Помогите найти ошибку в коде

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

type mass1 = array[1..3] of real; mass2 = array[1..4] of real; mass3 = array[1..5] of real; var   Form1: TForm1;   c,d,p,dis,x1,x2,max:real;   i,j:integer;   function max1 (j:integer; p:real; w:array of real) : real;   procedure max2 (j:integer; d:real; y:array of real);   procedure max3 (j:integer; c:real; z:array of real);      const   w: mass1 = (2.1,3.8,0.1);   y: mass2 = (0.5,4.8,5.1,-1.5);   z: mass3 = (1.5,1.8,3.4,0.2,2.85);       implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); begin max1(j,p,w); max2(j,d,y); max3(j,c,z); dis:=d*d-4*p*c; x1:=-d+sqrt(dis)/2*p; x2:=-d-sqrt(dis)/2*p; label2.caption:='X1='+floattostr(x1); label3.caption:='X2='+floattostr(x2); label4.caption:=floattostr(p); label5.caption:=floattostr(d); label6.caption:=floattostr(c); end;    function max1 (j:integer; p:real; w:array of real) : real; begin p:=-999999; for j:=1 to 3 do begin if w[j]>p then p:=w[j]; end; end;    procedure max2 (j:integer; d:real; y:array of real); begin d:=-999999; for j:=1 to 4 do begin if y[j]>d then d:=y[j]; end; end;    procedure max3 (j:integer; c:real; z:array of real); begin c:=-999999; for j:=1 to 5 do begin if z[j]>c then c:=z[j]; end; end;       end.

[M.A.D.M.A.N.]

Во 1-х ни одна из ф-й не возвращает результат.

[Luckduck]

Сообщение от M.A.D.M.A.N.

Во 1-х ни одна из ф-й не возвращает результат.

Добавил в код результат, не помогло

Код:

1 2 3 4 5 6 7 8 9 10

function max1 (j:integer; p:real; w:array of real) : real; begin p:=-999999; for j:=1 to 3 do begin if w[j]>p then p:=w[j]; end; result:=p; end;

Есть ещё варианты?

Проблема решена путём передачи параметров по ссылке