zaloguj   załóż konto   dodaj kod   dodaj plik   FAQ  

Źródło:

---

Komentarze (2)

---

Ocena: 1

źródło pochodzi od: fafek Opis: Fragment "juzefa". Wymaga solidnego dopracowania. Język: delphi

---

function tmain.porownajZdania( z1, z2 : zdanie; roznica : byte ) : bool;
{
  jesli takie same = true, jesli nie = false
  różnica okresla maksymalną ilosc wyrazow,
  jakie mogą się nie zgadzac
}
var i,j : 1..WYRAZOW_W_ZDANIU; b: bool;// r : word;
    r : word;
begin
result := false;
r:=0;
b:=true;

for i:=1 to liczWyrazy( z1 ) do
  begin
//  b:=false;

//  if r <= roznica then

  if b then
    for j:=1 to liczWyrazy( z2 ) do
      begin
      if z1[i] = z2[j] then
        begin
        b:=true;
        break;
        end;
      b:=false;
      inc(r);
      end
//  else inc(r);

//  if not b then inc( r );

  end;

if b and ((abs(liczWyrazy( z1 ) - liczWyrazy( z2 )) <= roznica){ or ( r <= roznica)}) then
  result:=true
else
  result:=false;
end;

---

powrót

Tagi do źródła:
juzef, porównywanie zdań, delphi

---

Komentarze:

allo Wysłany: 2006-08-27 15:52	z tego fragmentu zupełnie nie wynika jak 'juzef' dziala. doloz wiecej kodu, to bedzie można rzeczowo ustosunkować się do kodu.
fafek Wysłany: 2006-09-11 07:17	Wcale nie miało wynikać. Fakt, że jest to jego kawałek, to tylko ciekawostka.

---