Hogyan oldjam ezt meg hatékonyan?

Abba az irányba indulnék el, hogy leválogatnám A-t az egyesek száma szerint. Csak azokat a párokat kellene tesztelni, ahol az egyesek száma maximum néggyel tér el.

Sokat nem jelent, de már valami.

Azokkal meg ne foglalkozz, akik nem is értik ez miért probléma.

Írtam egy ilyet, ezt alakítsd át magadnak, ahogy a házi szerint kellene csinálni:

program project1;

var

i,j,k, l, db : word;

kettesek : array of string;

elem1, elem2 : string;

n : word;

function kettesbe (dec : integer):string;

Var

bin : string;

begin

bin := '';

repeat

if (dec mod 2 = 0) then bin := '0' + bin else bin := '1' + bin;

dec := dec div 2;

until dec = 0;

kettesbe := bin;

end;

begin

Write('Kerem a sorozat elemszamat : ');

ReadLn(n);

SetLength (kettesek, n + 1);

i := 0;

repeat

kettesek[i]:=kettesbe(i);

inc(i);

until(i=n);

for i := 0 to n -1 do

for j := i+1 to n do

begin

elem1 := kettesek[i];

elem2 := kettesek[j];

db := 0;

for k := 1 to length (elem1) do

for l := 1 to length (elem2) do

begin

if elem1[k]<>elem2[l] then inc(db);

end;

if db>=4 then writeln(i,' ',j, ' elemek kozott legalabb 4 bit elteres van.');

end;

ReadLn;

end.

Elvileg megírtam a leválogatást is, de gondja van, sajnos.

Rájöttem, hogy nem kellett volna repeat-until ciklust használni a feltöltésnél, mert a lépésszámlálós for ciklus kell ide.

program project1;

type

kettesekl = record

szam : integer;

kettes : string;

end;

var

i,j,k, l, db : word;

kettesek : array of string;

elem1, elem2 : string;

n, n2 : word;

levalogatva : array of kettesekl;

function kettesbe (dec : integer):string;

Var

bin : string;

begin

bin := '';

repeat

if (dec mod 2 = 0) then bin := '0' + bin else bin := '1' + bin;

dec := dec div 2;

until dec = 0;

kettesbe := bin;

end;

begin

Write('Kerem a sorozat elemszamat : ');

ReadLn(n);

SetLength (kettesek, n + 1);

for i :=0 to n do

kettesek[i]:=kettesbe(i);

n2 := 0;

db := 0;

for i := 0 to n do

elem1 := kettesek[i];

for k := 1 to length (elem1) do

begin

if (elem1[k]='1') then begin

inc(db);

end;

if db >= 4 then begin

inc(n2);

setlength (levalogatva, n2+1);

levalogatva[n2].szam := i;

levalogatva[n2].kettes := kettesek[i];

db := 0;

end;

end;

for i := 0 to n -1 do

for j := i+1 to n do

begin

elem1 := kettesek[i];

elem2 := kettesek[j];

db := 0;

for k := 1 to length (elem1) do

for l := 1 to length (elem2) do

begin

if elem1[k]<>elem2[l] then inc(db);

end;

if db>=4 then writeln(i,' ',j, ' elemek kozott legalabb 4 bit elteres van.');

end;

ReadLn;

end.

Válaszolók! Értitek, mit jelent ez a kérdésben: "de az n^2 műveletszám közel sem elég a követelményeknek"

Nem házifeladatról van szó, nem ilyen óvodás megoldásokra van szükség...