подпрограммы

[shalgan]

Добрый день, возникла небольшая проблемка, сделал лабораторную работу, вот код

type mas=array[1..100]of integer;
procedure sort(const a:mas; const b:integer; var imax:integer);
var i : integer;
begin
  imax:=1;
  for i:=1 to b do
      if a[i]>a[imax] then imax:=i;
end;
 
var
  x, y: mas;
  n: integer;
  j: integer;
  jmax:INTEGER;
begin
  writeln('vvedite kolicestvo elementov massiva x.Ot 0do 80');
  readln(n);
  writeln('vvedite cisla massiva x');
  for j := 1 to n do
    readln(x[j]);
 
 sort(x,n,jmax);
writeln('maksimalnui element massiva=',x[jmax]);
writeln('on naxoditza pod nomerom',jmax);
Readln;
 
  writeln('vvedite kolicestvo elementov massiva y.Ot 0 do 70');
  readln(n);
  writeln('vvedite cisla massiva y');
  for j := 1 to n do
    readln(y[j]);
sort(y,n,jmax);
writeln('maksimalnui element massiva=',y[jmax]);
writeln('on naxoditza pod nomerom',jmax); 
Readln;;
 
end.

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

Вот начальное задание" Найти наибольшие элементы и их порядковые номера массивов Х (N) и Y (М)"

пробовал по всякому-не помогало,посоветовали так-тоже не помогло

procedure sort(const a:mas; const b:integer; var imax:integer);
var i : integer;
begin
  imax:=1;
  for i:=1 to b do
      if a[i]>a[imax] then imax:=a[i];
end;

12.jpg

[ViktorR]

Тут похоже неверно понят совет.

procedure MaxElement(const a:mas; const b:integer; var imax:integer);
{Возвращает номер максимального элемента}
var i : integer;
   max : integer;
begin
 imax := 1;
 max := a[imax];
 for i := 2 to b do
      if a[i] > max then begin
          imax := i;
          max := a[i];
      end;
end;

Или так:

procedure MaxElement(const a:mas; const b:integer; var imax, max :integer);
{Возвращает номер и значение максимального элемента}
var i : integer;
begin
  ...
end;

Хотя достаточно получить номер и затем:

max := a[imax];

Как-то так, ...

[Serge_Bliznykov]

Предполагаю, что ожидалось что-то вроде:

type mas=array[1..100]of integer;
procedure sort(const a:mas; const b:integer; var imax:integer; var valMax:integer);
var i : integer;
begin
  imax:=1;
  for i:=2 to b do
      if a[i]>a[imax] then imax:=i;
  valMax := a[imax];
end;
 
var
  x, y: mas;
  n: integer;
  j: integer;
  jmax:INTEGER;
  max:integer;
begin
  writeln('vvedite kolicestvo elementov massiva x.Ot 0do 80');
  readln(n);
  writeln('vvedite cisla massiva x');
  for j := 1 to n do
    readln(x[j]);
 
 sort(x,n,jmax, max);

 writeln('maksimalnui element massiva=',max);
 writeln('on naxoditza pod nomerom',jmax);
 Readln;
 
  writeln('vvedite kolicestvo elementov massiva y.Ot 0 do 70');
  readln(n);
  writeln('vvedite cisla massiva y');
  for j := 1 to n do
    readln(y[j]);

  sort(y,n,jmax, max);
  writeln('maksimalnui element massiva=',max);
  writeln('on naxoditza pod nomerom',jmax); 
  Readln;
 
end.

p.s. хотя, то, что просит преподаватель - это не красиво и не эффективно. У Вас было изначально лучше.

[shalgan]

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

Предполагаю, что ожидалось что-то вроде:

type mas=array[1..100]of integer;
procedure sort(const a:mas; const b:integer; var imax:integer; var valMax:integer);
var i : integer;
begin
  imax:=1;
  for i:=2 to b do
      if a[i]>a[imax] then imax:=i;
  valMax := a[imax];
end;
 
var
  x, y: mas;
  n: integer;
  j: integer;
  jmax:INTEGER;
  max:integer;
begin
  writeln('vvedite kolicestvo elementov massiva x.Ot 0do 80');
  readln(n);
  writeln('vvedite cisla massiva x');
  for j := 1 to n do
    readln(x[j]);
 
 sort(x,n,jmax, max);

 writeln('maksimalnui element massiva=',max);
 writeln('on naxoditza pod nomerom',jmax);
 Readln;
 
  writeln('vvedite kolicestvo elementov massiva y.Ot 0 do 70');
  readln(n);
  writeln('vvedite cisla massiva y');
  for j := 1 to n do
    readln(y[j]);

  sort(y,n,jmax, max);
  writeln('maksimalnui element massiva=',max);
  writeln('on naxoditza pod nomerom',jmax); 
  Readln;
 
end.

p.s. хотя, то, что просит преподаватель - это не красиво и не эффективно. У Вас было изначально лучше.

Спасибо большое,но в консоле опять же ничего не изменяется ><

[Serge_Bliznykov]

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

Спасибо большое,но в консоле опять же ничего не изменяется ><

ну, хорошо, значит, я не ошибся, процедуры правильно переписал!