Delphi задача

[Яська]

На сельской улице в собственных домах живут только Ивановы и Петровы. Они решили переселиться так, чтобы все Ивановы жили в начале улицы, а все Петровы – в конце. Известно N– обще количество домов на улице, а в таблице А [1:N] указаны фамилии жильцов Иванов или Петров. Составить программу, которая определяет число переселений при условии, что каждая семья должна переезжать не более одного раза и в каждом обмене должны участвовать только две семьи.

натолкните на мысль.
так полагаю,что здесь используется комбинаторика.
размещение по (N-все Ивановы) из 5 умножить на размещение по (N- все петровы)???

[Mad_Cat]

какая комбинаторика?

пока не встретились!
идем сначала ищем петрова нашли
идем с конца ищем иванова нашли
поменяли
пошли дальше

[Яська]

спасибо за идею)


а как реализовать программно "пока не встретились"?

[Serge_Bliznykov]

а как реализовать программно "пока не встретились"?

когда вы будете искать с начала массива Петрова
и с конца массива Иванова - вы будете найденные индексы (номера элементов массива) сохранять в переменные?
пусть iPertov - найденный номер первого Петрова в массиве
и пусть iIvanov - найденный номер первого (от конца массива) Иванова

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

iPertov := 0;
iIvanov := n;
 while iPertov<iIvanov do begin
   iPertov := FindPetrov(A, iPertov );
   iIvanov := FindIvanov(A, iIvanov );
   if iPertov<iIvanov then Change(iPertov,iIvanov);
 end;

[Яська]

Change- зарезервированное слово? или придётся "вручную" менять местами?

[Serge_Bliznykov]

Сообщение от Яська

Change- зарезервированное слово? или придётся "вручную" менять местами?

точно.
то, что я написал - это не программа - это псевдокод...
поэтому любые совпадения с настоящими или выдуманными ключевыми словами - случайны и непреднамерены

впрочем, никто не мешает написать примерно так:

procedure ChangeArray(var A : TArr, i1, i2 : integer);
var One : string;
begin
  if (i1<i2) and (i1>=1) and (i1<=n) 
         and (i2>=1) and (i2<=n) then begin
     One := A[i1];
     A[i1] := A[i2];
     A[i2] := One
  end;
end;

[Яська]

подскажите, пожалуйста,весь код программы...(не могу никак въехать,а курсовую скоро сдавать(

вот всё,что я намудрила.

procedure TForm1.Button2Click(Sender: TObject);
var i,j , n, k, c, sum:integer;
fam: string;
begin
n:=StrToInt(Edit1.Text);
For i:=1 to n do begin
 if SG1.Cells[1,i]='Петров' then
  begin
  k:=i;;
  For j:=n downto  k do
  if   SG1.Cells[1,i]='Иванов' then
  c:=i;
  end;
While c<k do
 begin
 fam:=SG1.Cells[1,k];
 SG1.Cells[1,k]:= SG1.Cells[1,c];
 SG1.Cells[1,c]:=fam;
 end;

[Mad_Cat]

подскажите, пожалуйста,весь код программы...

так устроит