Функции (Pascal)

[Stas8282]

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

uses
   crt;

const
   q1 = 19;
   q2 = 14;

var
   i, xmax, ymax: integer;
   z: real;
   x: array[0..q1]of integer;
   y: array[0..q2]of integer;

function Max(a: array of integer; up: integer): integer;
var
   i: integer;
begin
  Result:=a[1];
   for i := 0 to up do 
   begin
      if a[i] > Result then Result := a[i];
   end;
end;

begin;
   randomize;
   
   for i := 0 to q1 do 
   begin
      x[i] := random(50);
      writeln('x[', i:2, ']= ', x[i]);
   end;
   writeln;
   for i := 0 to q2 do 
   begin
      y[i] := random(50);
      writeln('y[', i:2, ']= ', y[i]);
   end;
   
   xmax := Max(x,q1);
   ymax := Max(y,q2);
   
   writeln;
   writeln(xmax);
   writeln(ymax);
   
end.

[newerow1989]

Не понятно, для чего переменная z:real;
В функции Max исправить нулевой индекс:

Result:=a[0];

А так в принципе работает!

[Stilet]

function Max(a: array of integer): integer;
var
   i: integer;
begin
  Result:=a[Low(a)];
   for i := Low(a)+1 to High(a) do 
   begin
      if a[i] > Result then Result := a[i];
   end;
end;

Так будет надежнее.

[Stas8282]

так действительно лучше)) но теперь другая проблемка...

uses
   crt;

const
   q1 = 20;
   q2 = 15;

var
   i, xmax, ymax: integer;
   x: array[1..q1]of integer;
   y: array[1..q2]of integer;

function Max(a: array of integer): integer;
var
   i: integer;
begin
  Result:=a[Low(a)];
   for i := Low(a)+1 to High(a) do 
   begin
      if a[i] > Result then Result := a[i];
   end;
end;

begin;
   randomize;
   
   for i := 1 to q1 do 
   begin
      x[i] := random(50);
      writeln('x[', i:2, ']= ', x[i]);
   end;
   writeln;
   for i := 1 to q2 do 
   begin
      y[i] := random(50);
      writeln('y[', i:2, ']= ', y[i]);
   end;
   
   xmax := Max(x);    //нельзя преобразовать тип array[1..20] of integer к array
                              //of integer
   ymax := Max(y);
   
   writeln;
   writeln(xmax);
   writeln(ymax);
   
end.

[Stilet]

Либо опиши тип массива отдельно, либо используй динамические массивы.
Второе будет ИМХО удобнее.

[min@y™]

пора уже вырасти:

• нумеровать массивы с нуля,
• не путать статические, динамические и открытые массивы.

и жить станет проще.

[newerow1989]

//нельзя преобразовать тип array[1..20] of integer к array
//of integer

У меня также все работает (на Delphi).

А какая среда программирования?

[Stas8282]

PascalABC.NET

[Stas8282]

Спасибо, ребятки)) все работает. Вот что получилось...

uses
   crt;

const
   q1 = 21;
   q2 = 16;

var
   i,j, xmax, ymax: integer;
   z:real;
   o:array of integer;
   p:array of integer;

function Max(a: array of integer): integer;
var
   i: integer;
begin
  Result:=a[Low(a)];
   for i := Low(a)+1 to High(a) do 
   begin
      if a[i] > Result then Result := a[i];
   end;
end;

begin;
   randomize;
   
   o:=new integer[q1];
   p:=new integer[q2];
   
   for i := Low(o) to High(o) do 
   begin
      o[i] := random(50);
      writeln('o[', i:2, ']= ', o[i]);
   end;
   writeln;
   for j := Low(p) to High(p) do 
   begin
      p[j] := random(50);
      writeln('p[', j:2, ']= ', p[j]);
   end;
   
   xmax := Max(o); 
   ymax := Max(p);
   
   writeln;
   writeln('xmax = ',xmax);
   writeln('ymax = ',ymax);
   z:=(exp(xmax)-exp(ymax)/sqrt(xmax*ymax));
   writeln('z = ',z);
   
end.

From Stilet: У нас для выделения кода в редакторе поста есть кнопки. # в твоем случае. Прошу ей пользоваться, а не писать отсебятину.

[min@y™]

Вот что получилось...

не надо так!