Передача массива функции. Комбинированный тип - Turbo Pascal

Формулировка задачи:

Здравствуйте! Запутался в передаче массива функции. И подскажите, правильно ли использую комбинированный тип.
const n=30;
type data = record 
name: string[30]; 
pol: char;
rost:140..200 
end;
gruppa=array [1..n] of data;
 
function Search_man(var gruppa:mas):boolean;
var
i,j:integer;;
begin
search_man:=false;
for i:=1 to n-1 do
for j:=i+1 to n do 
begin 
    if gruppa[i].pol<>'M' then continue
else 
if gruppa[i].rost=gruppa[j].rost then   
begin
Search_man:=true;
Exit; {выход из функции}
end;
end;

Код к задаче: «Передача массива функции. Комбинированный тип - Turbo Pascal»

textual
function Search_man(const mas: gruppa): boolean; { ссылка на mas, менять содержимое запрещено }
function Search_man(mas: gruppa): boolean; { mas -- локальная копия параметра, изменения пропадут }
function Search_man(var mas: gruppa): boolean; { ссылка на mas, изменения видны вне функции }

7   голосов, оценка 3.286 из 5


СОХРАНИТЬ ССЫЛКУ