Форум программистов [Powered by Invision Power Board]

Код

program Theatre;
const
  MAX_SIZE=100;{вместимость зала}
type
  TArr=array[1..MAX_SIZE] of integer;{массив мест}
procedure InputArray(var Arr:TArr;n:integer);{процедура ввода информации о занятых местах}
var
  i:integer;{i - счетчик}
begin
  for i:=1 to n-1 do
    read(Arr[i]);{читаем очередной элемент массива}
  readln(Arr[n]);{читаем последний элемент и переводим курсор на новую стороку}
end;
procedure PrintArray(var Arr:TArr;n:integer);{процедура печати информации о занятых местах}
var
  i:integer;
begin
  for i:=1 to n-1 do
    write(Arr[i], ' ');{печать очередного элемента}
   writeln(Arr[n]);{печать последнего элемента с переводом курсора на новую строку}
end;
function GetResult(var Arr:TArr;Ticket:integer):integer;{рекурсивная функция получения результата - кол-во пересаживаний}
var
  tmp:integer;{вспомогательная переменная}
begin
  if Arr[Ticket]=Ticket then{если зритель с билетом сидит на своем месте}
    GetResult:=0
  else
    if Arr[Ticket]=0 then{если место зрителя не занято}
      GetResult:=1
    else
    begin
      tmp:=Arr[Ticket];{запоминаем сидящего на месте зрителя с билетом Ticket}
      Arr[Ticket]:=Ticket;{сажаем зрителя на его место}
      GetResult:=1+GetResult(Arr,tmp);{выполняем процесс для нового зрителя}
    end;
end;
var
  n,Ticket:integer;{n - кол-во мест в зале, Ticket - номер билета зрителя, захотевшего пересесть}
  Arr:TArr;{массив информации о заполнении мест}
begin
  writeln('Please enter N:');
  readln(n);{ввод n}
  writeln('Please enter a numbers of tickets:');
  InputArray(Arr,n);{ввод данных}
  writeln('Source array:');
  PrintArray(Arr,n);{печать исходных данных}
  writeln('Please enter a ticket number:');
  readln(Ticket);{читаем номер билета "беспокойного" зрителя}
  writeln('Result=',GetResult(Arr,Ticket));{печать результата}
  readln;
end.