как из функции переделать в процедуру?

[shalgan]

написал программу,все работает,все как надо,но не знаю как передалать из функции в процедуру объясните пожалуйста.Делфи7.и Сам принцип перехода ,из процедуры в функцию и обратно

type mas=array[1..100]of integet
function sort(a:mas;i,imax,b:integer): integer;
begin
imax:=1;
for i:=1 to b do
if a[i]>a[imax]then imax:=i;
writeln('maksimalnui element massiva=',a[imax]);
writeln('on naxoditza pod nomerom',imax); Readln;
end;
var x,y:mas;
n:integer;
j,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
read(x[j]);
jmax:=sort(x,j,jmax,n);
writeln('vvedite kolicestvo elementov massiva y.Ot 0 do 70');
readln(n);
writeln('vvedite cisla massiva y');
for j:=1 to n do
read(y[j]);
jmax:=sort(y,j,jmax,n);
Readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[VIK_aka_TOR]

type
  mas = array[1..100]of integer;

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

var
  x, y: mas;
  n: integer;
  j: 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]);
 
 writeln('maksimalnui element massiva x =', x[sort(x,n)]);
 writeln('on naxoditza pod nomerom ', sort(x,n));
 
  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]);

 writeln('maksimalnui element massiva y =', y[sort(y,n)]);
 writeln('on naxoditza pod nomerom ', sort(y,n)); 
 Readln;

end.

[shalgan]

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

type
  mas = array[1..100]of integer;

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

var
  x, y: mas;
  n: integer;
  j: 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]);
 
 writeln('maksimalnui element massiva x =', x[sort(x,n)]);
 writeln('on naxoditza pod nomerom ', sort(x,n));
 
  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]);

 writeln('maksimalnui element massiva y =', y[sort(y,n)]);
 writeln('on naxoditza pod nomerom ', sort(y,n)); 
 Readln;

end.

Спасибо за редактирование)Программа стала выглядеть намного красивее, но суть проблемы остается(

[Serge_Bliznykov]

да Вы не переживайте, Вы всё равно функцию sort написали НЕВЕРНО!
Она у Вас возвращает МУСОР.

Вот Вы пишете:

jmax:=sort(y,j,jmax,n);

и как Вы думаете, что у Вас будет в переменной jmax ?!!


UPDATE Внимание!
Это замечание не относится к коду функции, написанной VIK_aka_TOR!!
Там значение функции возвращается!



а из функции процедуру делаем так:
слово procedure меняем на слово function
возвращаемый тип (то, что после двоеточия указывается после списка параметров выкидываем напрочь.
ну и возвращаемое значение в теле функции либо возвращаем через параметер-переменную (со словом var в списке параметров), либо, если нам не нужно возвращаемое значение - то убираем совсем.

примерно так:

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;
....

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

[Stilet]

procedure sort(var a:mas;i,imax,b:integer);

[shalgan]

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

да Вы не переживайте, Вы всё равно функцию sort написали НЕВЕРНО!
Она у Вас возвращает МУСОР.

Вот Вы пишете:

и как Вы думаете, что у Вас будет в переменной jmax ?!!


UPDATE Внимание!
Это замечание не относится к коду функции, написанной VIK_aka_TOR!!
Там значение функции возвращается!



а из функции процедуру делаем так:
слово procedure меняем на слово function
возвращаемый тип (то, что после двоеточия указывается после списка параметров выкидываем напрочь.
ну и возвращаемое значение в теле функции либо возвращаем через параметер-переменную (со словом var в списке параметров), либо, если нам не нужно возвращаемое значение - то убираем совсем.

примерно так:

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;
....

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

Спасибо большое,переделал,все получилось,очень помогли)

[VIK_aka_TOR]

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

Спасибо за редактирование)Программа стала выглядеть намного красивее, но суть проблемы остается(

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

UPD

изначально же в коде ТС была процедура... и из нее в функцию ?...
или же все же немного что-то попутал... ладно, не суть... главное что разобрались...